QueryInterface und RefCount

[himitsu]

Wenn du von TInterfacedObject ableitest, dann ist die Referenzzählung bereits implementiert und du mußt das nicht selber einbauen, was IInterface als "Grundfunktion" benötigt.

Entweder du implementierst QueryInterface, _AddRef und _Release selber,
oder du leitest von TInterfacedObject, TAggregatedObject, TInterfacedPersistent oder TComponent ab und erbst deren Verhaltensweisen.

Bin mir nicht ganz sicher, aber wenn ich das mit der "GUID" so richtig sehe, dann von TObject ableiten und selber implementieren,
oder vielleicht könnte es in Richtung TAggregatedObject gehen.

Also selber implementieren und da dann
IInterface(Obj) := Self; oder IInterface(Obj) := Self as IInterface; oder irgendwas mit Supports [edit] schau mal in TObject.GetInterface , wie Emba es dort gemacht hat, um aus "Self" einen Interface-Zeiger zu basteln
und
IInterface(Obj) := nil;