在Delphi7 中,我们一般采用Indy组件访问网站地址,一般返回的信息是UTF8编码,我们需要作UTF8ToAnsi作编码转换。但在Delphi10中,采用这种方法,遇到奇数个汉字时候,最后的汉字会出现乱码,于是网上有人在编码转换前硬性加个汉字,转换后再去除掉,这种修改给我们带来很大的不方便。事实上在Delphi10中,只需要对返回参数的创建做以下修改就可以了:
Return := TStringStream.Create('', TEnCoding.UTF8) ;
然后正常访问网站地址,如:Indy.Post(AnsiToUTF8(aURL), AnsiToUTF8(aParam), Return) ;
最后,Return.DataString 就是返回我们所需要的结果,不再需要UTF8ToAnsi编码转换,也不存在结果中含有奇数个汉字,最后出现乱码的现象。