以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教移动端能否用weui+钉钉移动端jsapi来开发呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120751)
--  作者：yuweijie
--  发布时间：2018/6/22 21:18:00
--  请教移动端能否用weui+钉钉移动端jsapi来开发呢
请教移动端能否用weui+钉钉移动端jsapi来开发呢，该咋用呢？
--  作者：有点蓝
--  发布时间：2018/6/22 21:32:00
--  
调用接口的方法都差不多一样的，按官方文档一步步操作即可：http://www.foxtable.com/mobilehelp/scr/0205.htm
--  作者：yuweijie
--  发布时间：2018/6/23 14:58:00
--  
我用weui做界面，调用钉钉扫码接口为什么出不来？
1.界面代码
Dim fl As String = "D:\\fox项目\\管理项目1\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
Select Case e.Path
    Case "scan.htm"
        Dim wb As New weui
        wb.AppendHTML("<script src=\'http://g.alicdn.com/dingding/open-develop/1.9.0/dingtalk.js\'></script>",True) \'引入JS-SDK库
        wb.AppendHTML("<script src=\'./lib/jssdk.js\'></script>") \'引入脚本文件
        wb.AddForm("","form1","scan.htm")
        With wb.AddInputGroup("form1","ipg1","产品检测")
            .AddInput("product","产品","text")
            With .AddInputCell("ic1")
                .AddLabel("lbh","编号",0)
                .AddInput("number","text",1)
                .AddVcodeButton("scan","扫码输入",2) \'增加二维码扫描按钮,2表示显示在右边
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

2.调用钉钉接口，按照开发文档，新建了lib/jssdk.js文件，代码为：
dd.ready(Function(){
    document.getElementById(\'scan\').onclick = function () {
      dd.biz.util.scan({
         type: all,
         onSuccess: Function (data) {
         document.getElementById(\'number\').value = data.resultStr;
         }
      });
    };
}

但在钉钉微应用中打开这个界面，按扫码输入按钮，没有反应，调不出钉钉扫码接口。肯请帮忙指导一下。
--  作者：有点蓝
--  发布时间：2018/6/23 15:11:00
--  
权限验证做了没有

https://open-doc.dingtalk.com/docs/doc.htm?spm=a219a.7629140.0.0.mpso7f&treeId=171&articleId=104910&docType=1
--  作者：yuweijie
--  发布时间：2018/6/23 15:46:00
--  
钉钉文档中，好像扫码不需要权限验证
--  作者：yuweijie
--  发布时间：2018/6/23 15:47:00
--  
biz.util.scan不需要扫码
--  作者：yuweijie
--  发布时间：2018/6/23 15:47:00
--  

[此贴子已经被作者于2018/6/23 15:47:23编辑过]
--  作者：有点蓝
--  发布时间：2018/6/23 16:05:00
--  
看看能不能弹出提示

dd.ready(Function(){
    document.getElementById(\'scan\').onclick = function () {
alert("1");
      dd.biz.util.scan({
         type: all,
         onSuccess: Function (data) {
alert(data);
         document.getElementById(\'number\').value = data.resultStr;
         }
      });
    };
}
--  作者：yuweijie
--  发布时间：2018/6/23 16:10:00
--  
弹不出来
--  作者：有点蓝
--  发布时间：2018/6/23 16:16:00
--  
jssdk.js文件放在哪个目录里，本地完整路径是什么？

事件头的路径是什么？
Dim fl As String = "D:\\fox项目\\管理项目1\\" & e.path
msgbox(fl)