TIdBytes 类型引用自单元 IdGlobal;
其原型定义为
TIdBytes = array of Byte;
转换函数如下:经过测试多次发送后在字符串尾部不会出现乱码或多余字符
function IdBytesToAnsiString(ParamBytes: TIdBytes): AnsiString;
var
i: Integer;
S: AnsiString;
begin
S := '';
for i := 0 to Length(ParamBytes) - 1 do
begin
S := S + AnsiChar(ParamBytes[i]);
end;
Result := S;
end;