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 #返回状态码 }

转载于:https://www.cnblogs.com/fireboxsoft/p/5654987.html