[Resolvido] Pegando Altura e Largura de uma imagem JPEG

[xanburzum 169]

Dado um caminho válido para uma imagem JPEG no servidor, a altura ea largura da imagem será devolvido.

 

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