vb.net 教程 5-7 Bitmap类 3 获得图片信息Exif 1

当前位置:

首页 > 编程开发 > vb >

vb.net 教程 5-7 Bitmap类 3 获得图片信息Exif 1

有些照片保存了拍摄时使用的的相机品牌、型号以及GPS、光圈、快门、白平衡、ISO、焦距、日期时间等信息，通常称为Exif信息，保存在Jpg文件头部，使用Bitmap类的PropertyItems属性很容易获得这些信息。

PropertyItems是PropertyItem对象数组，这些对象分别对应于此图像中存储的每个属性项。

PropertyItem有4个属性：

Id：某个图像信息的 ID。

Value：某个图像信息的值。

Len：Value 属性的长度（以字节为单位）。

Type：整数，它定义了Value 属性包含的数据类型。具体的数据类型如下（来自MSDN）：

我在查看其它资料的时候，发现除了MSDN指出的外，还有：

8 'SSHORT

9 'SLONG

11 'FLOAT

12 'DOUBLE

但我暂时还没有遇到过。

了解了以上知识，下面看看具体使用的代码。

设计时窗体：

当按钮按下时候：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim ofd As New OpenFileDialog()

ofd.Filter = "JPG文件|*.jpg"

ofd.FileName = ""

If ofd.ShowDialog() <> DialogResult.OK Then

Exit Sub

End If

Dim filename As String

filename = ofd.FileName

Label1.Text = filename

TextBox1.Text = getPicInfo(filename)

End Sub

getPicInfo的代码：

Private Function getPicInfo(ByVal picFullPath As String) As String

Dim bmp As New Bitmap(picFullPath)

Dim strPro As String = ""

For Each pro As Imaging.PropertyItem In bmp.PropertyItems

Dim strTmp As String = ""

Select Case pro.Type

Case 2 '空终止 ASCII 字符串

strTmp = System.Text.Encoding.ASCII.GetString(pro.Value).Replace(Chr(0), "")

Case Else

strTmp = "长度:" & pro.Len

End Select

strPro &= pro.Id.ToString & "----" & pro.Len & "----" & pro.Type & "----" & strTmp & ControlChars.CrLf

Return strPro

End Function

运行情况：

顺便附上使用的样本图片：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程目录

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/79511381

栏目列表