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

前端之家收集整理的这篇文章主要介绍了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.f2er.com/vb/256131.html

猜你在找的VB相关文章