通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度

上传图片或显示SWF的时候都希望得到它的高度和宽度

基本原理使用Adodb.Stream读二进制文件然后进行解析，然后返回一数组

第一个元素为类型(BMP JPG PNG GIF SWF)

第二个元素为宽度{width}

第三个元素为高度{height}

第四个元素为width={width},height={height}式字符串

Class qswhImg

dim aso

Private Sub Class_Initialize

set aso=CreateObject("Adodb.Stream")

aso.Mode=3

aso.Type=1

aso.Open

End Sub

Private Sub Class_Terminate

set aso=nothing

End Sub

Private Function Bin2Str(Bin)

Dim I, Str

For I=1 to LenB(Bin)

clow=MidB(Bin,I,1)

if ASCB(clow)<128 then

Str = Str & Chr(ASCB(clow))

else

I=I+1

if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))

end if

Next

Bin2Str = Str

End Function

Private Function Num2Str(num,base,lens)

'qiushuiwuhen (2002-8-12)