Delphi 调用 Rest 服务的一些

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放到一起