Refcount meines Objektes geht zu früh auf 0

[dummzeuch]

Es gibt für das Problem zwei mögliche Lösungen:

1. Nicht das Objekt sondern ein Interface in der Liste speichern.
2. Die Implementation von _AddRef und _Release des Objekts ändern, so dass es kein Reference-Counting mehr durchführt (das macht z.B. TComponent so (oder war es bereits TPersistent?))
3. Absolut nicht zu emfpehlen: Den Reference-Counter direkt manipulieren. Nach der Erzeugung auf 1 setzen, vor dem Freigeben auf 0 setzen. (Ja, das ist ein Hack und wie gesagt nicht zu empfehlen.)

[hoika]

Hallo,
die Variable wurde auch als Const übergeben?

[ngott2]

Zitat von hoika:

Hallo,
die Variable wurde auch als Const übergeben?

Ja übergebe ich als const.


Ich werde mal alles umbauen. Normalerweise arbeite ich auch immer mit den Interface, aber jemand anders hat die Basis geschrieben und leider nur mit Klassen gearbeitet.

Würde aber trotzdem gerne verstehen, wie Delphi das Intern macht. Weil wenn ich es mit ein Interface mache dann fügt er ja erst eine Referenz hinzu und löscht sie am Ende der Methode wieder. Warum funktioniert dies nicht gemischt Zwischen Interface und Klasse?

[Bernhard Geyer]

Zitat von ngott2:

Würde aber trotzdem gerne verstehen, wie Delphi das Intern macht. Weil wenn ich es mit ein Interface mache dann fügt er ja erst eine Referenz hinzu und löscht sie am Ende der Methode wieder. Warum funktioniert dies nicht gemischt Zwischen Interface und Klasse?

Wenn es kein Interface mehr auf die Instanz gibt wird gnadenlos abgeräumt, egal ob es noch einen Zeiger auf die Klasse gibt.

Ein "Mischbetrieb" sollte man nur im absoluten Notfall verwenden. Und dann funktioniert es nur wenn man explizit einmal _AddRef aufruft um die automatische Referenzzählung auszuhebeln.

[Uwe Raabe]

Wenn man die Referenzzählung nicht will, darf man nicht von TInterfacedObject ableiten, sondern von TInterfacedPeristent .

[stahli]

@ngott2

Du darfst auch nicht folgendes machen:

Delphi-Quellcode:

procedure DoIt(Intf: IInterface);
begin
end;

...

DoIt(TMyClass.Create); // falsch!

...

var
tmpIntf: IInterface;
 
tmpIntf := TMyClass.Create;
DoIt(tmpIntf); // korrekt

In der ersten Variante kommt auch die Referenzzählung durcheinander.
Das ist etwas unschön und man muss das erst mal wissen.

Aber wenn man das beachtet, kann man damit schon vernünftig leben.

Ich arbeite inzwischen nur noch mit Interfaces und verstecke die Klassen hinter einer Factory. Dann kann man solche Probleme grundsätzlich ausschließen.

[Schokohase]

Zitat von stahli:

Du darfst auch nicht folgendes machen:

Delphi-Quellcode:

procedure DoIt(Intf: IInterface);
begin
end;

...

DoIt(TMyClass.Create); // falsch!

In der ersten Variante kommt auch die Referenzzählung durcheinander.

Nein, kommt sie nicht. Das ist kein Problem