Foxtable(狐表)用户栏目专家坐堂 → [求助]读取照片EXIF信息


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

主题:[求助]读取照片EXIF信息

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


加好友 发短信
等级:小狐 帖子:300 积分:2814 威望:0 精华:0 注册:2017/9/14 8:21:00
[求助]读取照片EXIF信息  发帖心情 Post By:2020/11/19 17:59:00 [只看该作者]

哪位有在狐表中能够使用的,能够读取照片EXIF信息控件?求提供点信息,谢谢!!

 回到顶部
帅哥,在线噢!
WELOVEFOX
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3343 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By:2020/11/19 18:05:00 [只看该作者]

'[分享]感谢【大红袍】的帮助 分享获取图像信息及
'图片文件Exif信息详细说明  发帖心情 Post By:2015/12/16 2:12:00 [只看该作者]

Dim img As Image = Image.FromFile("D:\IMG_20200522_155639.jpg")
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" )

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


加好友 发短信
等级:小狐 帖子:300 积分:2814 威望:0 精华:0 注册:2017/9/14 8:21:00
  发帖心情 Post By:2020/11/20 11:01:00 [只看该作者]

非常感谢

 回到顶部