这个包有固定的4个十六进制包头$FFFFFFFF 再加上'TSource Engine Query'长度共25
但是用 Self.IdUDPServer1.SendBuffer发送不了十六进制数据,只能发string 有办法让他转换为字符串吗?type
TCSQueryPackage= packed record //size=25
Head:Dword; //一般设置为$FFFFFFFF /len=4
Data:array [0..20] of Char; //
end;procedure TForm1.Button1Click(Sender: TObject);
Var
S : String;
CSQuery:TCSQueryPackage;
begin
CSQuery.Head:= $FFFFFFFF;
StrCopy(@CSQuery.Data[0],'TSource Engine Query');
Self.IdUDPServer1.SendBuffer('127.0.0.1',27015,@CSQuery,25);end;
但是用 Self.IdUDPServer1.SendBuffer发送不了十六进制数据,只能发string 有办法让他转换为字符串吗?type
TCSQueryPackage= packed record //size=25
Head:Dword; //一般设置为$FFFFFFFF /len=4
Data:array [0..20] of Char; //
end;procedure TForm1.Button1Click(Sender: TObject);
Var
S : String;
CSQuery:TCSQueryPackage;
begin
CSQuery.Head:= $FFFFFFFF;
StrCopy(@CSQuery.Data[0],'TSource Engine Query');
Self.IdUDPServer1.SendBuffer('127.0.0.1',27015,@CSQuery,25);end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货