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

 

淘宝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;