WMF zu Bitmap Konvertieren ?

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