以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  网页端上传照片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113971)
--  作者：comnets
--  发布时间：2018/1/25 21:52:00
--  网页端上传照片
网页端上传照片，
读取摄像时间，
在电脑上给表的图片型列添加照片正常，可以读取摄像时间，放进表里。
在手机上上传照片，摄像时间不能显示。
这是什么原因？
[此贴子已经被作者于2018/1/25 21:52:01编辑过]
--  作者：有点甜
--  发布时间：2018/1/25 22:04:00
--  

我测试没问题，肯定没问题。

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        wb.AddForm("","form1","abc.htm")
        With wb.AddInputGroup("form1","ipg1","文件上传") \'文件上传
            .AddUploader("up1","")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
    Case "abc.htm"
        For Each key As String In e.Files.Keys
            If key = "up1" Then
                For Each fln As String In e.Files(key)
                    e.SaveFile(key, fln, ProjectPath & "Attachments\\" & fln)
                    Dim img As Image = Image.FromFile(ProjectPath & "Attachments\\" & fln)
                    Dim pt As PropertyItem() = img.PropertyItems
                    For i As Integer = 0 To pt.Length - 1
                        Dim p As PropertyItem = pt(i)
                        Select Case pt(i).Id
                            Case &H132
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("修改时间:  " & s)
                                Output.Show("")
                            Case &H9003
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("拍摄时间:  " & s)
                                Output.Show("")
                            Case &H110
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("相机型号:  " & s)
                                Output.Show("")
                            Case &H10F
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("制造商:  " & s)
                                Output.Show("")
                               
                            Case  &H131
                                Dim s As String = System.Text.Encoding.ASCII.GetString(p.value)
                                Output.Show("修改软件:  " & s)
                                Output.Show("")
                               
                        End Select
                    Next
                   
                    Dim 图像高度 As Integer = img.Height.ToString()
                    Output.Show("图像高度:  " & 图像高度 & " DPI" )
                    Dim 图像宽度 As Integer = img.Width.ToString()
                    Output.Show("图像宽度:  " & 图像宽度  & " DPI" )
                   
                Next
               
            End If
        Next
End Select
--  作者：zhangjian222200
--  发布时间：2018/12/26 15:52:00
--  
不必区分手机型号，

1.在weui里面获取拍摄时间，或者其他形式获取拍摄时间都可以，怎么处理勒？
2.图片大小
[此贴子已经被作者于2018/12/26 16:54:03编辑过]
--  作者：有点甜
--  发布时间：2018/12/26 20:28:00
--  
以下是引用zhangjian222200在2018/12/26 15:52:00的发言：
不必区分手机型号，

1.在weui里面获取拍摄时间，或者其他形式获取拍摄时间都可以，怎么处理勒？
2.图片大小
[此贴子已经被作者于2018/12/26 16:54:03编辑过]

 

参考

 

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