Refcount meines Objektes geht zu früh auf 0

[ngott2]

Hallo,
ich habe eine Funktion, wo ich ein Interface übergebe. Soweit so gut. Bevor ich es als Prameter übergebe habe ich eine Liste von Objekten die von meinem Interface und TInterfaceobject erben. Nun rufe ich meine Funktion auf die das Interface erwartet mit folgenden befehl
 if meineFunktion(meineListe[lindex] as myInterface) then .
Die Funktion läuft ohne Probleme durch. Am Ende der Funktion wird der Refcount, aber auf 0 gesetzt und mein Objekt wird freigeben. Warum wird mein Refcount auf 0 gesetzt, da mein Objekt nocht in meiner TObjectlist hinterlegt ist sollte der Refcount auf 1 bleiben. Wenn ich jetzt meine Liste mit Owned Objects freigebe fliegt es mir um die Ohren weil er versucht die Objekte freizugeben. Hat jemand eine Idee?


Gruß,
ngott2

[TiGü]

Zitat von ngott2:

. Warum wird mein Refcount auf 0 gesetzt, da mein Objekt nocht in meiner TObjectlist hinterlegt ist sollte der Refcount auf 1 bleiben. Wenn ich jetzt meine Liste mit Owned Objects freigebe fliegt es mir um die Ohren weil er versucht die Objekte freizugeben. Hat jemand eine Idee?

"Geinterfacete" Objekte nur als Interfaces behandeln und nicht als Objekt anfassen (außer man weiß was man tut).
Erster Schritt: Aus der Objektlist entfernen. Wenn Listeneintrag gebraucht, dann mach dir eine TList<IDeinInterface>, in denen du die Interface-Referenz hältst.

[mjustin]

Versuche dies:

Delphi-Quellcode:

var
 Tmp: myInterface;
begin
 ...
 Tmp := meineListe[lindex] as myInterface;
 if meineFunktion(Tmp) then 
 ...

[dummzeuch]

Zitat von mjustin:

Versuche dies:

Delphi-Quellcode:

var
 Tmp: myInterface;
begin
 ...
 Tmp := meineListe[lindex] as myInterface;
 if meineFunktion(Tmp) then 
 ...

Wird nicht funktionieren, dann geht der Reference-Counter zwar nicht auf 0, wenn die Funktion endet, aber dafür dann, wenn tmp nicht mehr gebraucht wird.

[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?