Discussion :

[blondelle]

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.

[blondelle]

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 :

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
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;
}