Controlar el peso y tamaño de una imagen al hacer upload

Varios amigos me han consultado alguna vez, cómo controlar  el tamaño y peso de una imagen, cara a aceptar la carga de ese fichero o rechazarla. Yo os cuento lo que hago usando ASP y VB:

1. Tengo una carpeta temporal en el servidor web con acceso de escritura.
   Llamémosla E:\doc\temporal
2. Usando por ejemplo el componente de Persist ASPUPLOAD cargo la imagen a la carpeta.
   Llámemos a la imagen imagen.jpg.
3. Ahora verificamos el tamaño y peso de la siguiente forma:

Peso del Archivo

<%
Set objFile = objFSO.GetFile(e:\doc\temporal\imagen.jpg)
tam = objFile.Size
‘ en la variable tam almacenamos el tamaño en bytes del archivo y hacemos lo que queramos.
%>

Dimensiones de la imagen

<%
Set MyImg = LoadPicture(e:\doc\temporal\imagen.jpg)
ancho = round(MyImg.width / 26.4583)
alto = round(MyImg.height / 26.4583)
‘ en las variables ancho y alto almacenamos el tamaño y hacemos lo que queramos.
%>

Advertisement