2 de marzo de 2004

Dimensiones de una imagen

Truco para conocer las dimensiones de una imagen desde VFP.
LOCAL loImagen AS IMAGE
LOCAL lcArchivo, lcNombre, lcRet
lcArchivo = GETPICT()
IF NOT EMPTY(lcArchivo)
  *-- Creo un objeto Image
  loImagen = CREATEOBJECT("Image")
  loImagen.STRETCH = 0
  loImagen.PICTURE = lcArchivo
  lcRet = "Nombre: " + JUSTFNAME(lcArchivo) + CHR(13) + ;
    "Dimensiones: " + ALLTRIM(STR(loImagen.WIDTH)) + ;
    " x " + ALLTRIM(STR(loImagen.HEIGHT))
  loImagen = .NULL.
  RELEASE loImagen
ELSE
  lcRet = "No se selecciono una imagen"
ENDIF
MESSAGEBOX(lcRet)

No hay comentarios. :

Publicar un comentario