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;
还需要将http://www.wesoho.com/soft/down/openssl.rar中的文件和EXE放到一起