Delphi XE(Indy10)TIdBytes转AnsiString的实现

本文整理自网络，侵删。

 
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; 

https://blog.csdn.net/rshhs/article/details/9365455
 

相关阅读 >>

Delphi shellexecute 发送邮件

Delphi 很方便调用的log日志方法

Delphi adotable1 链接mdb数据库

Delphi中的处理事件 application.processmessages

Delphi xe10 手机内部系统相关操作（手机信息、震动、剪贴板、键盘、电话、拨号）

Delphi idhttp post json 上传 php 接收

Delphi 获取cpu monitor使用率

Delphi 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist

Delphi 纯window系统api实现的ssl客户端

Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE(Indy10)TIdBytes转AnsiString的实现