Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites

Astuces - Graphique - Transformer un bitmap en fichier WMF en Delphi

Convertir un fichier BMP en WMF

Ajouter un composant TButton.

procedure BMPToWMF(FichierBMP,FichierWMF:string);
var MetaFile:TMetaFile;
MetaFileCanvas:TMetaFileCanvas;
Bitmap:TBitmap;
begin
MetaFile:=TMetaFile.Create;
Bitmap:=TBitmap.Create;
try
Bitmap.LoadFromFile(FichierBMP);
MetaFile.Height:=Bitmap.Height;
MetaFile.Width:=Bitmap.Width;
MetaFileCanvas:=TMetafileCanvas.Create(MetaFile,0);
MetaFileCanvas.Draw(0,0,Bitmap);
finally
MetaFileCanvas.Free;
Bitmap.Free;
end;
MetaFile.SaveToFile(FichierWMF);
MetaFile.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
BMPToWMF('c:\test.bmp','c:\test.wmf'); //BMP --> WMF
end;


Convertir un fichier WMF en BMP

Ajouter un composant TButton.

procedure WMFToBMP(FichierWMF,FichierBMP:string);
var MetaFile:TMetafile;
Bitmap:TBitmap;
begin
MetaFile:=TMetaFile.Create;
Bitmap:=TBitmap.Create;
try
MetaFile.LoadFromFile(FichierWMF);
Bitmap.Height:=Metafile.Height;
Bitmap.Width:=Metafile.Width;
Bitmap.Canvas.Draw(0,0,MetaFile);
Bitmap.SaveToFile(FichierBMP);
Bitmap.Free;
finally
MetaFile.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WMFToBMP('c:\test.wmf','c:\test.bmp'); //WMF --> BMP
end;


Tous droits réservés - Contacts
Haut de la page