专家坐堂-[求助]读取照片EXIF信息Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]读取照片EXIF信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158423)

--  作者：一丁
--  发布时间：2020/11/19 17:59:00
--  [求助]读取照片EXIF信息
哪位有在狐表中能够使用的，能够读取照片EXIF信息控件？求提供点信息，谢谢！！

--  作者：WELOVEFOX
--  发布时间：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" )

--  作者：一丁
--  发布时间：2020/11/20 11:01:00
--
非常感谢