DELPHI调用百度定位API（根据IP获取城市及GPS信息等）

 

缘由：因智能助理在用户说出“天气如何”时，需要自动获取城市，所以这里需要根据用户IP自动获取城市，所以有了这篇文章 QQ508882988

//根据百度API，根据来访IP自动获取出该IP所在的位置及更多信息，参数IP为空时，会使用当前访问者的IP地址作为定位参数
//sServerAK为用户密钥 string 必选，在lbs云官网注册的access key，作为访问的依据，定期从http://lbsyun.baidu.com/apiconsole/key获取
//参考http://lbsyun.baidu.com/index.php?title=webapi/ip-api#.E6.9C.8D.E5.8A.A1.E5.9C.B0.E5.9D.80
//function GetLocInfByIP_BaiDu(sIP, sServerAK: string): string;

uses SuperObject; 

function GetLocInfByIP_BaiDu(sIP, sServerAK: string): string;
  var sUrl, ak, sIPS, sR: string;
  vJson, vj: ISuperObject;
  response: TStringStream;
  FHttp: TIdHTTP;
begin
  sR := '';
  ak := '9fe55cc6597c6b331754b19a048accd4';
  if sIP <> '' then begin
    sIPS := '&ip='+ sIP;
  end else begin
    sIPS := '';
  end;

  sUrl := 'http://api.map.baidu.com/location/ip?ak='+sServerAK + sIPS;
  response := TStringStream.create('', tencoding.utf8);
  FHttp := TIdHttp.Create(nil);
  sR := FHttp.Post(sUrl, response);
  FHttp.Free;
  vJson := SO((sr));

  //我这里只用到城市，所以如下取出，各位客官可自行根据情况获取
  result := SO(SO(vJson.S['content']).S['address_detail']).S['city'];
end;

 

返回的结果json串形如下：

  {  
        address: "CN|北京|北京|None|CHINANET|1|None",   #地址  
        content:       #详细内容  
        {  
        address: "北京市",   #简要地址  
        address_detail:      #详细地址信息  
        {  
        city: "北京市",        #城市  
        city_code: 131,       #百度城市代码  
        district: "",           #区县  
        province: "北京市",   #省份  
        street: "",            #街道  
        street_number: ""    #门址  
        },  
        point:               #百度经纬度坐标值  
        {  
        x: "116.39564504",  
        y: "39.92998578"  
        }  
        },  
        status: 0     #返回状态码  
    }