http://api.map.baidu.com/geoconv/v1/?

百度地图的API说明

使用方法

第一步，申请密钥（ak），作为访问服务的依据；

第二步，按照请求参数说明拼写发送http请求的url，注意需使用第一步申请的ak；

第三步，接收返回的数据（json或者xml格式）。

注：本接口支持回调。

服务地址

http://api.map.baidu.com/geoconv/v1/?

组成说明：

• 域名：http://api.map.baidu.com
• 服务名：geoconv
• 服务版本号：v1

服务参数说明

返回值说明

delphi 的调用过程

procedure GpsToBaiDu(Gx,Gy:real;var Bx,By:real);
const
  urs1='http://api.map.baidu.com/geoconv/v1/?coords=';
  urs2='&&ak=你的秘钥';//两个&&
var
  url:string;
  ts:Tstringstream;
  jo: ISuperObject;
  xy: TSuperArray;
begin
  url:=urs1+floattostr(Gx)+','+floattostr(Gy)+urs2;
  ts:=Tstringstream.Create;
  try
   IdHTTP1.Get(url,ts);
   ts.Position:=0;
   jo:=so(ts.DataString);
   xy:=jo['result'].AsArray;
   jo:=so(xy[0].AsString);
   Bx:=jo['x'].AsDouble;
   By:=jo['y'].AsDouble;
 except   //转换失败
   Bx:=gx;
   By:=gy;
   exit;
 end;
end;