RefCount nach Erstellung von TInterfacedObject gleich 0

[himitsu]

Wenn mit Interfaces gearbeitet wird, dann sollte dieses durchgängig gemacht werden.

Delphi-Quellcode:

class function TStartupManagerFactory.Create(): IStartupProcess;
begin
  Result := TBaseStartupProcess.Create();
  Result := StartupProcess;
  AddStartupCommands(Result);
end;

Standardmäßig ist eine Mischbehandlung nicht sicher, da die Referenzzählung keine Ahnung davon hat, ob irgendwo Variablen Referenzen auf das Objekt besitzen, da nur Referenzen auf das Interface gezählt werden.

Wie ist denn AddStartupCommands deklariert?
(der Parameter als Interface oder als Objekt)

[mjustin]

Zitat von himitsu:

Wenn mit Interfaces gearbeitet wird, dann sollte dieses durchgängig gemacht werden.

Natürlich, aber irgendwo muss halt doch eine implementierende Klasse instanziiert werden.
Wo kann etwas schiefgehen, wenn man wie im Beispiel der Factoryklasse, die erzeugte Instanz temporär in einer lokalen Variable speichert?

[Uwe Raabe]

Wenn du dir mal die Implementation von TInterfacedObject ansiehst, kannst du sehen, wie in NewInstance der RefCount auf 1 gesetzt wird und in AfterConstruction wieder um 1 verringert wird. Wenn also nicht innerhalb des Create ein implizites _AddRef erfolgt, ist der RefCount nach dem Create wieder 0. Das muss auch so sein, da er sonst ja nie mehr auf 0 kommen könnte und die Instanz nicht mehr freigegeben würde. Die Zuweisung der Instanz auf eine simple Variable dieser Klasse oder einer Oberklasse löst übrigens keine implizite Referenzzählung aus (wie Sir Rufo richtig bemerkt hat), dies geht nur bei Interface-Variablen und -Parametern.

Das erste was also passieren muss, ist die Instanz einer Interface-Variablen (z.B. dem result) zuzuweisen, damit der RefCount erhöht wird. Vorher kannst du mit der Instanz eigentlich nur sehr wenig anfangen. Auf gar keinen Fall darf dabei ein _AddRef/_Release aufgerufen werden (was offenbar irgendwo innerhalb der Methode AddStartupCommands passiert), da sonst die Instanz sofort freigegeben wird. Deine lokale Instanzvariable zeigt dann eben ins Nirwana.

Diese Krücke mit dem künstliche hochzählen während des Create macht man übrigens eben deshalb, damit solche impliziten Interface-Zuweisungen innerhalb der Create-Sequenz nicht gleich zur Zerstörung der Instanz führen. Inkonsequenterweise hat man dies für die Destroy-Sequenz wohl vergessen.