回复楼上，确实有你说的这个问题。
用js读取图片信息，然后赋值到网页那里，一起提交吧。
1、把exif.js拷贝到web/lib文件夹下
http://code.ciaoca.com/javascript/exif-js/version/exif-js.zip
http://code.ciaoca.com/javascript/exif-js/
2、httprequest事件，写代码
Dim fl As String = "c:\web\" & 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",".htm",".html",".css",".zip",".rar" '这里加上了js扩展名
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm", ""
Dim wb As New weui
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","文件上传")
With .AddUploader("up128","照片",True)
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
wb.AppendHTML("<script src='./lib/exif.js'></script>") '引入脚本文件
wb.AppendHTML("<script>up128.addEventListener('change', function(e){EXIF.getData(e.target.files[0], function() {alert(EXIF.pretty(this));alert(EXIF.getTag(this, 'DateTime'))})},false );</script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Case "receive.htm"
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"d:\123.jpg") '保存接收到的文件
Next
Next
e.WriteString("OK")
End Select
3、把弹出的值处理一下，赋值到你文本框里面即可。
加好友 
发短信
Post By：2018/7/15 18:05:00 [显示全部帖子]
