cambiar tamaño de imagen jpg

[_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 Noteví]

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.