本文整理自网络,侵删。
1、关于数据接收的格式
测试发现获取的json源数据中间汉字的地方是乱码,导致引号不配对,引发内存错误。
TIdHttp在获取数据之前,要将定义的TStringStream的Encoding设置为UTF8,才可以。
var
b: TStringStream; //用于接收json数据的流 s1: String;begin b := TStringStream.Create('',65001); //65001是UTF-8 IdHTTP1.Get('http://www.weather.com.cn/data/cityinfo/101010100.html', b); //获取中国气象局公开的json数据
s1 := b.DataString; mmoJsonContent.Text := s1; //展示原始数据
2、获取 HttpsURL内容
uses IdHTTP, IdSSLOpenSSL;
function HttpsGet(const aURL, aContentFile: string): Boolean;var vIdHTTP: TIdHTTP; vSSL: TIdSSLIOHandlerSocket; vMemory: TMemoryStream;begin try vIdHTTP := TIdHTTP.Create(nil); vSSL := TIdSSLIOHandlerSocket.Create(nil); vMemory := TMemoryStream.Create; try vIdHTTP.IOHandler := vSSL; vSSL.SSLOptions.Method := sslvSSLv3; vIdHTTP.Get(aURL, vMemory); vMemory.SaveToFile(aContentFile); Result := True; finally vMemory.Free; vSSL.Free; vIdHTTP.Free; end; except Result := False; end;end;
相关阅读 >>
Delphi fmx 从app程序直接跳转到支付宝付款转帐页面
Delphi 解决Delphi indy10下 utf8码转换的问题
更多相关阅读请进入《Delphi》频道 >>