tiff图像的数据分析(VB版).docVIP

根据代码解释，详细讲解在代码后。 先写一个如下的界面。基中testlong,command5,test.在这里没用。 提取数据按钮代码如下： Private Sub 提取数据_Click() Dim filename As String ‘这里用来指定tiff文件的所在路径。绝对路径 filename = C:\Documents and Settings\Administrator\桌面\1.tif Open filename For Binary As #1 ‘用二进制方法打开这个文件 Dim aryContent() As Byte 用来读取文件的数组 ReDim aryContent(3) ‘定义4个长度，2个为数据格式，2个为版本格式 Get #1, , aryContent() 取得第一文件的内容到数组 ‘二个逗号之间为空，表明从头开始读数据，或者从上一次读完后的地方再读数据，读到把数组装满后就不再读取，因此本次读了4个字节的数据 Dim version As String version = 整数格式为：H hex(aryContent(0)) hex(aryContent(1)) Car(13) ‘2个为数据格式 version = version 版本格式为：H Hex(aryContent(2)) Hex(aryContent(3)) ‘版本格式 ‘以下为按需要读取其它信息的代码。根据偏移量。在代码后面会有详细解释 Dim byte4() As Byte ReDim byte4(CInt(Text3.Text)) ‘这里动态的定义数组的大小，根据需要也可以写成clng(text3.text) If Text1.Text = 0 Then Text1.Text = 1 ‘防止没有写。 Get #1, CLng(Text1.Text), byte4() Dim i As Integer For i = 0 To CInt(Text3.Text - 1) version = version - Hex(byte4(i)) Next i Text2.Text = version ‘在Text2中显示出相关信息。 Close #1 ‘关闭 End sub 以我处理的文件为例。下面为读到的信息。 先处理文件头信息：如表一 表一 文件头信息 IFH结构描述 名称　　　　　　　　字节数　数据类型 说明 Byteorder 2 Integer TIF标记，其值为4D4D或4949 Version 2 Integer 版本号，其值恒为2A00 Offset to first IFD 4 Long 第一个IFD的偏移量 从1开始读取2个长度的字节码，得到:整数格式为：H7373版本格式为：H2A0-49-49 1-2 Byteorder :H49H49 2个字节 H4949时，低字节在前，高字节在后 3-4 Version :H2AH0 2个字节 5-8 Offset to firstIFD :第一个IFD的偏移量 因为低字节在前，所以处理时反过来。以后得到的数据都为16进制，在处理时都要反过来，把低字节放后，高字节放前。H186150，十进制为1597776，为偏移量 偏移量为1597776，但在text1处要填1597777。类似于一开始时，偏移量为0，但在那里填1。这里绕了几个小时，从http://www.awaresystems.be/imaging/tiff/tifftags/search.html下载一个软件installer0200.exe.里面可以把一些基本信息读出来，类似于本篇文章的代码功能。 再处理第一个IFD信息。信息内容如表二 表二 IFD结构描述 名称　　　　　　　　　字节数　数据类型 说明 Directory Entry Count 2 Integer 本IFD中DE的数量 Directory Entry(1) 12 简称DE，中文译义“目录项” Directory Entry(2) 12 …… Directory Entry(N) 12 Offset to next IFD 4 Long 下一个IFD的偏移量 从1597777开始读取2个长度的