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 实现产品编号批量生成简单算法

Delphi中bitmap位图与base64字符串相互转换

Delphi 锁定鼠标移动范围

Delphi adoquery1 update更新数据

Delphi 提取网页源文件纯文本函数

Delphi access数据库密码的mdb的访问报错“无法启动应用程序,或是已被其他用户已独占方式打开”

Delphi 让子窗体显示在任务栏上

Delphi fdmemtable内存表操作

Delphi 常用api 函数

Delphi idhttp的用法

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



打赏

取消

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

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

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

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

评论

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