(Resolvido) Largura e Altura usando Persits.Jpeg

[WebSan.Com.Br]

Estou com uma dúvida cruel, onde acho milhares de resposta, mas nenhuma que resolva o meu problema !

Preciso fazer upload de uma imagem, e salvar no MySql os dados desta imagem, nome, extenção, tamanho, largura e altura usando o componente AspSmartUpload.

Bom, até agora consegui quase tudo, menos largura e altura !

Meu código, padrão, bem simples.

Dim SmartUpload
Dim file

Set SmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
SmartUpload.MaxFileSize = 2000000
SmartUpload.AllowedFilesList = "gif,jpeg,jpg,png"
SmartUpload.Upload

For each file In SmartUpload.Files

If not file.IsMissing Then
Imagem = file.FileName

file.SaveAs(Server.MapPath("../SmartUpload/" & Imagem))

tamanho = file.Size
extensao = file.FileExt
End If
Next

'Adiciono no bd
Conn.Execute "INSERT INTO banco_imagens"&_
"(datadia, nome, tamanho, extensao) VALUES "&_
"('" & now() & "', '" & Imagem & "', '" & tamanho & "', '" & extensao & "')"

Response.Write("Imagem adicionada com sucesso !")

Mas agora, como pegar a largura e altura ? Bom, vejo que no SmartUpload ele não tem uma variavel que recupera isto, como por exemplo o do tamanho (file.Size) ou da extensão (file.FileExt), então procurando na net achei um SUB que altera o tamanho da imagem que já existe no servidor, agora gostaria de tentar usar este código a meu favor, mas não obtive sucesso, alguêm poderia saber como eu faria ? Dêem uma olhada no código abaixo que achei:

dim iWidth, iheight
sub ImgDimension(img)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(img) then exit sub
set myImg = loadpicture(img)
iWidth = round(myImg.width / 26.4583)
iheight = round(myImg.height / 26.4583)
set myImg = nothing
end sub

ImgDimension(Server.MapPath("server image file"))

Editado Janeiro 8, 2009 por Rafael Spilki

[WebSan.Com.Br]

Eu já consegui: olhem...

Se baseando no meu upload acima !

file.SaveAs(Server.MapPath("../SmartUpload/" & Imagem))

tamanho = file.Size
extensao = file.FileExt

' Após eu fazer o upload, recupero os dados da imagem usando PERSITS.JPEG!

Set objJpeg = Server.CreateObject("Persits.Jpeg")
objJpeg.Open Server.MapPath("../SmartUpload/" & Imagem)
Altura = objJpeg.OriginalHeight
Largura = objJpeg.OriginalWidth

' E depois disso posso salvar no Mysql todos os dados

'Adiciono no bd
Conn.Execute "INSERT INTO banco_imagens"&_
"(datadia, nome, tamanho, extensao, largura, altura) VALUES "&_
"('" & now() & "', '" & Imagem & "', '" & tamanho & "', '" & extensao & "', '" & Largura & "', '" & Altura & "')"

Isso ai...

*Agradecimentos: salgado e xanburzum*