var
j: Integer;
InBuff: TIdBytes;
begin
if IdTCPClient1.IOHandler.Readable(1) then
begin
IdTCPClient1.IOHandler.ReadBytes(InBuff, -1, False);
for j := 0 to Length(InBuff) do
begin
OutputDebugString(IntToHex(InBuff[j]));
end;
end;
end;
delphi 11 tcp客户端接收字节流显示十六进制
于 2023-06-06 23:49:52 首次发布