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


  共有10527人关注过本帖平板打印复制链接

主题：微信　获取用户地理位置和拍照
帅哥哟，离线，有人找我吗？
qwz405
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：522 积分：5033 威望：0 精华：0 注册：2015/4/15 15:25:00 		微信　获取用户地理位置和拍照  发帖心情 Post By：2017/6/6 18:33:00 [只看该作者]

老师，您好。
咨询如下问题：
1.无法将"scan2"拍摄的照片，存入到“照片”中；
2.“照片”能否锁定，只能通过"scan2"获取，不能手动添加；
3.“纬度”、“经度”能正常获取，如何获得地理位置。
下面的代码能获取地理位置，而且测试位置很准确。但不知道怎么写代码，使其填入到“位置”中。
  Dim 纬度 As Double = 30.799173
  Dim 经度  As Double = 120.781265
  Dim ur As String = "http://api.map.baidu.com/geocoder/v2/?ak=hAaa2NLELKdAIfMhMjnuEgi1&output=json&location=" & 纬度 & "," & 经度
  Dim hc As new HttpClient(ur)
  Dim jo = JObject.Parse(hc.GetData)
  output.show(jo.Tostring)
  If jo("status") = 0 Then
      'msgbox(jo("result")("addressComponent")("province"))      '省份
      'msgbox(jo("result")("addressComponent")("city"))          '城市
      'msgbox(jo("result")("addressComponent")("district"))      '区域
      msgbox(jo("result")("formatted_address"))                  '地理位置
  End If
4.运行下面的代码，能向表中添加“类型”、“照片”，但不能添加“纬度”、"经度”(单精度小数)，用字符型，运行时网页卡住不动，退出网页foxtable会提示：由于线程退出或应用程序请求，已中止 I/O 操作。
５.整个界面很丑，是否可以隐藏掉“获取经度纬度”、“纬度”、“经度”，这样比较简洁，或者“纬度”、“经度”不要保存了，我只要地理位置数据就可以了。



一.程序代码
 Case "hhh.htm" '首页
        
        If e.PostValues.Count = 0 Then
            
            wb.AddForm("","form1","hhh.htm")
            
            wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.2.0.js'></script>",True) '引入JS-SDK库
            
            wb.AppendHTML("<script src='./lib/jssdk2.js'></script>")     '引入脚本文件
            '在页面注入权限验证配置
            Dim st As New Date(1970,1,1,8,0,0)
            Dim appid As String = "wx4718459301f2db8f" '开发者ID
            Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
            Dim noncestr As String = Rand.NextString(16) '随机字符
            Dim url As String  = e.Request.URL.ToString '当前页面地址
            Dim signature As String = Functions.Execute("GetJsSignature", noncestr, timestamp, url)     '生成权限验证签名
            Dim cfg As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['chooseImage']});"
            wb.AppendHTML("<script>" & CExp(cfg,appid,timestamp,noncestr,signature) & "</script>",True)
            
            '开始正常生成网页内容
            With wb.AddInputGroup("form1","ipg1","打卡")
                .AddSelect("类型","类型","|出发|抵达|离开|返厂")
                .AddUploader("照片","照片",False)      'False表示,只允许上传一张照片
            End With
            
            With wb.AddButtonGroup("form1","btg1",False)  '垂直排列
                .Add("scan2","拍摄照片","button")
            End With
            
            wb.AppendHTML("<script src='./lib/jssdk1.js'></script>")   '引入脚本文件
            '在页面注入权限验证配置
            Dim cfg2 As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['scanQRCode']});"
            wb.AppendHTML("<script>" & CExp(cfg,appid,timestamp,noncestr,signature) & "</script>",True)
            
            With wb.AddButtonGroup("form1","btg2",False)  '垂直排列
                .Add("scan1","获取经度纬度","button")
                .Add("scan3","获取地址位置","button")
            End With
            
            With wb.AddInputGroup("form1","ipg2","地址位置")
                .AddInput("纬度","纬度","text").Enabled = False
                .AddInput("经度","经度","text").Enabled = False
                With wb.AddInputGroup("form1","ipg3","位置")
                    .AddTextArea("wz",3).Enabled = False
                End With
            End With
            
            With wb.AddButtonGroup("form1","btg3",True)
                .Add("btn1", "确定", "submit")
            End With
            e.WriteString(wb.Build)
        Else
            Dim nms() As String = {"类型","照片","纬度","经度","位置"}
            Dim dr As DataRow = DataTables("服务打卡").AddNew()
            For Each nm As String In nms
                dr(nm) = e.PostValues(nm)
            Next
            For Each key As String In e.Files.Keys
                If key = "照片" Then
                    For Each fln As String In e.Files(key)
                        e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
                    Next
                    dr.Lines("照片") = e.Files(key)
                End If
            Next
            '保存并生成增加成功提示页面
            e.WriteString(wb.Build)
        End If



二.JS代码
二.1：jssdk1代码
wx.ready(function () {
    document.getElementById('scan1').onclick = function () {
        wx.getLocation({
            type: 'wgs84',       // 默认为wgs84的gps坐标，如果要返回直接给openLocation用的火星坐标，可传入'gcj02'
            success: function (res) {
                document.getElementById('纬度').value = res.latitude;           // 纬度，浮点数，范围为90 ~ -90
document.getElementById('经度').value = res.longitude;      // 经度，浮点数，范围为180 ~ -180。
            }
        });
    };
});
wx.error(function (res) {
    //alert(res.errMsg);
});


二.2：jssdk1代码
wx.ready(function () {
    document.getElementById('scan2').onclick = function () {
        wx.chooseImage({
            count: 1,       // 默认9
            sizeType: ['compressed'],           // 可以指定是原图['original']还是压缩图['compressed']，默认二者都有
sourceType: ['album','camera'],     // 可以指定来源是相册['album']还是相机['camera']，默认二者都有
            success: function (res) {
                document.getElementById('照片').value = res.localIds;
            }
        });
    };
});
wx.error(function (res) {
    //alert(res.errMsg);
});


图片点击可在新窗口打开查看此主题相关图片如下：1231.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/6/6 18:38:17编辑过]
 回到顶部
总数 29 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03418 秒, 5 次数据查询