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