Foxtable(狐表)用户栏目专家坐堂 → 微信 获取用户地理位置和拍照


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

主题:微信 获取用户地理位置和拍照

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


加好友 发短信
等级:二尾狐 帖子:522 积分:5027 威望:0 精华:0 注册:2015/4/15 15:25:00
  发帖心情 Post By:2017/9/19 9:43:00 [只看该作者]

老师,您好。
国外的坐标,是否不能使用百度坐标转换API:http://lbsyun.baidu.com/index.php?title=webapi/guide/changeposition

下面是通过微信获取的WGS-84坐标系,准备转换会百度bd0911坐标系
Dim 纬度 As Double = 52.32029
Dim 经度 As Double = 9.806159
Dim ur1 As String = "http://api.map.baidu.com/geoconv/v1/?ak=VuoyLhIgEFg3ptz4GfhQhPtjyOlTEjHb&from=1&to=5&output=json&coords=" & 经度 & "," & 纬度
Dim hc1 As new HttpClient(ur1)
Dim jo1 = JObject.Parse(hc1.GetData)
output.show(jo1.Tostring)

运行错误:
{
  "status": 4,
  "message": "convert failed:point index:0 x:9.806159 y:52.32029",
  "result": []
}


查看百度地图帮助,错误描述为:转换失败(X→GPS时必现,根据法律规定,不支持将任何类型的坐标转换为GPS坐标)


我现在是通过微信获取gps坐标,再通过上面的代码转换为百度坐标,再由百度坐标获得地理位置。
如果百度坐标不能转国外的坐标,是否有别的办法可处理。


百度找的经纬度查询网站:http://www.gpsspg.com/maps.htm
我发现在国外坐标,不同地图显示坐标是一样的?
那是不是国外的坐标,不用转换,直接可以获取地理位置?
如果是这样的话,我怎么先来判断微信获取的坐标,是国内还是国外?

图片点击可在新窗口打开查看此主题相关图片如下:123.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/9/19 9:43:07编辑过]

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


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

 测试了一下,地图api本身,不支持转换。

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


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

国外的,或者转换报错的,你就直接使用原始的坐标呗。


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


加好友 发短信
等级:二尾狐 帖子:522 积分:5027 威望:0 精华:0 注册:2015/4/15 15:25:00
  发帖心情 Post By:2019/5/20 16:33:00 [只看该作者]

老师,通过JS传递过来的“经纬度"是否可以直接使用,或者存入到数据表中。
With wb.AddInputGroup("form1","ipg2")
      .AddInput("纬度","纬度","text").Readonly = True
      .AddInput("经度","经度","text").Readonly = True
End With

比如:
Dim dr As DataRow  = Tables("服务打卡").AddNew()
dr("经度") = "经度"
dr("纬度") = "纬度"
dr.save

现在是使用者操作下一步,才获取伟递过来的值,进行相应的计算。
.....
Else
    Dim 纬度 As Double = e.PostValues("纬度")
    Dim 经度 As Double = e.PostValues("经度")
......

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


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

传递过来以后,用ajax发送给后台httprequest事件

 

http://www.foxtable.com/mobilehelp/scr/0108.htm

 

http://www.foxtable.com/mobilehelp/scr/0107.htm

 


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


加好友 发短信
等级:二尾狐 帖子:522 积分:5027 威望:0 精华:0 注册:2015/4/15 15:25:00
  发帖心情 Post By:2019/5/20 17:51:00 [只看该作者]

老师,您好。
我用sendAjaxJSON可以将“经纬度"直接保存到数据表,但此时网页已经开,不能再用刚保存的值,进行计算并显示“地理位置"。
我的目的:网页开启不仅显示操作者“经纬度",同时显示“地理位置”。需要怎么处理?


[此贴子已经被作者于2019/5/20 17:51:37编辑过]

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


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

js里面,重定向到另一地址,如

 

location = "http://baidu.com"


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


加好友 发短信
等级:七尾狐 帖子:1561 积分:12809 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By:2020/7/24 20:15:00 [只看该作者]

请问甜版,这种用百度定位的经纬度和读取手机的经纬度,哪个更准确一些?

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


加好友 发短信
等级:狐精 帖子:3042 积分:20364 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/10/8 9:14:00 [只看该作者]

以下是引用qwz405在2017/6/9 15:35:00的发言:
老师,是纬度、经度,代入的问题。
我改成数字测试,就可以取得值。

Dim ur1 As String = "http://api.map.baidu.com/geoconv/v1/?coords=" & 纬度 & "," & 经度 &"&from=1&to=5&output=json&ak=VuoyLhIgEFg3ptz4GfhQhPtjyOlTEjHb"
能不能把成功的案例分项一下呢?我也正在做一个类似的打卡的页面。加QQ也可以278533471


 回到顶部
总数 29 上一页 1 2 3