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;