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

柔光的暖阳◎ 2022-09-11 02:26 83阅读 0赞

上一节学习了如何获得Exif信息，并且获得Property的Type属性为2的ASCII 字符串信息。那么其他的一些信息怎么获得？

由于exif的大部分信息是为无符号的长整型对数组,每一对都表示一个分数；第一个整数是分子，第二个整数是分母。因此在此学习前先学习BitConverter 类的用法。

BitConverter 类可以将基础数据类型与字节数组相互转换。

先看看以下两个代码段：

Private Sub Button2\_Click(sender As Object, e As EventArgs) Handles Button2.Click  
        Dim bteTest() As Byte = \{10, 0, 0, 0, 255, 0, 0, 0\}  
        Dim intA As Integer = BitConverter.ToInt32(bteTest, 0)  
        Dim intB As Integer = BitConverter.ToInt32(bteTest, 4)  
        MessageBox.Show("intA=" & intA & " intB=" & intB)  
    End Sub

运行结果：

使用BitConverter.ToInt32将4个字节转为Int32(Integer)的值。

Private Sub Button3\_Click(sender As Object, e As EventArgs) Handles Button3.Click  
        Dim bteTest() As Byte = \{&H10, &H2, 0, 0, 255, 2, 0, 0\}  
        Dim intA As Integer = BitConverter.ToInt32(bteTest, 0)  
        Dim intB As Integer = BitConverter.ToInt32(bteTest, 4)  
        MessageBox.Show("intA=" & intA & " intB=" & intB)  
    End Sub

运行结果：

仍然是转为Int32的值，但是需要注意的是，通常情况字节顺序是高位在后：

&H10，&H2，0，0 =>210(十六进制）  =>528（十进制）  
255，2，0，0 =>2FF(十六进制）  =>767（十进制）

回到Bitmap.PropertyItems。  
修改后的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 1    
                    strTmp = "length:" & pro.Len  
                Case 2  
                    strTmp = System.Text.Encoding.ASCII.GetString(pro.Value).Replace(Chr(0), "")  
                Case 3  
                    strTmp = BitConverter.ToInt16(pro.Value, 0)  
                Case 4  
                    strTmp = BitConverter.ToInt32(pro.Value, 0)  
                Case 5  
                    strTmp = getvalue(pro.Value).ToString  
                Case 6  
                    strTmp = "type:" & pro.Type & " " & pro.Value.ToString  
                Case 7  
                    strTmp = "type:" & pro.Type & " " & pro.Value.ToString  
                Case 8  
                    strTmp = "type:" & pro.Type & " " & pro.Value.ToString  
                Case 9  
                    strTmp = "type:" & pro.Type & " " & pro.Value.ToString  
                Case 10  
                    strTmp = getvalue(pro.Value).ToString  
                Case 11  
                    strTmp = BitConverter.ToSingle(pro.Value, 0)  
                Case 12  
                    strTmp = BitConverter.ToDouble(pro.Value, 0)  
            End Select  
            strPro &= pro.Id.ToString & "----" & pro.Len & "----" & pro.Type & "----" & strTmp & ControlChars.CrLf  
        Next  
        Return strPro  
    End Function

其中调用的getValue代码：

Private Function getvalue(ByVal bteValue() As Byte) As Single  
        Dim intFirst As Integer  
        Dim intSecond As Integer  
   
        If bteValue.Length = 8 Then  
            intFirst = BitConverter.ToInt32(bteValue, 0)  
            intSecond = BitConverter.ToInt32(bteValue, 4)  
            Return intFirst / intSecond  
        End If  
        Return 0  
    End Function

运行结果：

msdn上也对PropertyItem的Id的含义做了说明，更详细的说明可以参看：https://msdn.microsoft.com/zh-cn/library/ms534416(v=vs.85).aspx\#\_gdiplus\_constant\_propertytagexiffnumber  
例如：33437十六进制值为：829D，对应的是相机光圈

需要注意的是，不同的id，即使propertyitem.type相同，所包含的数据也可能不同。

最后再次吐槽csdn的编辑器。居然编死了几次，害得我不得不再次打字录入，提心吊胆的。

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

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

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/