[GUFA] Re: Re: TAMAÑO IMAGEN

Mon, 18 Apr 2016 04:06:13 -0700 

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 loImage    as gpImage    OF 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.

*›****<mailto:[email protected]>[email protected]*

***<mailto:[email protected]>[email protected]*

*'****+54 9 351 494.4667*

*         +54 9 3513.292.707*

**

*þ****<http://www.softram.com.ar/>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 <mailto:[email protected]>[email protected] <http://gmail.com/>_ y tenga la amabilidad de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a ninguna persona. 

Muchas Gracias.
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient> Libre de virus. www.avast.com 





--

Responder a