Moin moin,
ich versuche gerade erfolglos einer von TObject abgeleiteten Klasse ein SaveToStream beizubringen.
Ein bischen was zum Hintergrund:
Ich habe eine Klasse, die (absichtlich) von TObject abgeleitet ist.
In dieser Klasse gibt es viele Dinge, die man so ähnlich auch in anderen Klassen findet, unter anderem auch ein paar Grafik-Funktionen, die mit Metafiles hantieren.
Anfangs hatte ich (um zu sehen ob es funktioniert reichts ja) nur Metafile.SaveToFile implementiert, was auch problemlos funktionierte :
Delphi-Quellcode:
procedure TdwsDraw.SaveToFile(Name : string);
begin
if (Zeichnung <> nil)
then FreeAndNil(Zeichnung);
WMF.Metafile.SaveToFile(Name);
end;
Nun wollte ich analog hierzu auch das SaveToStream implementieren:
Delphi-Quellcode:
procedure TdwsDraw.SaveToStream(Stream : TStream);
begin
if (Zeichnung <> nil)
then FreeAndNil(Zeichnung);
WMF.Metafile.SaveToStream(Stream);
end;
Allerdings stürzt mir die procedure mit EAbstractError bei "WMF.Metafile.SaveToStream(Stream);" ab.
Der Debugger stoppt bei "Metafile.SaveToStream(Stream);" ohne in die Graphics zu springen.
Der übergebene Stream ist so initialisiert:
WMFStream := TStream.Create;
worden.
Habe bereits umfangreich gesucht, aber nichts passendes gefunden, daher wäre ich für jede Anregung dankbar.