-
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版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/79511381
最新更新
求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() 对比