Konwersja obrazka BMP do JPG (lub JPEG)

Jeżeli używasz BCB 3 to zobacz poradę Używanie w BCB 3 obrazków JPG (lub JPEG)

Aby po kliknięciu przycisku Button1 dokonać konwersji obrazka w formacie BMP do obrazka w formacie JPG (lub JPEG):

Unit1.cpp

#include <Jpeg.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Graphics::TBitmap *BMP = new Graphics::TBitmap();
   TJPEGImage *JPG = new TJPEGImage();

   BMP->LoadFromFile("plik.bmp");
   JPG->Assign(BMP);
   JPG->SaveToFile("plik.jpg");

   JPG->Free();
   BMP->Free();
}

nadesłał: Bronx