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;