Foxtable(狐表)用户栏目专家坐堂 → 怎样在js中将值传给uploader


  共有2528人关注过本帖树形打印复制链接

主题:怎样在js中将值传给uploader

帅哥哟,离线,有人找我吗?
yuweijie
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
怎样在js中将值传给uploader  发帖心情 Post By:2018/7/4 15:40:00 [显示全部帖子]

考虑到weui的uploader没有对上传图片的方式进行限定(可以上传文件也可以拍照上传),而我的程序要求只充许拍照实时上传,所以我通过调用钉钉dd.biz.util.uploadImageFromCamera接口拍照,同时在页面中加入 关闭文件上传功能的uploader用于显示图片,问题是怎样在onsuccess中将result值传回页面。赋给aaaaaaaaaaaaaaaaaaaaaaaa.
--------------------------------------------
With .AddUploader("up1","",True)
            .AllowAdd = False '关闭文件上传功能
            .AddImage("aaaaaaaaaaaaaa")
End With
--------------------------------------------------js文件
var myDate = new Date();
document.getElementById('sczp').onclick = function () {
dd.biz.util.uploadImageFromCamera({
    compression: true,
    quality: 50,
    resize: 50,
    stickers: {
        time: myDate.toLocaleDateString(),
        username: document.getElementById('guanly1').value,
    },
    onSuccess : function(result) {
.....
    },
    onFail : function(err) {}
});
};

 回到顶部
帅哥哟,离线,有人找我吗?
yuweijie
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By:2018/7/5 3:03:00 [显示全部帖子]

能帮忙具体讲一下则么弄吗?基础比较差。

 回到顶部
帅哥哟,离线,有人找我吗?
yuweijie
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By:2018/7/5 12:03: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



 回到顶部
帅哥哟,离线,有人找我吗?
yuweijie
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By:2018/7/5 13:30:00 [显示全部帖子]

我没在浏览器中,是钉钉微应用

 回到顶部
帅哥哟,离线,有人找我吗?
yuweijie
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By:2018/7/7 15:27:00 [显示全部帖子]

如果是对比日期的话,怎么将字符串型转换成日期型?Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)

 回到顶部
帅哥哟,离线,有人找我吗?
yuweijie
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By:2018/7/7 17:17:00 [显示全部帖子]

                            Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                            s = s.SubString(0,10)
                            s = s.Replace(":","-")
                            Dim tprq As Date
                            Date.TryParse(s, tprq)
可以了

 回到顶部