DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: zzh152
今日帖子: 0
在线用户: 3
导航: 论坛 -> 网络通讯 斑竹:liumazi,sephil  
作者:
男 glwang (glwang) ★☆☆☆☆ -
盒子活跃会员
2019/7/24 8:48:24
标题:
新版ICS网络控件THttpCli抓取网页,显示乱码,请问如何解决啊?Delphi 10.3 浏览:393
加入我的收藏
楼主: procedure TForm4.Button2Click(Sender: TObject);
var aURL,aHtml:string;
var
  HttpClient: THttpCli;
  DataLen: Int64;
begin
  HttpClient := THttpCli.Create(nil);
  HttpClient.NoCache := True;

  aURL:=Edit1.Text;
  HttpClient.URL := aURL;
  HttpClient.RcvdStream := TMemoryStream.Create;


  HttpClient.Get;
  DataLen := HttpClient.RcvdStream.Size;
  SetLength(aHtml, DataLen);
  HttpClient.RcvdStream.Position := 0;
  HttpClient.RcvdStream.Read(PChar(aHtml)^, DataLen);

  Memo1.Lines.Text:=   aHtml;//文本显示乱码
  HttpClient.RcvdStream.Free;
  HttpClient.RcvdStream := nil;
  HttpClient.Free;
end;
----------------------------------------------
-
作者:
男 datm (dATM) ★☆☆☆☆ -
盒子活跃会员
2019/7/24 9:12:13
1楼: UTF8Decode ?
----------------------------------------------
-
作者:
男 joman (joman) ▲▲▲△△ -
注册会员
2019/7/24 10:51:10
2楼: 内存流的字符集 最好用 srringstream
----------------------------------------------
DelphiWebMVC官网 http://www.delphiwebmvc.com
作者:
男 bahamut8348 (leonna) ★☆☆☆☆ -
普通会员
2019/7/24 16:11:02
3楼: 什么编码都不管,乱码才正常。
----------------------------------------------
--
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行15.625毫秒 RSS