[Resolvido] altura e a largura da imagem

[xanburzum 169]

Dado um caminho válido para uma imagem JPEG no servidor web, a altura e a largura da imagem será devolvida.

 

Sub GetJpegDims(ByVal strFileName, ByRef lngHeight, ByRef lngWidth)
    on error resume next
	Dim stmFile
	set stmFile = server.createobject("ADODB.Stream")
    Dim bytArr(256)
	dim byt
    Dim intPos
    With stmFile
        .Type = adTypeBinary
        .Open
        .LoadFromFile strFileName
        .Position = 0
		
		for intPos = 0 to 255
			.position = intpos
        	bytArr(intPos) = ascb(.Read(1))
		next
        .Close
    End With
    Set stmFile = Nothing
    
    For intPos = 0 To 255
        If bytArr(intPos) = &HFF And bytArr(intPos + 1) >= &HC0 _
                         And bytArr(intPos + 1) <= &HCF Then
            lngHeight = bytArr(intPos + 5) * 256 + bytArr(intPos + 6)
            lngWidth = bytArr(intPos + 7) * 256 + bytArr(intPos + 8)
            Exit For
        End If
    Next 
End Sub