Leite von TInterfacedObject ab
Delphi-Quellcode:
{ TInterfacedObject provides a threadsafe default implementation
of IInterface. You should use TInterfaceObject as the base class
of objects implementing interfaces. }
TInterfacedObject = class(TObject, IInterface)
Diese Methoden werden von einem Interface im normal Fall erwartet :
Delphi-Quellcode:
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
und TInterfacedObject stellt Dir diese zur verfügung