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
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. )
//----------------------------------------------------------------------------// >
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], Willi Quintana and 81 guests