Probleme lors de la transformation d'un BMP en WMF

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:

---

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.

J'ai bien galere mais j'ai trouve en fait c'est tres simple, mon code etait bon mais pas dans l'ordre
Les parametres de " TMetafile " doivent etre definis juste apres l'initialisation du " TMetafile " et avant l'initialisation de " TMetafileCanvas ", dommage que ces fonctions soient si mal documentees.
Ce code permet donc de convertir un Bitmap en WMF ou en EMF

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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; pMetafile->Height = Bitmap->Height; // a placer imperativement sous TMetafile *pMetafile = new TMetafile; pMetafile->Width = Bitmap->Width; // idem a ce qui est ecrit ci dessus TMetafileCanvas *pCanvas = new TMetafileCanvas(pMetafile, Bitmap->Canvas->Handle); // Bitmap->Canvas->Handle 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"); // ou arcarrow1.emf delete pMetafile; }

---