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 #返回狀態代碼 }

DELPHI調用百度定位API（根據IP擷取城市及GPS資訊等）