Fijate si te sirve esto.es para bajar el peso de una imagen. en algun momento lo usé y me solucionó el tema.
usa la clase _gdiPlus.vcx envio adjunto el prg ya que tiene 1.9k Espero te sirva. Saludos Carlos Morandin
Se usa algo así: lcFileNew =ResizePicture(lcFilename,320,240,100) *!* FUNCTION ResizePicture() *!* La funcion requiere de 4 parametros: *!* tcFile -> Archivo de imagen *!* tcWitdth -> Nuevo ancho de imagen *!* tcHeigth -> Nuevo alto de imagen *!* tcQuality -> Calidad para el redimencionamiento (0 - 100) El 02/09/2014 a las 08:20 p.m., Norberto Mario Alvarez escibió:
Estimados Colisteros, por medio de un sistema tengo que tomar una foto en jpg (yo la selecciono) y esta puede variar de tamaño 6 Mb, 4 Mb y tengo que bajar el peso de la misma y a su vez crear el Thumbnail, para que luego la envio a una ruta via ftp. Me han comentado del ImageMagick y la verdad no se por donde empezar, si alguien utilizo esta librería o alguna otra solicito una mano y/o ejemplo. Desde ya muchas gracias por vuestra atención. ** *Norberto Alvarez* *Socio # 1892*
-- Carlos Morandin Avellaneda 1428 CP 3080 Esperanza Santa Fe Tel (03496) 430443 Cel (03496) 15-542529 [email protected]
resizepicture.prg
Description: application/prg
