IMAGEN JPG

[Patricio Avalos Aguirre]

Estimados

Es posible cargar una imagen JPG y luego grabar con diferente dimension?

Lo que quiero es cargar una imagen que no sea mayor de 800X600 y si es dejarlo en 800X600

desde ya muchas gracias

[QAZWSX2K]

no te quiero desanimar pero hace tiempo... pregunte algo similar y todavia estoy esperando la primera respuesta, yo queria cargar una imagen y en tiempo de ejecucion cambiarle el tamaño, creo similar a lo que tu quieres, bueno en fin como comprobaras si preguntas algo mas complicado, osea un reto a un guru quizas te respondan del resto no ayudan mucho, lo siento, yo lo resolvi cambiando el tamaña por fuera y a manopla, no me quedo otra

[Patricio Avalos Aguirre]

Gracias QAZWSX2k

he bajado esta utilidad http://www.irfanview.com/ para ver y convertir imagen

adjunto codigo si alguien le sirve, por el momento hasta que haya algo en la clase tImage

Code: Select all  Expand view

static function Abrir( cFile, oImage )
   local cArch, cEjecute
   cArch := cGetFile32("JPEG  | *.jpg |" , "Seleccione una imagen",1,,,.T. )
   if !empty(cArch)
      oImage:LoadImage( , cArch )
      if oImage:nWidth() > 700 .and. oImage:nHeight() > 900
         if file( ViewUsu():cPathTmp + "\File.jpg" )
            fErase( ViewUsu():cPathTmp + "\File.jpg" )
         endif
         cEjecute := "i_view32.exe "+cFile + " /resize=(800,600) /aspectratio /resample /convert="+ViewUsu():cPathTmp + "\File.jpg"
         WinExec( cEjecute )
         cArchi := ViewUsu():cPathTmp + "\File.jpg"
         oImage:LoadImage( , cArchi )
         if oImage:nWidth() > 700 .and. oImage:nHeight() > 900
            MsgInfo( "Favor reducir las dimensiones de la imagen a 600x800 como máximo...", "Usuario" )
         else
            cFile := cArch
         endif
      else
         cFile := cArch
      endif
      oImage:Refresh()
   endif

return( .t. )
//----------------------------------------------------------------------------// >