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.