VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb.net 教程 5-7 Bitmap类 3 获得图片信息Exif 3

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
 
最后专门谈谈图片中包含的经纬度信息。
 
 
 
 
 
PropertyItem.id从0至26都是关于gps信息。详细参看:
Property Tags in Numerical Order:https://msdn.microsoft.com/zh-cn/library/ms534418(v=vs.85).aspx
这里仅分析纬度。
 
纬度的id是2,具体代码:
 
    Private Function getPicInfo(ByVal picFullPath As String) As String
        Dim bmp As New Bitmap(picFullPath)
        Dim strTmp As String = ""
        For Each pro As Imaging.PropertyItem In bmp.PropertyItems
            Select Case pro.Id
                Case 2
                    strTmp = getGpsLatitude(pro.Value)
                Case 1
                    '。。。。。。请自己增加代码。。。。。。
                Case 3
                    '。。。。。。请自己增加代码。。。。。。
                Case 4
                    '。。。。。。请自己增加代码。。。。。。
                    'Case N
                    '。。。。。。请自己增加代码。。。。。。
            End Select
        Next
        Return strTmp
    End Function
 
 
增加断点可以看到纬度是一组长度为24的字节值:
 
 
 
 
 
 
具体值为:
 
 
 
前8个字节是度,中间8个字节是分,最后8个字节是秒。
 
具体getGpsLatitude代码:
 
    Private Function getGpsLatitude(ByVal bteValue() As Byte) As String
        If bteValue.Length <> 24 Then Return "错误的经纬度"
 
        Dim strTmp As String = ""
        Dim intFirst As Integer
        Dim intSecond As Integer
        intFirst = BitConverter.ToInt32(bteValue, 0)
        intSecond = BitConverter.ToInt32(bteValue, 4)
        strTmp &= (intFirst / intSecond).ToString & "°"
 
        intFirst = BitConverter.ToInt32(bteValue, 8)
        intSecond = BitConverter.ToInt32(bteValue, 12)
        strTmp &= (intFirst / intSecond).ToString & "'"
 
        intFirst = BitConverter.ToInt32(bteValue, 16)
        intSecond = BitConverter.ToInt32(bteValue, 20)
        strTmp &= (intFirst / intSecond).ToString & """"
 
        Return strTmp
    End Function
 
 
运行结果:
 
 
 
最后需要说明的是,id=2不一定是北纬,也许是南纬,还要根据id=1的值来判断。相关信息请自己搜索。
 
 
 
 
 
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
 
学习更多vb.net知识,请参看vb.net 教程 目录
 
 
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/79512112

相关教程