Funciones para calcular el ancho y alto de una imagen en pixels

[cokete]

Estas son las que yo uso, funcionan perfecto.

Código:

Private Function GetImageWidth(byVal strPath)
   dim myImg, fs 
   Set fs= CreateObject("Scripting.FileSystemObject") 
   if not fs.fileExists(strPath) then Exit Function 
   set myImg = loadpicture(strPath) 
   GetImageWidth = round(myImg.width / 26.4583) 
   set myImg = nothing 
End Function


Private Function GetImageHeight(byVal strPath)
   dim myImg, fs 
   Set fs= CreateObject("Scripting.FileSystemObject") 
   if not fs.fileExists(strPath) then Exit Function
   set myImg = loadpicture(strPath) 
   GetImageHeight = round(myImg.height / 26.4583) 
   set myImg = nothing 
End Function

Que alguien las meta en las Faq que no he visto ninguna....

[trasgukabi]

ponlo tu, no?

[AlZuwaga]

LoadPicture() siempre fue una función válida de vbscript????
La desconocía!

[trasgukabi]

Desde la versión 2 de ASP.

Devuelve un objeto de imagen. Disponible sólo en plataformas de 32 bits.

LoadPicture(imagen)
El argumento imagen es una expresión de cadena que indica el nombre del archivo de imagen que se va a cargar.

Observaciones
Los formatos de gráficos reconocidos por LoadPicture incluyen archivos de mapa de bits (.bmp), archivos de icono (.ico), archivos de codificación por longitud de línea (.rle), metarchivos (.wmf), metarchivo mejorado (.emf), archivos GIF (.gif) y archivos JPEG (.jpg).

cortesía del listado de funciones del CHM de tecnologías de Windows Script

[u_goldman]

Yo siempre utilice un componente cuando requeria hacer esto je je je, que bueno saber que contamos con esta herramienta

[trasgukabi]

tranquilo master, nadie se ha leído todo el listado de funciones. yo tampoco lo sabía.

[AlZuwaga]

Caray, yo también :s

Pre-salú!


EDIT:

tranquilo master, nadie se ha leído todo el listado de funciones. yo tampoco lo sabía.

Es que yo si me lo leí, en varias oportunidades, y nunca la había visto. Tal vez no presté la atención debida :p

[cokete]

Trasgucabi gracias por explicarnos el origen de estas funciones....

No sabia que se podian meter cosas directamente en las Faq.....

Por cierto... si ya conocias de esta función, como no haberla puesto antes hombre ¡¡¡ llevo semanas para localizar algo asi...

Un Saludo a todos¡

PD: Es la primera aportación que hago en el foro y que creo que le servirá a un monton de gente.