Delphi使用JSON解析调用淘宝IP地址库REST API 示例


本文整理自网络,侵删。

 
Delphi XE 调试通过,关键代码如下:



uses DBXJSON, DBXJSONCommon, DBXJSONReflect, IdHTTP,system.json;


var
  IdHTTP: TIdHTTP;
  RequestURL: string;
  ResponseStream: TStringStream;
  JO, JData: TJSONObject;
begin
  IdHTTP := TIdHTTP.Create(nil);
  IdHTTP.ReadTimeout := 0;
  IdHTTP.AllowCookies := True;
  IdHTTP.ProxyParams.BasicAuthentication := False;
  IdHTTP.ProxyParams.ProxyPort := 0;
  IdHTTP.Request.ContentLength := -1;
  IdHTTP.Request.ContentRangeEnd := 0;
  IdHTTP.Request.ContentRangeStart := 0;
  IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
  IdHTTP.Request.Accept := 'text/html, */*';
  IdHTTP.Request.BasicAuthentication := False;
  IdHTTP.Request.UserAgent := 'Mozilla/3.0 (compatible; Indy Library)';
  IdHTTP.HTTPOptions := [hoForceEncodeParams];
  RequestURL := 'http://ip.taobao.com/service/getIpInfo.php?ip=' + edtIP.Text;
  ResponseStream := TStringStream.Create;
  IdHTTP.Get(RequestURL, ResponseStream);
  IdHTTP.Free;
  ResponseStream.Position := 0;
  Memo1.Text := ResponseStream.DataString;
  ResponseStream.Position := 0;
  JO := TJSONObject.ParseJSONValue(ResponseStream.DataString) as TJSONObject;
  JData := JO.Get('data').JsonValue as TJSONObject;
  leISP.Text := (JData.Get('isp').JsonValue as TJSONString).Value;
  leCountry.Text := (JData.Get('country').JsonValue as TJSONString).Value;
  leArea.Text := (JData.Get('area').JsonValue as TJSONString).Value;
  leRegion.Text := (JData.Get('region').JsonValue as TJSONString).Value;
  leCity.Text := (JData.Get('city').JsonValue as TJSONString).Value;
  JO.Free;
  ResponseStream.Free;
end;

――――――――――――――――

原文链接:https://blog.csdn.net/MaxWoods/article/details/24265667

相关阅读 >>

Delphi adoconnection连接 sqlserver

Delphi 下载者源代码

Delphi 7中使用加密的sqlite

Delphi编程禁止用户关闭操作系统

settimer函数用法

Delphi编写dll(以及静态和动态方式调用)

Delphi调用程序版本信息的方法

Delphi 关于 class helper for ... 语法

Delphi xe android将域名转化为ip

Delphi url 中文编解码

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...