二进制读取图片，判断其格式的问题

2006-07-13 10:04:35 570 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

告别切换烦恼！用Parallels Desktop的Host-Only网卡，在macOS上直接访问虚拟机里的公司内网本文详细介绍了如何在macOS上使用Parallels Desktop的Host-Only网卡直接访问虚拟机内的公司内网，告别频繁切换操作系统的烦恼。通过配置Host-Only网络模式，实现主机与虚拟机的安全高效通信，特别适合需要频繁访问内网资源的IT从业者。文章包含分步指南、自动化脚本和常见问题解决方案，帮助用户优化工作流程。阅读详情

我写了个函数利用 ADODB.Stream 对像读取图片头部 10 个字节，判断其图片格式。
问题如下：Stream.Read(10) 返回的 Byte() 字节数组却无法利用下标访问!!

Response.Write TypeName(Data) & "<BR>" & UBound(Data)
Response.End

结果如下：
Byte()
9

如何访问这个 Byte() 数组啊？

源代码如下：

Public Function GetImageType(FileName)
Dim Data

Set Stream = CreateObject("ADODB.Stream")

FileName = CStr(FileName) '强制类型装换
Stream.Mode = 3 '可读写
Stream.Type = 1 '二进制读取
Stream.Open '打开流对像
Stream.LoadFromFile FileName '加载文件
Data = Stream.Read(10) '预读取十个字节
Stream.Close '关闭流对像

'下面注释掉的语句，输出 Byte() 和 9 ！！但无法用 Data(0),Data(1) .... 来访问数据！！
'Response.Write TypeName(Data) & "<BR>"
'Response.Write UBound(Data)
'Response.End

'判断是否是 BMP 格式图片，标志为 42 4D 36 偏移值为 0
If Data(0) = 66 And Data(1) = 77 And Data(2) = 54 Then
GetImageType = 1
Exit Function
End If

'判断是否是 JPEG 格式图片，标志为 4A 46 49 46 偏移值为 6
If Data(6) = &H4A And Data(7) = &H46 And Data(8) = &H49 And Data(9) = &H46 Then
GetImageType = 2
Exit Function
End If

'判断是否是 GIF 格式图片，标志为 47 49 46 偏移值为 0
If Data(0) = &H47 And Data(1) = &H49 And Data(2) = &H46 Then
GetImageType = 3
Exit Function
End If

'判断是否是 PNG 格式图片，标志为 50 4E 47 偏移值为 1
If Data(1) = &H50 And Data(2) = &H4E And Data(3) = &H47 Then
GetImageType = 4
Exit Function
End If

'判断是否是 TIF 格式图片，标志为 49 49 2A 00 4C 42 偏移值为 0
If Data(0) = &H49 And Data(1) = &H49 And Data(4) = &H4C And Data(5) = &H42 Then
GetImageType = 5
Exit Function
End If

GetImageType = 0
End Function

...全文