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教程目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。