TRANSFORMER UN BITMAP EN FICHIER WMF EN DELPHI
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
28 juil. 2004 à 20:49
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 29 juil. 2004 à 10:57
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 29 juil. 2004 à 10:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/24974-transformer-un-bitmap-en-fichier-wmf-en-delphi
https://codes-sources.commentcamarche.net/source/24974-transformer-un-bitmap-en-fichier-wmf-en-delphi
29 juil. 2004 à 10:57
29 juil. 2004 à 10:48
Je plaisantais, bien sûr, le copieur est ici !
Les pages présentes sur DelphiPage y sont depuis bien avant que le 28/07/2004, date d'envoi de tous ces codes ici.
Il suffit d'aller sur Delphipage pour comprendre...
29 juil. 2004 à 10:47
http://www.vbfrance.com/code.aspx?ID=24891
29 juil. 2004 à 10:26
alors QUI est copieur, celui ci que je le vire ou Delphipage ?
Repondre serieux, svp, c'est important.
BruNews, Admin CS, MVP Visual C++
28 juil. 2004 à 23:04
Delphipage s'est déjà emparé de ce code, à cette adresse :
http://delphipage.free.fr/astuces/bmp2wmf.html
et sous le titre :
"Transformer un bitmap en fichier WMF en Delphi"
La preuve, voici un copier-coller :
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;
S'embête pas, Delphipage, le croyais plus sérieux, lol
28 juil. 2004 à 20:49