Voici la fonction qui permet de convertir un fichier WMF en Bitmap elle fonctionne aussi pour les fichiers en EMF
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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; }
Partager