缘由：因智能助理在用户说出“天气如何”时，需要自动获取城市，所以这里需要根据用户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 #返回状态码 }