![]() |
WMF zu Bitmap Konvertieren ?
Hallo
ich kann mit meinem Code zwar eine wmf Datei erstellen, kann ich danach aber nicht öffnen.
Delphi-Quellcode:
Gibt es eine saubere Funktion ?
procedure BmpToWmf(WmfFile: string);
var MetaFile: TMetaFile; MFCanvas: TMetaFileCanvas; BMP: TBitmap; begin try MetaFile := TMetaFile.Create; BMP:=Image1.Picture.Bitmap; MetaFile.Height := BMP.Height; MetaFile.Width := BMP.Width; MFCanvas := TMetafileCanvas.Create(MetaFile, 0); MFCanvas.Draw(0, 0, BMP); Metafile.SaveToFile(WmfFile) ; MetaFile.Free; except end; end; _ |
Re: WMF zu Bitmap Konvertieren ?
Bitmap in Metafile oder andersrum? Dein Code passt nicht zum Threadtitel, Du kannst es aber mal so versuchen (und nachschauen, was Du vergessen hast):
Delphi-Quellcode:
procedure Bmp2Wmf(const BMP: TBitmap;
const Filename: TFileName; const Enhanced: Boolean = false); var mf: TMetafile; mfc: TMetafileCanvas; begin mf := TMetafile.Create; try mf.Width := BMP.Width; mf.Height := BMP.Height; mfc := TMetafileCanvas.Create(mf,0); try mfc.Draw(0,0,BMP); finally mfc.Free; end; mf.Enhanced := Enhanced; mf.SaveToFile(Filename); finally mf.Free; end; end; |
Re: WMF zu Bitmap Konvertieren ?
Danke schön für eine saubere Funktion
_ |
Re: WMF zu Bitmap Konvertieren ?
Gern geschehen, aber bitte nicht einfach so hinnehmen, sondern nachvollziehen. Btw: in Deinem Code hast Du vergessen, den Metafilecanvas freizugeben, daher wurde nichts gezeichnet.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz