Case "upload.htm"
wb.AddPageTitle("","xpsc","相片上传","近期正面规范证件照")
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","")
With .AddUploader("up2","我的照片",False)
.AllowAdd = False
.TextPosition = 0
.AddImage("./images/" & e.cookies("username") & ".jpg")
End With
With .AddUploader("up1","最新照片",True)
.TextPosition = 0
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
Dim btn1 =.Add("btn1", "确定", "button")
btn1.Attribute= "onclick='submitForm()'" '调用js函数上传
btn1.kind=1
Dim btn2 =.Add("btn2", "退出","","default.htm")
btn2.kind=1
btn2.Attribute = "onclick='history.go(-1)'"
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajx.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Case "receive.htm"
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号= '" & e.Cookies("username") & "'")
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"C:\web\images\" & e.Cookies("username") & "." & fln.split(".")(1)) '保存接收到的文件
dr("相片") = e.Cookies("username") & "." & fln.split(".")(1)
Next
Next
dr.save
DataTables("用户").loadfilter="身份证号='" & e.Cookies("username") & "'"
DataTables("用户").load
e.WriteString("OK")
请问高手,这段代码在用浏览器打开可调出摄像头,拍照并上传都可以,但用hbuilder打包成APP后就不能调出摄像头,这是什么原因,该如何办?请高手指点

9***@qq.com
- 发布:2017-10-15 19:40
- 更新:2017-10-16 09:44
- 阅读:1580
如何调起摄像头并能拍照
分类:HBuilder
2 个回复
回梦無痕 - 暂停服务
文档 拍照
五叶神 - 世界上没有免费的午餐,也不要有一颗贪婪的心
http://ask.dcloud.net.cn/article/12776
请看我分享的文章,有案例