Aquí les dejo el código completo por si a alguien le hace falta
Código:
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;
}
__________________
Nunca esta de más volver a ver la "Guia de Estilo" o "La Otra Guia de Estilo". Recuerda siempre usar los "Tags" para una mejor legibilidad de tu código.
Cuando miras fijamente al abismo, este te devuelve la mirada
oo______ooo_____ooo_ooooooo_____ooo____oooooo____ooooooo______oooo____ooo____oo_
oo______oooo___oooo_oo____oo__oo___oo__oo____oo__oo____oo___oo____oo__oooo___oo_
oo______oo_oo_oo_oo_oo____oo_oo_____oo_oo_____oo_oo____oo__oo______oo_oo_oo__oo_
oo______oo__ooo__oo_oooooo___ooooooooo_oo_____oo_ooooooo___oo______oo_oo__oo_oo_
oo______oo_______oo_oo_______oo_____oo_oo____oo__oo____oo___oo____oo__oo___oooo_
ooooooo_oo_______oo_oo_______oo_____oo_oooooo____oo_____oo____oooo____oo____ooo_
________________________________________________________________________________
|