delphi类型转换的问题,谁帮帮我.

Question

function MySend(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
如何把上面函数中的buf单个字节转换成十六进制的字符显示在EDIT控件里???

Answer 1

function BinToText(var Buf; Len: Integer): string;
var
  P: PByte;
  I: Integer;
begin
  P := @Buf;
  Result := '';
  for I := 0 to Len - 1 do
  begin
    Result := Result + Format('%.2X', [P^]);
    Inc(P);
  end;
end;Edit1.Text := BinToText(Buf, Len);