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

  • A+
所属分类:[开发技巧]

今天在用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解码后的内容了

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: