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

[Mister]

我写了个函数利用 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

[Mister]

顶、顶、顶..........

[Mister]

来个人啊，急等着解决问题！！！！！！！！！！！！

[笨笨兔兔兔兔兔]

stream有text格式的

[Mister]

我要的是二进制读取。

Dim Data
Data = Stream.Read(10)

使用 TypeName 函数判断出 Data 确实是 Byte() 数组
使用 UBound 语句判断出下标是 9

现在的问题就是如何读取这个变量 Data 数组的成员？ 如果这样读取 Data(0) 则会发生错误！！！

[lds85930]

用 MidB LenB 等函数在 For 循环读取.