unicode 版本 delphi (如XE2)的 TBytes 转换为 AnsiString

在这样的新版本中如果结果数据会有二进制会使用 TBytes 来操作,而 d7 中基本上就是用 string . 也许是因为新版本 AnsiString 与 string 赋值会丢失数据的原因所以大多数库都是用的 TBytes 操作二进制包括 delphi 本身和 indy 控件.这就有一个问题 TBytes 怎么转换成 AnsiString 呢? 不知道标准做法是什么,我是这样处理的.利用了 AnsiString 的指针就是内容缓冲区这一 hack 特性.当然大家知道标准做法的话还是按标准来的比较好.

function Base64ToStr(const Base64: AnsiString): AnsiString;
var
buf:TBytes;
begin
//Result := EncdDecd.DecodeString(Base64);Exit;//
buf := EncdDecd.DecodeBase64(Base64);
//ShowMessage(PAnsiChar(@buf[0]));

//BytesToRaw(buf, head, SizeOf(TProtoHead));
//Result := BytesToString(buf, TIdTextEncoding.ASCII);Exit;//不对,即使是用了 ASCII 仍然进行了转码,没法得到原始数据
//Result := BytesToString(buf, TIdTextEncoding.UTF8);

//Result := (PAnsiChar(@buf[0]));
SetLength(Result, Length(buf));
//SetAnsiString(@Result, @buf[0], Length(buf));
//StrLCopy(PAnsiChar(result), @buf[0], Length(buf));//不行会在 #0 时出错
CopyMemory(PAnsiChar(result), @buf[0], Length(buf));

end;

unicode 版本 delphi (如XE2)的 TBytes 转换为 AnsiString相关推荐

VC++关于UNICODE版本的开发
关于UNICODE版本的开发代码转换方案概述在VC6.0中,相应的有一些宏来代替ANSI的函数.宏或数据类型,这些宏在ANSI编译条件中处理字符串为单字节,而在UNICODE中处理字符串为双字节 ...
Delphi（XE2）+Win10实现系统服务使用CreateProcessAsUser调用外部界面程序
众所周知,使用Delphi创建的Service Application系统服务,在XP系统中与桌面交互十分流畅,可以随意打开自己程序的窗口,不过自Vista系统开始后台服务不再允许与桌面系统直接交互了 ...
提升老版本Delphi按行读取文本文件的效率
文章目录背景问题分析勉强提升的办法设置缓存自己写背景咋一看这算什么傻问题... 按行读取文本这是每种语言提供的基本功能,比如Java可以这样: aLine = BufferedRead ...
怎么在delphi显示html,如何在Delphi中将简单的RichText转换为HTML标签？
在尝试了许多不能给出准确结果的不同解决方案后,我受到了这个解决方案的启发: Convert RTF to HTML and HTML to RTF. 我们的想法是,TWebBrowser控件(在设计/ ...
服务器维护实用工具(Unicode)版本,修复SQL Server 2000数据库之实战经验
1.故障爆发: 2003-12-26 13:00 客户报告所有的POS死机和SERVER运行速度非常的慢.经过重新启动服务器(启动到检查RAID卡时开始报警)我们发现在WINDEOWS 2000 SE ...
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 .
Delphi7升级到Delphi 2010.Delphi XE.Delphi XE2总结这两天把一个使用Delphi2007成功升级到了Delphi2010.升级途中很艰辛,总结了以下经验与大家分 ...
.Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
转自: http://guanyue7613.blog.163.com/blog/static/885147420120404747235/ 这两天把一个使用Delphi2007成功升级到了Delph ...
Delphi各个版本和发展历史
Delphi,是Windows平台下著名的快速应用程序开发工具(Rapid Application Development,简称RAD).它的前身,即是DOS时代盛行一时的"BorlandT ...
最新Delphi XE2 正式版破解程序
http://download.csdn.net/detail/pjdelphi/3641710 Delphi XE2 正式版的破解程序,有效哦. Delphi XE2 官方完整 delphicbui ...

unicode 版本 delphi (如XE2)的 TBytes 转换为 AnsiString

unicode 版本 delphi (如XE2)的 TBytes 转换为 AnsiString相关推荐

最新文章

热门文章