Buen dia,
Alguna ves usé esta funcion que alguien pasó y me sirvió lo mas bien
para cambiar la resolucion
Espero te sirva
Saludos
Carlos Morandin
PARAMETERS tcFile as String, tcWidth as Integer, tcHeight as Integer,
tcQuality as Integer
*!* 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)
SET CLASSLIB TO HOME() + "/FFC/_GdiPlus.vcx"
SET COMPATIBLE ON
LOCAL loGraphics as gpGraphics OF HOME() + "/FFC/_GdiPlus.vcx"
LOCAL loImageas gpImageOF HOME() + "/FFC/_GdiPlus.vcx"
LOCAL loBmpOut as gpBitmap OF HOME() + "/FFC/_GdiPlus.vcx"
LOCAL lcNewPic as String
LOCAL lcExt as Character
IF !DIRECTORY(ADDBS(SYS(5) + SYS(2003)) + "Temp\Fotos\",1)
MKDIR (ADDBS(SYS(5) + SYS(2003)) + "Temp\Fotos\")
ENDIF
lcExt = LOWER(JUSTEXT(tcFile))
lcNewPic = ADDBS(SYS(5) + SYS(2003)) + "Temp\Fotos\" +
LOWER(JUSTSTEM(tcFile)) + CHR(46) + lcExt
loGraphics = CREATEOBJECT("gpGraphics")
loImage= CREATEOBJECT("gpImage",m.tcFile)
loBmpOut = CREATEOBJECT("gpBitmap",m.tcWidth,m.tcHeight)
loImage.CreateFromFile(m.tcFile)
loGraphics.CreateFromImage(loBmpOut)
loGraphics.DrawImageScaled(loImage,0,0,loBmpOut.ImageWidth,loBmpOut.ImageHeight)
DO CASE
CASE lcExt = "bmp"
loBmpOut.SaveToFile(lcNewPic,"image/bmp","quality=" +
ALLT(STR(m.tcQuality)))
CASE (lcExt = "jpg") OR (lcExt = "jpeg")
loBmpOut.SaveToFile(lcNewPic,"image/jpeg","quality=" +
ALLT(STR(m.tcQuality)))
CASE lcExt = "gif"
loBmpOut.SaveToFile(lcNewPic,"image/gif","quality=" +
ALLT(STR(m.tcQuality)))
CASE (lcExt = "tif") OR (lcExt = "tiff")
loBmpOut.SaveToFile(lcNewPic,"image/tiff","quality=" +
ALLT(STR(m.tcQuality)))
CASE lcExt = "png"
loBmpOut.SaveToFile(lcNewPic,"image/png","quality=" +
ALLT(STR(m.tcQuality)))
ENDCASE
RETURN (lcNewPic)
ENDFUNC
El 16/04/2016 a las 20:47, Pablo Pioli escribió:
Proba con
https://sites.google.com/site/gpimage2/
El 16/4/2016 a las 4:00 p. m., Walter Comito escribió:
Amigos como se puede hacer para redimensionar el tamaño de un jpg o bmp.
Tengo archivos de 2 megas que ocupan mucho espacio y lo que quiero
hacer es si tiene determinado tamaño redimensionarlo a un tamaño mas
chico por defecto.
Gracias.
*Walter Cómito*
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
*›walter.com...@gmail.com*
***wcom...@hotmail.com*
*'+54 9 351 494.4667*
* +54 9 3513.292.707*
**
*þwww.softram.com.ar*
QSi no es necesario, no imprima este correo.
Todos somos responsables por el cuidado del medio ambiente.
*NOTA DE CONFIDENCIALIDAD*
Este mensaje (y sus anexos) es confidencial y puede contener
información de propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este
mensaje por error,
por favor comuníquelo inmediatamente a _walter.comito
_...@gmail.com _ y
tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.
Muchas Gracias.
Libre de virus. www.avast.com
--
