delphi - Delphi-从缓冲区转换为十六进制后字符串中的奇数十六进制长度？

Question

情况：我从ws2_32挂接了Send（）和Recv（），现在我正尝试使用以下函数转换Buffer包含的数据。但是，当我这样做时，我看到某些数据包显示的是1个半字节（例如“ CA FE BA BE DE AD CO D”），而不是像我们通常看到的2个十六进制数字（例如“ CA FE BA BE DE AD C0 DE”） ”）。

function ConvertDataToHex(Buffer: Pointer; Length: Word): string;

var
Iterator: Integer;
HexBuffer: string;
C: string;
Counter: Integer;
HexString: string;

begin
  HexBuffer := '';
  HexString := '';

for Iterator := 0 to Length - 1 do
  begin
    HexBuffer := HexBuffer +
      IntToHex(Ord(char(Pointer(Integer(Buffer) + Iterator)^)), 2);
  end;

for C in HexBuffer do
  begin
        Counter := Counter + 1;
        if not Odd(Counter) then
         begin
           HexString := C + ' ';
         end
        else
        begin
          HexString := C;
        end;
  end;
Result := HexString;
end;

根据上面的解释，您是否在代码中看到一些异常现象，可能导致某些结果字符串的字符串长度为奇数？

Answer 1

您的函数返回HexString，它可以是单个字符，也可以是单个字符后跟字符串。它当然不会返回您期望返回的结果，甚至不会声称它返回了。

该函数应如下所示：

function ConvertDataToHex(Buffer: Pointer; Len: Integer): string;
var
  i: Integer;
  P: PByte;
begin
  Result := '';
  P := Buffer;
  for i := 0 to Len-1 do begin
    Result := Result + IntToHex(P^, 2);
    if i<Len-1 then begin
      Result := Result + ' ';
    end;
    inc(P);
  end;
end;

作为简单的演示，此代码

var
  foo: Int64 = $0123456789abcdef;
....
Writeln(ConvertDataToHex(@foo, SizeOf(foo)));

结果如下：

EF CD AB 89 67 45 23 01