Folgender Code legt eine EMF-Datei an:
Delphi-Quellcode:
procedure TGF.EMFExport (fn: string);
var MF: IGPMetafile;
G: IGPGraphics;
begin
MF := TGPMetafile.Create (fn, Box.Canvas.Handle);
G := TGPGraphics.Create (MF);
Geo.Draw (G); // Das Objekt Geo zeichnet etwas
end;
Nach Ausführung dieses Codes ist eine EMF-Datei mit Namen
fn korrekt angelegt.
Ich möchte nun genau dasselbe nicht in eine Datei, sondern einen Memorystream schreiben. Versuche mit IStream, TStreamAdapter u. dgl. waren erfolglos - entweder kamen Fehlermeldungen oder der Stream blieb leer.
Für Lösungen oder Tipps wäre ich dankbar.