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
        Next
        Return strPro
    End Function

运行情况：

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

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

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

原文地址：https://www.jb51.cc/vb/256131.html