虽然大部份的中文已经解出,但是还有有几个乱码,
如何把54936改成65001,就完整的把UTF8显示出来了可我想不用这种方式,直接转还有别的办法能不出现小乱码吗??IdHTTP1 := TIdHTTP.Create;
ss := TStringStream.Create('', TEncoding.GetEncoding(54936));//默认为gb18030
idhttp1.Get('www.jobui.com',ss);//任意UTF8网站都这样
Memo1.text:= LowerCase(ss.DataString);//转出的字符全部统一小写Memo2.text:=utf8toAnsi( Memo1.text);
如何把54936改成65001,就完整的把UTF8显示出来了可我想不用这种方式,直接转还有别的办法能不出现小乱码吗??IdHTTP1 := TIdHTTP.Create;
ss := TStringStream.Create('', TEncoding.GetEncoding(54936));//默认为gb18030
idhttp1.Get('www.jobui.com',ss);//任意UTF8网站都这样
Memo1.text:= LowerCase(ss.DataString);//转出的字符全部统一小写Memo2.text:=utf8toAnsi( Memo1.text);
解决方案 »
- 如何在close时做数据回传呢?
- 做了一个swf,可以自己导入音乐播放,并控制音量,但用delphi导入这个swf,就没声音了,请教
- 这样的项目,用什么数据库,用什么方式开发比较好,大家给个意见?
- 不是处男了,庆祝!! 散分。大家来捧捧场。
- 关于远程数据模块中的数据组件的疑问
- 本小姐..不,,妹妹近日程序老化,导致好久不来。今日照书做一简单计算器程序,来拿分呀~~
- 关于Image图象显示的问题
- 本人的机器出了一些怪问题!可否帮我出出主意?
- 请问delphi的系统函数,非可视化类从哪里可以查出来?给分150
- 气死我了,XE8的IDHttp的Post返回始终是乱码
- delphi6安装Raize Components 4控件导致编译通不过!求助!
- delphi7+redis+pub/sub???
try
Memo1.Text:= Utf8ToAnsi(IdHTTP1.Get('http://www.jobui.com'));
finally
IdHTTP1.Free;
end;
这样并未发现乱码。
楼上兄弟,你试一下2010版,全是乱码
2007(不含)以后,包括控件默认编码是unicode了,你一转,自然是乱码。
try
Memo1.Text:= IdHTTP1.Get('http://www.jobui.com');
finally
IdHTTP1.Free;
end;
try
html:= IdHTTP1.Get('http://0512aj.cn');
if IdHTTP1.Response.CharSet <> 'utf-8' then
html := AnsiToUtf8(html);
Memo1.Text := html;
finally
IdHTTP1.Free;
end;
ANSI就是只能装一种东西的容器, 所以不同语言有不同的ANSI. 不是同一种东西.
uses
IdURI;
...... Respon:=TidURI.URLDecode(Http.Get(TIdURI.URLEncode(URLStr)));这样URLStr就不需要自己去编码和解码了,很好用,支持中西结合文,呵呵