| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 网络通讯 斑竹:liumazi,sephil | |||||
| 作者： |
|
2019/7/24 8:48:24 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 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; ---------------------------------------------- |
|||||
| 作者： |
|
2019/7/24 9:12:13 | ||||
| 1楼： | UTF8Decode ? ---------------------------------------------- - |
|||||
| 作者： |
|
2019/7/24 10:51:10 | ||||
| 2楼： | 内存流的字符集 最好用 srringstream ---------------------------------------------- DelphiWeb开发方案(开源)：https://gitee.com/pearroom/DelphiWebMVC |
|||||
| 作者： |
|
2019/7/24 16:11:02 | ||||
| 3楼： | 什么编码都不管，乱码才正常。 ---------------------------------------------- -- |
|||||
| 信息 |
| 登陆以后才能回复 |
