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

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. )
//----------------------------------------------------------------------------// >