Zur Laufzeit entscheiden ob ein Interface implementiert wird oder nicht

[Stevie]

Naja dir fehlt die gesamte Mechanik aus TInterfacedObject, die dafür sorgt, dass das Objekt nicht in die Luft fliegt, wenn du während dem Erstellen oder Freigeben implizit die eigene Referenzzählung triggerst.

Außerdem würd ich die Überprüfung vorher machen und nur im positiven Fall ins inherited springen.

Fun fact: Den Cast auf TGUID kannst dir sparen, der Compiler erkennt das auch so.


Ob das nun sicher ist, kann ich dir nicht sagen. Es soll auch Code geben, der nimmt die Abkürzung über GetInterface. Und da würd dein TMyObject das implementieren. Einfachster Fall:

Delphi-Quellcode:

var
  i: ISomeInterface;
begin
  i := TMyObject.Create;
  Writeln(Supports(i, ISomeInterface)); // WAT?!

Das heißt, wenn das QueryInterface dynamisch zur Laufzeit entscheiden soll, dann würd ich das Interface nicht auf der Klasse implementieren, sondern ein Delegat erstellen - oder wenn du mutig genug bist, die Adjustor Thunks für das Interface selbst bauen.

[Dennis07]

Zitat von Stevie:

Fun fact: Den Cast auf TGUID kannst dir sparen, der Compiler erkennt das auch so.

Besser noch: Referenzen zu Interface-Typen sind nichts anderes als TGUID-Objekte. Es gibt bei Interfaces nämlich überhaupt keine Klassentypen wie beispielsweise bei Klassen. Das geht dort nur über die TypeInfo, bzw. deren GUID.