- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 二维码扫描 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117114)
-- 发布时间：2018/4/6 22:40:00
-- 二维码扫描
Dim e As RequestEventArgs = args(0)
Dim path As String = "foxtableAppTest"
Dim wb As new weui
Dim k As String
wb.AppendHTML("<script type=\'text/javascript\' src=\'/" & path & "/js/common.js\'></script>", True)
wb.AppendHTML("<link rel=\'stylesheet\' href=\'/" & path & "/css/common.css\' Type=\'text/css\' charset=\'utf-8\'/>", True)
wb.AddForm("","form1","zy.htm")
With wb.AddInputGroup("form1","ipg1","测试")
.AddInput("姓名","姓名","Text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html\',true,true);"""
End With
wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById(\'姓名\').value=r;}</script>")
e.WriteString(wb.Build)
1、我想将扫描后的 r值 赋值给 K，这个应该怎么写呢？
2、我想将扫描得到的内容直接跳转至 "zy.htm?nr=\'" & k & "\'"页面，这个要怎么改呢？
-- 发布时间：2018/4/7 9:21:00
--
wb.InsertHTML("<script>function scaned( t, r, f ) {location=\'zy.htm?nr=\' + r;}</script>")
-- 发布时间：2018/4/7 12:29:00
--
此主题相关图片如下：screenshot_2018-04-07-12-27-10-249_io.dcloud.h5c8.png
今天不知道怎么回事，一直调用不了手机摄像头，昨晚还可以的,是已通过HBuilder打包发布后的APP程序
[此贴子已经被作者于2018/4/7 12:29:57编辑过]
-- 发布时间：2018/4/7 13:49:00
--
请问这是怎么回事？一直提示 载入中 ，调用不了手机摄像头
[此贴子已经被作者于2018/4/7 13:49:03编辑过]
-- 发布时间：2018/4/7 14:39:00
--
卸载，然后重新打包安装试试。用甜版给的例子测试有没有问题？
-- 发布时间：2018/4/7 16:05:00
--
卸载，重新打包甜版的例子，也是不行，昨晚还可以的，今早突然不行，不知道怎么回事
-- 发布时间：2018/4/7 16:06:00
--
晕，可以了，重启了手机又可以了
-- 发布时间：2018/4/7 16:28:00
--
test.htm代码如下
Dim e As RequestEventArgs = args(0)
Dim path As String = "foxtableAppTest"
Dim wb As new weui
wb.AppendHTML("<script type=\'text/javascript\' src=\'/" & path & "/js/common.js\'></script>", True)
wb.AppendHTML("<link rel=\'stylesheet\' href=\'/" & path & "/css/common.css\' Type=\'text/css\' charset=\'utf-8\'/>", True)
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","测试")
.AddInput("姓名","姓名","Text")
End With
With wb.AddButtonGroup("form1","btn1",True)
.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html\',true,true);"""
End With
wb.AppendHTML("<div id=\'p1\' style=\'margin:0.5em\'></div>") \'插入一个div,用于显示服务器返回的数据
wb.InsertHTML("<script>function scaned( t, r, f ) {var result = sendAjaxText(r,\'accept.htm\',\'\',False);document.getElementById(\'p1\').innerHTML=result;}</script>")
e.WriteString(wb.Build)
accept.htm 代码如下：
Dim e As RequestEventArgs = args(0)
e.Writestring(e.PlainText)
扫描后返回不了数据，请问是哪里出错了？
[此贴子已经被作者于2018/4/7 16:28:13编辑过]
-- 发布时间：2018/4/7 16:51:00
--
accept.htm只是返回r的值，还不如直接赋值
wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById(\'p1\').innerHTML=r;}</script>")
-- 发布时间：2018/4/7 17:31:00
--
我知道，我是想将R值异步发送给accept.htm处理，以上仅是用于测试是否能异步发送数据去accept.htm页面并返回测试值回来而已，实际我是想异步发送r值过去accept.htm页面处理，处理成功后返回true，否则返回falsh