Delphi IdHttp调用 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;
 

相关阅读 >>

Delphi dbgrid支持鼠标滚轮浏览数据

Delphi 取得某一天所在的星期一及星期天

Delphi安装*.pas扩展名的控件

Delphi 用dll实现插件的简单演示

Delphi 如何编写需要启动参数的Delphi程序

Delphi createdir 建立文件夹路径

Delphi获取外部程序菜单并模拟点击菜单

Delphi剪切板-监视剪贴板

Delphi中嵌入汇编检测是否在虚拟机里运行

Delphi rgb 画出三角形

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi IdHttp调用 Rest