以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于使用Uploader中的一些问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135918)
--  作者：paniwangji
--  发布时间：2019/6/6 0:03:00
--  [求助]关于使用Uploader中的一些问题
请教各位老师：在使用Uploader的实例中，上传图片是拍照和从相册中选择2中方式，如果我想控制为只能通过拍照来上传图片能否实现？如果不行，在上传图片时能否读取手机中图片的拍摄时间？感谢！
--  作者：有点甜
--  发布时间：2019/6/6 9:40:00
--  

读取拍摄时间，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=121884&skin=0

 
--  作者：有点甜
--  发布时间：2019/6/6 9:44:00
--  

试试

 

比如测试代码

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","文件上传") \'文件上传
            .AddUploader("up1","")
        End With
       
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        wb.appendHTML("<script>up1.setAttribute(\'capture\',\'camera\');up1.setAttribute(\'accept\',\'image/*\');</script>")
        e.WriteString(wb.Build) \'生成网页
End Select