delphi 解决delphi indy10下 utf8码转换的问题


本文整理自网络,侵删。

 天在用delphi2010调试一个以前的程序,因为以前的程序是delphi7下编写的,大家都知道delphi7下的用的是indy9,后面的主流版本都是用indy10啦。 所以以前用的

Temp1 := UTF8Decode(Temp);
Temp1 := Utf8ToAnsi(Temp);
Temp1 := UTF8Decode(Temp);
Temp1 := UTF8Encode(Temp);

这类函数在2010下是不推荐使用的,而且不能把uft8转成decode. 得到的中文字符全是??。

看来indy10的uft8处理有点麻烦。在这边我是用数据流的办法解决的:

var
idhtp: TIdHTTP;
Temp,temp1:AnsiString;
ss: TStringStream;
begin
try
idhtp := TIdHTTP.Create(nil);
try
ss := TStringStream.Create('', TEncoding.GetEncoding(65001)); { 指定gb2312的中文代码页,或者54936(gb18030)更好些 utf8 对应 65001}
idhtp.Get(URl,ss);
Temp1 := ss.DataString;

这个temp1就是utf8解码后的内容了

相关阅读 >>

Delphi tclientdataset用法详解

Delphi获取操作系统已运行的所有窗口程序

Delphi 获取打开文件的pid

aes.pas 和 elaes.pas

Delphi 在richedit中插入gif图片的方法

Delphi实现背景音乐播放

Delphi 打开webbrowser的选中文件路径

Delphi record,两种声明方式

Delphi ip地址转换str字符

Delphi 检测服务器地址是否有效

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...