Bitmap-->Metafile

[Jörn]

Wie kann ich einem TMetafile den Inhalt eines TBitmaps zuweisen?
Die Klasse TMetafile hat keine Picture-Eigenschaft usw das ist das Problem.

MfG

[Jörn]

Sorry das ich das schon wieder nach oben bringen muss, aber ist das so kompliziert oder hat das nur keiner gesehen? Hab ich Infos vergessen?

MfG

[Keldorn]

Hallo,

gugg dir mal Tmetafilecanvas (ist auch ein Beipiel in der Hilfe) an und zeichne mit draw(0,0,meineBitmap) dein Bild rein.
Ob das dann allerdings Sinn macht, weiß ich nicht so recht, da für mich ein Metafile nicht unbedingt dafür da ist, ein komplette Bitmap drin zu haben.

Mfg Frank

[eddy]

Hallo Jörn,

probier' mal das:

Code:

{ ...ein Bitmap in ein emf (Enhanced Metafile) umwandeln?  
BMP --> Metafile
Quelle: http://www.swissdelphicenter.ch/de/showcode.php?id=1000}

function bmp2emf(const SourceFileName: TFileName): Boolean; 
// Converts a Bitmap to a Enhanced Metafile (*.emf) 
var 
  Metafile: TMetafile; 
  MetaCanvas: TMetafileCanvas; 
  Bitmap: TBitmap; 
begin 
  Metafile := TMetaFile.Create; 
  try 
    Bitmap := TBitmap.Create; 
    try 
      Bitmap.LoadFromFile(SourceFileName); 
      Metafile.Height := Bitmap.Height; 
      Metafile.Width := Bitmap.Width; 
      MetaCanvas := TMetafileCanvas.Create(Metafile, 0); 
      try 
        MetaCanvas.Draw(0, 0, Bitmap); 
      finally 
        MetaCanvas.Free; 
      end; 
    finally 
      Bitmap.Free; 
    end; 
    Metafile.SaveToFile(ChangeFileExt(SourceFileName, '.emf')); 
  finally 
    Metafile.Free; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  bmp2emf('C:\TestBitmap.bmp'); 
end;

Nicht von mir getestet, aber vielleicht kommst Du ja weiter.

mfg
eddy