MetaFile in Filestream schreiben / lesen

[DeddyH]

Ich hatte eigentlich an einen temporären 2. Stream gedacht.

Delphi-Quellcode:

var
  MemStream: TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  try
    MetaFile.SaveToStream(MemStream);
    (* Größe von MemStream in Deinen FileStream schreiben,
      anschließend mit CopyFrom den Inhalt *)
  finally
    MemStream.Free;
  end;
end;

Das Laden dann äquivalent andersherum: MemoryStream erzeugen, MetaFile-Größe aus FileStream auslesen, mit CopyFrom aus FileStream in MemoryStream kopieren und dann MetaFile.LoadFromStream aufrufen. Das müsste doch funktionieren.