Delphi中BytesToString重载版本调用报错问题排查

不存在可使用这些参数调用的“BytesToString”重载版本

问题原因 #

你的代码中SomeCallBack函数接收的参数是PByteArray（对应静态数组TByteArray = array[0..32767] of Byte;的指针），但已实现的BytesToString重载仅支持：

• BytesToString(ABuf: PByte; ALen: Cardinal)：字节指针+长度
• BytesToString(ABytes: TArray<byte>)：动态字节数组

PByteArray与TArray<Byte>是完全不同的类型，Delphi无法自动隐式转换，因此调用BytesToString(buffer)时找不到匹配的重载，触发报错。

另外适配Delphi 7时，声明BytesToString(ABytes: TByteArray): string; overload;出现类型转换错误，是因为Delphi 7的静态数组与动态数组、指针的转换规则和高版本存在差异。

解决方案 #

方案1：新增适配PByteArray的重载 #

添加专门接收PByteArray和长度的重载函数，复用现有逻辑：

function BytesToString(ABytes: PByteArray; ALen: Integer): string; overload;
begin
  Result := BytesToString(PByte(ABytes), ALen);
end;

调用时传入指针和长度：

function SomeCallBack(buffer: PByteArray; len: Integer): Integer;
begin
  BytesToString(buffer, len);
  Result := ...
end;

方案2：调用时手动转换类型 #

在SomeCallBack中直接把PByteArray转为PByte，并传入长度：

function SomeCallBack(buffer: PByteArray; len: Integer): Integer;
begin
  BytesToString(PByte(buffer), len);
  Result := ...
end;

Delphi 7兼容处理 #

如果要适配Delphi 7，直接实现静态数组的重载，避免指针转换问题：

function BytesToString(ABytes: TByteArray; ALen: Integer): string; overload;
const
  HexDigits: array [0 .. $F] of Char = '0123456789ABCDEF';
var
  i: Integer;
begin
  if ALen = 0 then
    Exit('');
  SetLength(Result, 3 * ALen - 1);
  Result[1] := HexDigits[ABytes[0] shr 4];
  Result[2] := HexDigits[ABytes[0] and $0F];
  for i := 1 to ALen - 1 do
  begin
    Result[3 * i] := ' ';
    Result[3 * i + 1] := HexDigits[ABytes[i] shr 4];
    Result[3 * i + 2] := HexDigits[ABytes[i] and $0F];
  end;
end;

内容的提问来源于stack exchange，提问作者Underhood