Bonjours:
Apres avoir passe pret d'un mois a chercher comment transformer une image bmp en wmf je viens de reussir.
C'est realise en utilisant TMetafile et TMetafileCanvas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
Bitmap->LoadFromFile("C:\\Documents and Settings\\blondelle\\Mes documents\\ConversionImage\\arcarrow1.bmp");
TMetafile *pMetafile = new TMetafile;
TMetafileCanvas *pCanvas = new TMetafileCanvas(pMetafile, Bitmap->Canvas->Handle);
pMetafile->Height = Bitmap->Height;
pMetafile->Width = Bitmap->Width;
pCanvas->Draw(0, 0, Bitmap);
delete pCanvas;
delete Bitmap;
//PaintBox1->Canvas->Draw(0, 0, pMetafile); // juste pour visualiser si le passage se fait bien
pMetafile->SaveToFile("C:\\Documents and Settings\\blondelle\\Mes documents\\ConversionImage\\arcarrow1.wmf");
delete pMetafile;
}
Il me reste cependant un probleme l'image BMP d'origine est de 45x45, l'image transformee en WMF est systematiquement en 1701 x 1058, je ne vois pas pourquoi.