Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Lendo as Dimensões de uma imagem

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado 

<%

Dim Width

Dim Height

Dim Path

 

Width = -1

Height = -1

 

Path = Request.QueryString("Path")

If Path = "" Then Path = "xan.gif"

Call LerImg(Path)

 

%>

<HTML>

<HEAD>

<TITLE>Lendo as Dimensões </TITLE>

</HEAD>

<BODY>

<H1>Lendo as Dimensões</H1>

<P>

Esta demonstração vai

ler um arquivo GIF e retornar as

dimensões.

</P>

<FORM>

<INPUT name="Path" value="<%=Path%>"><BR>

<INPUT type="Submit" value="Get Dimensions">

</FORM>

Width: <%=Width%><BR>

Height: <%=Height%><BR>

<BR>

 

</BODY>

</HTML>

<%

Sub LerImg(ByRef pStrPath)

 

Dim lObjFSO

Dim lStrData

Dim lStrPath

'aqui verificamos uma imagem com extensão .gif

If Not UCase(Right(pStrPath, 4)) = ".GIF" Then Exit Sub

 

If InStr(1, pStrPath, "\") = 0 Then

lStrPath = Server.MapPath(pStrPath)

Else

lStrPath = pStrPath

End If

 

Set lObjFSO = Server.CreateObject("Scripting.FileSystemObject")

If lObjFSO.FileExists(lStrPath) Then

lStrData = lObjFSO.OpenTextFile(lStrPath).ReadAll()

End If

Set lObjFSO = Nothing

If Len(lStrData) < 10 Then Exit Sub

If Not Left(lStrData, 3) = "GIF" Then Exit Sub

Width = CInt("&h" & _

Right("0" & Hex(Asc(Mid(lStrData, 8))), 2) & _

Right("0" & Hex(Asc(Mid(lStrData, 7))), 2) _

)

 

Height = CInt("&h" & _

Right("0" & Hex(Asc(Mid(lStrData, 10))), 2) & _

Right("0" & Hex(Asc(Mid(lStrData, 9))), 2) _

)

End Sub

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito