-
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
最新更新
求1000阶乘的结果末尾有多少个0
详解MyBatis延迟加载是如何实现的
IDEA 控制台中文乱码4种解决方案
SpringBoot中版本兼容性处理的实现示例
Spring的IOC解决程序耦合的实现
详解Spring多数据源如何切换
Java报错:UnsupportedOperationException in Col
使用Spring Batch实现批处理任务的详细教程
java中怎么将多个音频文件拼接合成一个
SpringBoot整合ES多个精确值查询 terms功能实
数据库审计与智能监控:从日志分析到异
SQL Server 中的数据类型隐式转换问题
SQL Server中T-SQL 数据类型转换详解
sqlserver 数据类型转换小实验
SQL Server数据类型转换方法
SQL Server 2017无法连接到服务器的问题解决
SQLServer地址搜索性能优化
Sql Server查询性能优化之不可小觑的书签查
SQL Server数据库的高性能优化经验总结
SQL SERVER性能优化综述(很好的总结,不要错
uniapp/H5 获取手机桌面壁纸 (静态壁纸)
[前端] DNS解析与优化
为什么在js中需要添加addEventListener()?
JS模块化系统
js通过Object.defineProperty() 定义和控制对象
这是目前我见过最好的跨域解决方案!
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比