5,927
社区成员




const HexStr='000D0102';
var
s:string;
I:integer;
begin
s:='';
for I := 1 to length(HexStr) div 2 do
begin
s := s +char(strtoint('$'+HexStr[I*2-1]+HexStr[I*2]));
end;
idudpclient1.SendBuffer(pchar(s),length(s));
end;
const HexStr='000D0102';
var
s:string;
I:integer;
begin
s:='';
for I := 1 to length(HexStr) div 2 do
begin
s := s +char(strtoint('$'+HexStr[I*2-1]+HexStr[I*2-1]));
end;
idudpclient1.SendBuffer(pchar(s),length(s));
end;