LiveTime Managment an Object übergeben

[Mavarik]

Hallo Zusammen...

Gegeben sein ein TStream.

Kann ich die Destroy Methode so überschreiben, dass "mein" Object erst/mit destroyed wird?

Beispiel:

Delphi-Quellcode:

Var
  S : TStream;  
  F : TStreamWrapper;
begin
  S := TStream.Create;
  F := TStreamWrapper(S);
  ...
  S.Free; // Ruft F.Free auf und dann wird S.Free aufgerufen
end;

Mavarik

[Der schöne Günther]

Anders herum hätte ich es verstanden. Dass "S" Eigentum von "F" geworden ist. Das ist ja beispielsweise bei TStream und TStreamWriter so:
http://docwiki.embarcadero.com/Libra...iter.OwnStream

Aber woher soll "S" denn von "F" wissen?

[Uwe Raabe]

Zitat von Der schöne Günther:

Anders herum hätte ich es verstanden. Dass "S" Eigentum von "F" geworden ist. Das ist ja beispielsweise bei TStream und TStreamWriter so:
http://docwiki.embarcadero.com/Libra...iter.OwnStream

Aber woher soll "S" denn von "F" wissen?

Und es würde dann ja auch nur für diesen speziellen Stream-Abkömmling gelten (es wird ja nicht wirklich ein TStream.Create aufgerufen, oder?), was den generischen Character von TStream wieder zunichte macht.

Du solltest vielleicht nochmal dein Design überdenken.

[SMO]

Zitat von Mavarik:

Kann ich die Destroy Methode so überschreiben, dass "mein" Object erst/mit destroyed wird?

Da Destroy eine virtuelle Methode ist (als virtual deklariert), ist sie in der Virtual Method Table (VMT) eingetragen. Den entsprechenden VMT-Eintrag kannst du finden und "umbiegen". Schön ist das natürlich nicht, und erfordert gute Kenntnisse der Interna. Die Umleitung würde dann auch für alle Objekte der "gehackten" Klasse gelten (das könnte man vermutlich umgehen und die Änderungen nur für eine Objektinstanz wirksam machen, aber das wird komplizierter).

[Mavarik]

Zitat von SMO:

Da Destroy eine virtuelle Methode ist (als virtual deklariert), ist sie in der Virtual Method Table (VMT) eingetragen. Den entsprechenden VMT-Eintrag kannst du finden und "umbiegen". Schön ist das natürlich nicht, und erfordert gute Kenntnisse der Interna. Die Umleitung würde dann auch für alle Objekte der "gehackten" Klasse gelten (das könnte man vermutlich umgehen und die Änderungen nur für eine Objektinstanz wirksam machen, aber das wird komplizierter).

Ja genau das meine ich...

[HeZa]

Hallo Mavarik,

Zitat von Mavarik:

Delphi-Quellcode:

Var
  S : TStream;  
  F : TStreamWrapper;
begin
  S := TStream.Create;
  F := TStreamWrapper(S);
  ...
  S.Free; // Ruft F.Free auf und dann wird S.Free aufgerufen
end;

wieso sollte hier zweimal Free aufgerufen werden, es ist doch nur ein Objekt erzeugt worden. F und S zeigen doch auf das selbe Objekt, da TStreamWrapper(S) ja nur ein CAST ist.

Mir ist deine Motivation für diese Anforderung nicht klar.

Meine Wrapper-Klassen sehen eher so aus:

Delphi-Quellcode:

type
  TStreamWrapper = class(TStream)
  private
    FStream: TStream;
    FOwnsStream: Boolean;
    ...
  public
    constructor Create(Stream: TStream; OwnsStream: Boolean);
    destructor Destroy; override;
    ...
  end;

  constructor TStreamWrapper.Create(Stream: TStream; OwnsStream: Boolean);
  begin
    inherited Create;
    FStream := Stream;
    FOwnsStream := OwnsStream;
  end;

  destructor TStreamWrapper.Destroy; 
  begin
    if FOwnsStream then
      FStream.Free;
    inherited;
  end;

var
  S : TStream;  
  F : TStreamWrapper;
begin
  S := TStream.Create;
  F := TStreamWrapper.Create(S, True);
  ...
  F.Free; // Ruft S.Free auf und dann wird F freigegeben
end;

Und dann ist auch klar wie die Freigabe erfolgt.

Deine Anforderung scheint noch ein Geheimis zu enthalten das du nicht mit uns teilen willst.

[Uwe Raabe]

Zitat von HeZa:

F und S zeigen doch auf das selbe Objekt, da TStreamWrapper(S) ja nur ein CAST ist.

Wenn TStreamWrapper ein record ist, dann kann das auch als Explizit eine Zuweisung sein, aber dann würde das Free wiederum nicht wirklich Sinn machen.

Aber wie schon gesagt wurde: Für einen alternativen Lösungsvorschlag (abgesehen von internen Rumwurschteln) fehlen uns noch einige Informationen.