delphi 调用百度地图WEBSERVICE转换GPS坐标

百度地图的API说明

使用方法

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

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

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

注：本接口支持回调。

服务地址

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

组成说明：

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

服务参数说明

参数	含义	取值范围	是否必须	默认取值
coords	源坐标	格式：经度,纬度;经度,纬度… 限制：最多支持100个 格式举例： 114.21892734521,29.575429778924; 114.21892734521,29.575429778924	是	无
ak	开发者密钥		是	无
sn	用户的权限签名		否	若用户所用ak的校验方式为sn校验时该参数必须。 （sn生成算法）
from	源坐标类型	取值为如下： 1：GPS设备获取的角度坐标; 2：GPS获取的米制坐标、sogou地图所用坐标; 3：google地图、soso地图、aliyun地图、mapabc地图和amap地图所用坐标 4：3中列表地图坐标对应的米制坐标 5：百度地图采用的经纬度坐标 6：百度地图采用的米制坐标 7：mapbar地图坐标; 8：51地图坐标	否	默认为1，即GPS设备获取的坐标
to	目的坐标类型	有两种可供选择：5、6。 5：bd09ll(百度经纬度坐标), 6：bd09mc(百度米制经纬度坐标);	否	默认为5，即bd09ll(百度坐标)
output	返回结果格式	json或者xml	否	json

返回值说明

名称		类型	含义	取值范围
status		init	状态码	正常0，异常非0，详细见状态码说明
result		json或者xml数组	转换结果	与输入顺序一致
	x	float	横坐标
	y	float	纵坐标

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;