| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2013/11/14 16:38:57 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | Var ss:string; begin ss:=idhttp1.GET（'http://www.hzqx.com/hzqx/HztqybInfo.xml '); showmessage(ss); end; 程序执行后能取到网页内容，但中文部份均为乱码，求教，谢谢！ ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/14 16:48:52 | ||||
| 1楼： | utf-8 ---------------------------------------------- 免费的FTP  https://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi-z.ruhttps://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi.icm.edu.pl/ftp/https://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi-z.ruhttps://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019
|
|||||
| 作者： |
|
2013/11/14 16:49:37 | ||||
| 2楼： | ss := UTF8Decode(ss); ---------------------------------------------- http://wedelphi.com/ |
|||||
| 作者： |
|
2013/11/14 19:00:46 | ||||
| 3楼： |
楼上方法试过了，但不能解决，上传源码，能否帮助解决？
- |
|||||
| 作者： |
|
2013/11/14 19:01:43 | ||||
| 4楼： | 源码在这里
- |
|||||
| 作者： |
|
2013/11/14 19:55:35 | ||||
| 5楼： | var ss:TStringStream; begin ss:=TStringStream.Create; IdHTTP1.Get(‘http://www.hzqx.com/hzqx/HztqybInfo.xml’,ss); showmessage(TEncoding.UTF8.GetString(ss.Bytes)); ss.Free; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/14 20:03:05 | ||||
| 6楼： | 单引号不知道怎样转义 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/14 20:09:05 | ||||
| 7楼： | 或者这样： ss:=TStringStream.Create('',TEncoding.UTF8); IdHTTP1.Get(’http://www.hzqx.com/hzqx/HztqybInfo.xml‘,ss); showmessage(ss.DataString); ss.Free; ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/14 22:21:19 | ||||
| 8楼： | 楼主不是 XE5 吧。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2013/11/15 9:02:58 | ||||
| 9楼： | var ss1:string; sr :TStringStream; begin sr := TStringStream.Create('',TEncoding.UTF8); with sr do try IdHTTP1.Get('http://www.hzqx.com/hzqx/HztqybInfo.xml',sr); ss1 := sr.DataString; ShowMessage(ss1); finally sr.Free; end; close; ---------------------------------------------- http://wedelphi.com/ |
|||||
| 作者： |
|
2013/11/20 9:40:41 | ||||
| 11楼： | 谢谢，这个办法不错 ---------------------------------------------- Delphi爱好者。 |
|||||
| 作者： |
|
2015/6/10 20:36:37 | ||||
| 12楼： | delphi 2007 的怎么办 TStringStream.Create(''); 只能这样 不能指定编码 ---------------------------------------------- - |
|||||
| 作者： |
|
2015/6/10 23:45:00 | ||||
| 13楼： | IdHTTP1.DefStringEncoding := IndyTextEncoding_OSDefault; 试试看. ---------------------------------------------- |
|||||
| 信息 |
| 登陆以后才能回复 |
