本文整理自网络，侵删。
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 ansiendstext 用法之一(路径结尾自动加\)
Delphi的unicode与gb2312转转换,汉字unicode转gb2312
Delphi 在firemonkey应用程序中使用torientationsensor获取设备倾斜和指南针航向
更多相关阅读请进入《Delphi》频道 >>
