Referenzzählung für Objekte

Leider erzeugt der Delphi-Compiler nur dann den notwendigen Code, um die Anzahl der inc / dec-Referenzen zu ermitteln, wenn Sie Schnittstellen verwenden (in Ihrem Fall die benutzerdefinierte Schnittstelle IFileInfo). Wenn Schnittstellen in den Zeiger (oder auch in TObject) umgewandelt werden, ist außerdem keine Referenzzählung möglich. Zum Beispiel, Assumming globale Variablenliste: TList:

nachdem die Methode returns list [list.Count - 1] einen blinkenden Zeiger enthält.

So können Interfaces nicht in einer Hashmap verwendet werden, die sie in Pointer umwandelt, die Implementierung von hashmap muss sie als IInterface erhalten.

Die Referenzzählung in Delphi funktioniert nur, wenn Sie nur über eine Schnittstelle auf Ihre Instanz verweisen. Sobald Sie Schnittstellenreferenzen und Klassenreferenzen mischen, sind Sie in Schwierigkeiten.

Im Wesentlichen möchten Sie eine Referenzzählung durchführen, ohne dass Sie eine Schnittstelle mit allen darin definierten Methoden und Eigenschaften erstellen müssen. Es gibt drei Möglichkeiten, dies zu tun, und diese sind ungefähr in der Reihenfolge, die ich ihnen empfehlen würde.

1. Barry Kelly hat einen Beitrag über Smart Pointers geschrieben. Es verwendet die Generics in Delphi 2009, aber ich bin mir ziemlich sicher, dass Sie es hart auf die spezifischen Versionen des Typs codieren könnten, die Sie verwenden, wenn Sie 2009 noch nicht verwenden (es ist eine großartige Veröffentlichung BTW).

2. Eine weitere Möglichkeit, die mit mehr Versionen von Delphi und weniger Modifikationen funktioniert, ist der Werttyp-Wrapper von Janez Atmapuri Makovsek. Es ist ein Beispiel für TStringList implementiert, aber Sie könnten es für jeden Typ anpassen.

3. Der dritte Weg besteht darin, einen Schnittstellenzeiger zu erstellen (ähnlich dem Smart Pointer von Barry, aber nicht so intelligent). Ich glaube, es gibt einen in JCL, aber ich erinnere mich nicht an die Details. Im Grunde ist dies eine Schnittstelle, die eine TObject-Referenz bei der Konstruktion akzeptiert. Wenn der Referenzzähler null erreicht, ruft er das Objekt, das Sie ihm übergeben haben, kostenlos auf. Diese Methode funktioniert nur für kurzlebige Instanzen, die Sie nicht als Parameter übergeben, da Sie die Referenzzählung von der tatsächlich verwendeten Referenz trennen. Ich würde stattdessen eine der beiden anderen Methoden empfehlen, aber wenn Sie diese Methode bevorzugen und weitere Informationen wünschen, lassen Sie es mich wissen.

Das ist die Sache mit Delphi, es gibt freie Wege, Dinge zu erreichen. Option # 1 ist die beste meiner Meinung nach - Holen Sie Delphi 2009 und verwenden Sie diese Methode, wenn Sie können.

Viel Glück!

Wenn Sie Aufrufe von TObject-Instanzen für die Freigabe deaktivieren möchten, sollten Sie sich einen Speicherbereiniger für natives Delphi ansehen. Ich kenne 2 verschiedene Müllsammler und eine Müllsammeltechnik mit Vor- und Nachteilen.

• Native Precise Tracking Garbage Collector von Henrick Hellström

• API für Boehm Garbage Collector DLL von Barry Kelly

• Garbage Collector für Delphi-Objekte und -Komponenten von Rossen Assenov (kein echter Müllsammler, mehr von einem Speicherbeutel.)

Einer von denen wird wahrscheinlich für Sie arbeiten.

Mischen Sie keine Objektverweise und Schnittstellenreferenzen.

Diese Funktionalität wird für Schnittstellen bereitgestellt, nicht jedoch für Objekte.

Sie können so etwas erstellen, aber Sie müssen einige der Struktur von TObject überschreiben:

Sie müssen RefCountedCopy verwenden, um das Objekt einer anderen Variablen zuzuordnen. Aber dann haben Sie ein refcounted Objekt.

Wie man das benutzt:

Um zu dem bereits Gesagten hinzuzufügen, verwenden Sie eine TInterfaceList , wenn Sie Verweise auf Schnittstellen speichern möchten, anstatt eine TList zu verwenden. Die ref count wird konsistent arbeiten.

Es gibt eine lange Erklärung dafür, aber kurz gesagt: Wenn Sie TInterfacedObject vererben (und Free selbst nicht aufrufen), reicht das nicht aus, Sie müssen ein Objekt-Factory-Dynamic verwenden, um die Objekte für Sie zu erstellen, Zeiger auf das Objekt überall, nicht nur Objekt-Referenz-Variablen. (Ja, das bedeutet, Sie können nicht einfach "alten Code" wechseln, ohne es zu überdenken)