以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [分享]感谢【大红袍】的帮助 分享获取图像信息及图片文件Exif信息详细说明  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78730)

--  作者:hui986
--  发布时间:2015/12/16 2:12:00
--  [分享]感谢【大红袍】的帮助 分享获取图像信息及图片文件Exif信息详细说明

Dim img As Image = Image.FromFile("I:\\图像文件.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" )

 

 图片文件Exif信息详细说明

 

 


--  作者:lsy
--  发布时间:2015/12/16 7:33:00
--  
赶紧顶上。


--  作者:Hyphen
--  发布时间:2015/12/16 8:01:00
--  
顶一个
--  作者:332595
--  发布时间:2015/12/16 8:55:00
--  
你们整得好高深。。。
--  作者:大红袍
--  发布时间:2015/12/16 9:27:00
--  
谢谢分享