码迷，mamicode.com
首页 > Windows程序 > 详细

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

时间：2015-09-06 16:21:33      阅读：754      评论：0      收藏：0      [点我收藏+]

标签：

技术分享

 

淘宝IP地址库：http://ip.taobao.com，里面有REST API 说明。

 

Delphi XE 调试通过，关键代码如下：

 

[delphi] view plaincopy技术分享技术分享
 
  1. var  
  2.   IdHTTP: TIdHTTP;  
  3.   RequestURL: string;  
  4.   ResponseStream: TStringStream;  
  5.   JO, JData: TJSONObject;  
  6. begin  
  7.   IdHTTP := TIdHTTP.Create(nil);  
  8.   IdHTTP.ReadTimeout := 0;  
  9.   IdHTTP.AllowCookies := True;  
  10.   IdHTTP.ProxyParams.BasicAuthentication := False;  
  11.   IdHTTP.ProxyParams.ProxyPort := 0;  
  12.   IdHTTP.Request.ContentLength := -1;  
  13.   IdHTTP.Request.ContentRangeEnd := 0;  
  14.   IdHTTP.Request.ContentRangeStart := 0;  
  15.   IdHTTP.Request.ContentType := ‘application/x-www-form-urlencoded‘;  
  16.   IdHTTP.Request.Accept := ‘text/html, */*‘;  
  17.   IdHTTP.Request.BasicAuthentication := False;  
  18.   IdHTTP.Request.UserAgent := ‘Mozilla/3.0 (compatible; Indy Library)‘;  
  19.   IdHTTP.HTTPOptions := [hoForceEncodeParams];  
  20.   RequestURL := ‘http://ip.taobao.com/service/getIpInfo.php?ip=‘ + edtIP.Text;  
  21.   ResponseStream := TStringStream.Create;  
  22.   IdHTTP.Get(RequestURL, ResponseStream);  
  23.   IdHTTP.Free;  
  24.   ResponseStream.Position := 0;  
  25.   Memo1.Text := ResponseStream.DataString;  
  26.   ResponseStream.Position := 0;  
  27.   JO := TJSONObject.ParseJSONValue(ResponseStream.DataString) as TJSONObject;  
  28.   JData := JO.Get(‘data‘).JsonValue as TJSONObject;  
  29.   leISP.Text := (JData.Get(‘isp‘).JsonValue as TJSONString).Value;  
  30.   leCountry.Text := (JData.Get(‘country‘).JsonValue as TJSONString).Value;  
  31.   leArea.Text := (JData.Get(‘area‘).JsonValue as TJSONString).Value;  
  32.   leRegion.Text := (JData.Get(‘region‘).JsonValue as TJSONString).Value;  
  33.   leCity.Text := (JData.Get(‘city‘).JsonValue as TJSONString).Value;  
  34.   JO.Free;  
  35.   ResponseStream.Free;  
  36. end;  

 

 

 

 

源代码下载：http://www.400gb.com/file/63073750

 

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

标签：

原文地址：http://www.cnblogs.com/wuyujie/p/4785729.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！