Convertir une image WMF en Bitmap

Voici la fonction qui permet de convertir un fichier WMF en Bitmap elle fonctionne aussi pour les fichiers en EMF

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
TMetafile *pMetafile = new TMetafile;
pMetafile->LoadFromFile("C:\\Documents and Settings\\blondelle\\Mes documents\\ConversionImage\\arcarrow1.wmf"); // ou arcarrow1.emf
Bitmap->Height = pMetafile->Height;
Bitmap->Width = pMetafile->Width;
Bitmap->Canvas->Draw(0, 0, pMetafile);
Bitmap->SaveToFile("C:\\Documents and Settings\\blondelle\\Mes documents\\ConversionImage\\arcarrow2.bmp");
delete Bitmap;
delete pMetafile;
}