topic-8589

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

IMAGEN JPG
Posted: Tue Oct 23, 2007 12:39 PM

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

QAZWSX2K

Posts: 364

Joined: Tue Oct 25, 2005 07:06 PM

IMAGEN JPG
Posted: Tue Oct 23, 2007 03:30 PM

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

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

IMAGEN JPG
Posted: Tue Oct 23, 2007 08:28 PM

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 Collapse

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion