WMF zu Bitmap Konvertieren ?

[thomas2009]

Hallo

ich kann mit meinem Code zwar eine wmf Datei erstellen, kann ich danach aber nicht
öffnen.

Delphi-Quellcode:

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;

Gibt es eine saubere Funktion ?
_

[DeddyH]

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;

[thomas2009]

Danke schön für eine saubere Funktion
_

[DeddyH]

Gern geschehen, aber bitte nicht einfach so hinnehmen, sondern nachvollziehen. Btw: in Deinem Code hast Du vergessen, den Metafilecanvas freizugeben, daher wurde nichts gezeichnet.