`
ylilike
  • 浏览: 145878 次
  • 性别: Icon_minigender_1
  • 来自: 洛阳
社区版块
存档分类
最新评论

解决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解码后的内容了

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics