Konwersja obrazka WMF (lub EMF) 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 WMF (lub EMF) do obrazka w formacie JPG (lub JPEG):

Unit1.cpp

#include <Jpeg.hpp>

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

   WMF->LoadFromFile("plik.emf");
   BMP->Height = WMF->Height;
   BMP->Width = WMF->Width;
   BMP->Canvas->Draw(0,0, WMF);
   JPG->Assign(BMP);
   JPG->SaveToFile("plik.jpg");

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

s