Foxtable(狐表)用户栏目专家坐堂 → 调用百度LBS创建POI云数据


  共有2768人关注过本帖树形打印复制链接

主题:调用百度LBS创建POI云数据

帅哥哟,离线,有人找我吗?
baoxyang
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
调用百度LBS创建POI云数据  发帖心情 Post By:2018/1/16 14:36:00 [只看该作者]

创建数据(create poi)接口
http://api.map.baidu.com/geodata/v4/poi/create
请求参数
参数名参数含义类型备注
title
位置数据名称
string(256)
可选。最多128个utf-8字符
address
位置数据地址
string(256)
可选。最多128个utf-8字符
tags
位置数据类别
string(256)
可选。最多200个tag,每个tag最长32个字符。
latitude
用户上传的纬度
double
必选。非百度墨卡托坐标时,取值为[-90,90]
longitude
用户上传的经度
double
必选。非百度墨卡托坐标时,取值为[-180,180]
polygons
多边形边界点坐标数据
double
可选
若该字段传入数据,则判定为面状位置数据。

格式为:经度,纬度;经度,纬度;经度,纬度
单个多边形最多创建400个边界点,最大字符长度为10240。
coord_type
用户上传的坐标的类型:1、2、3、4
uint32
必选
1:GPS经纬度坐标
2:国测局加密经纬度坐标
3:百度加密经纬度坐标
4:百度加密墨卡托坐标
geotable_id
创建数据的对应数据表id
string(50)
必选
ak
用户的访问权限key
string(50)
必选  申请ak
{column key}
用户在column定义的key/value对
用户自定义的类型(string、int、double)
唯一索引字段必选,且需要保证唯一,否则会创建失败。最大长度2048字节。
返回参数(json格式)
参数名
参数含义类型备注
status
状态码
int32
0代表成功,其它取值见文档最后状态码说明           
message
响应的信息
string(50)
状态码描述,成功时返回“OK”,失败返回对应信息
id
新增的位置数据id
string


请求示例
%E5%88%9B%E5%BB%BA%E6%95%B0%E6%8D%AE%E6%8E%A5%E5%8F%A3-%E8%AF%B7%E6%B1%82.png
返回结果示例
%E5%88%9B%E5%BB%BA%E6%95%B0%E6%8D%AE%E6%8E%A5%E5%8F%A3-%E7%BB%93%E6%9E%9C.png


Dim ss As String = "http://api.map.baidu.com/geodata/v4/poi/create?latitude=103.596177&longitude=33.910918&"
ss = ss & "coord_type=1&Geotable_id=1000002999&Ak=W7xPvB9IhRG6qk5ydyjwFkex46pM9UG6&{order}"
Dim hc As New HttpClient(ss)
Dim jo As JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)
If jo("status") IsNot Nothing Then
    Output.Show(jo("status").ToString)
End If
结果没有任务显示,是否代码有存在问题,请指点!!谢谢!!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/16 16:01:00 [只看该作者]

提示什么错误?你的ak要小写才行。

 

Dim ss As String = "http://api.map.baidu.com/geodata/v4/poi/create?latitude=103.596177&longitude=33.910918&"
ss = ss & "coord_type=1&Geotable_id=1000002999&ak=W7xPvB9IhRG6qk5ydyjwFkex46pM9UG6&{order}"

Dim hc As New HttpClient(ss)
Dim jo As JObject = Jobject.Parse(hc.GetData)
msgbox(jo.ToString)


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2018/1/16 16:23:00 [只看该作者]

没有任务报错,也没有返回任何信息

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/16 16:58:00 [只看该作者]

最后弹出什么?我执行后提示【app 服务被禁用

 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2018/1/17 12:01:00 [只看该作者]

已解决了!谢了

 回到顶部