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