cambiar tamaño de imagen jpg

[lmpadron]

hola amigos

Tengo una form donde cargo una imagen en un DBImage, anteriormente habia preguntado como cargar un jpg ahora lo que necesito es saber como redimensionar este jpg o sea cambiar el tamaño de la imagen en pixeles ejemplo de 800x600 a 100x100 y el tamaño en fisico ejemplo de 500 Kb a 150Kb.

les dejo el código para que le hechen un ojo

Gracias de antemano

 
if(OpenDialog1->Execute())
{
	if (OpenDialog1->FileName == "")
	{
	  if (OpenDialog1->FileName == "")
	  {
			MessageDlg("Operación cancelada" , mtInformation, TMsgDlgButtons() << mbOK, 0);
	  }
	  else
	  {
			//obtener la extension del fichero seleccionado
			b = OpenDialog1->FileName.Length() - 3;
			a = OpenDialog1->FileName.Delete(1,b);
			a = a.LowerCase();

			if (a == "bmp" || a == "BMP")
			{
					DBImage1->Picture->LoadFromFile(OpenDialog1->FileName);
			}

			if (a == "jpg" || a == "jpeg" || a == "JPG" || a == "JPEG")
			{
				// Carga en memoria el fichero
				jpg->LoadFromFile(OpenDialog1->FileName);

				//convertir
				bmp->Assign(jpg);

				//poner convertido en la imagen
				DBImage1->Picture->Assign(bmp);

				//limpiar memoria
				delete jpg;
				delete bmp;
			}
	   }
	}
}	
	   
TFileStream *File = new TFileStream(OpenDialog1->FileName, fmOpenRead);
if (File->Size >= 600000)
{
			MessageDlg("La imagen es demasiado grande, debe ser menor de 600000 bytes y su tamaño actual es " + IntToStr(File->Size) + " bytes", mtError, TMsgDlgButtons() << mbOK, 0);
			delete File;
}
else
{
				 ADOQuery2->Post();
}

[_cero_]

Te pongo código a ver qué tal, ahí se ve como redimensionar una imagen y como comprimirla para reducir su tamaño, (aunque si la reduces de dimensiones, por lógica también reduce su tamaño).

    //Usamos el bmp para redimensionar el jpg
    Graphics::TBitmap* bmp = new Graphics::TBitmap;
    TJPEGImage* jpg = new TJPEGImage;
    jpg->LoadFromFile( "foto.jpg" );
    bmp->Height = 100;
    bmp->Width = 100;
    bmp->Canvas->StretchDraw( bmp->Canvas->ClipRect, jpg );
    jpg->Assign( bmp );
    //Según la compresión varia el tamaño, menor compresión, menor tamaño, pero también menor calidad de la imagen
    jpg->CompressionQuality = 90;
    jpg->Compress();
    jpg->SaveToFile( "c:\\lolo.jpg" );
    delete jpg;

nos vemos.

[lmpadron]

Gracias _cero_ el código me funcionó perfecto

[lmpadron]

Aquí les dejo el código completo por si a alguien le hace falta

void __fastcall TForm3::Button1Click(TObject *Sender)
{
 int b;
 String a;

    //Usamos el bmp para redimensionar el jpg
    Graphics::TBitmap* bmp = new Graphics::TBitmap;
    TJPEGImage* jpg = new TJPEGImage;

    //Obtenemos la imagen de un OpenDialog1 en el cual fue previamente abierta
    jpg->LoadFromFile(OpenDialog1->FileName);

     //Asignamos el ancho y largo a partir de dos Edits
    bmp->Width = StrToInt(Edit1->Text);
    bmp->Height = StrToInt(Edit2->Text);

    bmp->Canvas->StretchDraw( bmp->Canvas->ClipRect, jpg );

    jpg->Assign( bmp );

    //Asignamos la compresión a partir de un TrackBar 
    //Según la compresión varia el tamaño, menor compresión, menor tamaño, pero también menor calidad de la imagen
    jpg->CompressionQuality = TrackBar1->Position;
    jpg->Compress();

    //obtener la extension del fichero seleccionado
    b = OpenDialog1->FileName.Length() - 3;
    a = OpenDialog1->FileName.Delete(1,b);
    a = a.LowerCase();

    //Guardamos la imagen
    jpg->SaveToFile("CONVERTIDA-" + IntToStr(Button1->Tag)+ "." + a);
    delete jpg;

    Button1->Tag = Button1->Tag + 1;
}

[Casimiro Notevi]

Empezado por FabianSiza

Gracias.

Por favor, crea un nuevo hilo con tu consulta, no repitas lo mismo en distintos hilos si no es para responder o aportar algo al hilo existente. Gracias

[aguml]

solo un detalle y que me corrijan si me equivoco. StretchDraw hacia que la imagen perdiera mucha calidad y en su momento, cuando yo me interesé por ese tema, me indicaron otro metodo usando las apis de windows pero ahora mismo no recuerdo como era y tendria que buscar el codigo.

[aguml]

StretchDraw tenia un problema, restaba mucha calidad a las imagenes. En su tiempo, cuando yo me interesé por el tema, me ayudaron a hacerlo de otra forma. Os pongo un enlace con la prueba que hice donde, ademas de poder redimensionarla, tambien se puede exportar a jpg y ademas se puede arrastrar la imagen en el TImage para desplazarnos por ella sin necesidad de scrollbars. Espero que te sirva.

Enlace: https://mega.co.nz/#!NhNBXbKK!mkkwV4...EBErPlElWT0DY8

[aguml]

una cosa mas, creo recordar que el objeto TJPEJImage tiene una funcion para redimensionar el jpg (creo que era resize o algo asi) pero ya para para hacerlo por tamaño en bytes no se.

[[escafandra]]

Ya que se reabre este tema, voy a aportar una solución usando GDI+ que no tiene el inconveniente de la pérdida de calidad clásica de Stretch y usa HBITMAP con lo que se puede usar con cualquier formato de compresión. Podéis ver el código en C y delphi en este enlace: Redimensionar una imagen con GDI+ flat API.

Saludos.

[Casimiro Notevi]

Gracias por compartirlo

[aguml]

muy interesante el aporte. Hace mucho tiempo usé gdi+ para capturar parte de un form y guardarlo en bmp y me fue imposible porque tenia que capturar la imagen de un componente de visual basic y no se porque me creaba la imagen vacia. Como digo, me volvi loco y no lo consegui. A ver si mañana pruevo tu codigo a ver si me funciona. Una pregunta ¿Tu metodo da mas calidad que el que yo he mandado? Otra cosa, dices que hay que inicializar el gdi+ y finalizarlo al terminar ¿Como haces eso? Y por ultimo ¿No seria mejor crear una clase para hacer mas facil su uso con los metodos de inicializar, dibujar, redimensionar, y destruir?

[[escafandra]]

Empezado por aguml

¿Tu metodo da mas calidad que el que yo he mandado?

GDI+ es una mejora sustancial de GDI, es muy posible que las últimas versiones de delphi y builder trabajen con él.

Empezado por aguml

dices que hay que inicializar el gdi+ y finalizarlo al terminar ¿Como haces eso?

// Inicializar GDI+.
__int64 gdiplusStartupInput[3];
ULONG_PTR  gdiplusToken;
gdiplusStartupInput[0] = 1; gdiplusStartupInput[1] = 0;
 
// Cerrar GDI+
GdiplusShutdown(gdiplusToken);

Empezado por aguml

¿No seria mejor crear una clase para hacer mas facil su uso con los metodos de inicializar, dibujar, redimensionar, y destruir?

De hecho Microsoft tiene estructurado GDI+ en una librería de clases basada en la API GDI+. Yo usé la API básica para compatibililizar el uso del código con los compiladores Builder y delphi más antiguos. Algunos ejemplos que publiqué en delphiaccess usan la API básica y otros la librería de clases GDI+ para C++.


Saludos.

[aguml]

Amigo tengo un problema, haces un #pragma link "Gdiplus.lib" pero al compilar me dice que no encuentra "Gdiplus.lib" ¿como soluciono eso?

[[escafandra]]

Usa IMPLIB.EXE contra gdiplus.dll para crear gdiplus.lib.
También puedes importar dinámicamente las APIs Gdiplus que uses.

Saludos.

[aguml]

Ok ya lo conseguí.
En un rato adjunto un mini proyecto con esto.

[aguml]

Aqui el enlace: chrome://mega/content/secure.html#!lpNiRRKY!4McmohxnApGh4xX1NYL0cvWoIw7__NQ2Eu-Qa5J4xhA

Ahora tengo varias dudas:
1. La aplicación usa la dll del GDI+ instalado en mi pc ya que no he instalado nada ahora y al añadir el .h y el .lib y sin colocar la dll en el directorio del proyecto ni ningun sitio el programa funciona correctamente. ¿de donde lee la dll?
2. La ruta al .h no está entre comillas y por lo tanto no es leido del directorio del proyecto ¿donde está ese archivo de cabecera? Lo he buscado por los directorios del C++Builder 6 y no lo veo.
3. ¿Como puedo hacer para que, adjuntando al proyecto la dll que tengo funcione usando esa dll para que no dependa de que tengan o no instalado gdi+? ¿me podeis explicar como añado la dll estaticamente usando el .lib y el .h? Yo algunas veces he añadido funciones de forma dinamica sin .lib, ni .h pero me gustaria hacerlo de forma estatica.

[aguml]

se me olvido una cuarta pregunta:
4. Cuando dibujas, al taparlo con otro form o minimizar o cualquier otra forma que se oculte lo que se dibuja, este desaparece. ¿como se haría para que no desaparezca lo que dibujas con ese metodo?

[[escafandra]]

gdiplus.dll está aquí: C:\windows\system32\gdiplus.dll. Es parte del S.O. por lo que no se instala. Lo que puedes instalar es el Platform SDK Redistributable: GDI+ para desarrolladores. La dll no la añades de forma estática nunca, aunque existen app de terceros para extraer una librería de enlace estático. Cuando haces un enlace estático con Builder se refiere a las dll correspondientes al mismo Builder y VCL.

El código que te enseñé lo hice con API Flat para evitar el uso de Platform SDK GDI+ y obviar la librería de clases GDI+ para poder compliar en delphi7.

Cuando dibujes, hazlo en el canvas de un TImage y no en el del Form.


Saludos.

[aguml]

ok ¿Entonces no tengo que preocuparme de que la dll acompañe al proyecto? En mi pc en esa ruta no hay ningun gdiplus.dll, el que hay es gdi32.dll. Y yo no dibujé en el form, lo hice en un TPanel ¿Si lo hago sobre el canvas de un timage ya no se borra al ocultarlo?

[[escafandra]]

No tienes que preocuparte por esa dll.

El problema de dibujar en un control es que no lo haces como respuesta al mensaje WM_PAINT, por ese se borra. Al hacerlo en un TImage, éste ya se encarga de refrescarse a si mismo al procesar ese mensaje.

Saludos.