M> interface Bicycle {

M>        void changeCadence(int newValue);   // wheel revolutions per minute

M>        void changeGear(int newValue);

M>        void speedUp(int increment);

M>        void applyBrakes(int decrement);
M> }

M> class ACMEBicycle implements Bicycle {

M>    // remainder of this class implemented as before

M> }
M>

M>> interface Bicycle {

M>>        void changeCadence(int newValue);   // wheel revolutions per minute

M>>        void changeGear(int newValue);

M>>        void speedUp(int increment);

M>>        void applyBrakes(int decrement);
M>> }

M>> class ACMEBicycle implements Bicycle {

M>>    // remainder of this class implemented as before

M>> }
M>>

M> TMyClass = class(TInterfacedObject, IMyInterface)
M>

M>> TMyClass = class(TInterfacedObject, IMyInterface)
M>>

M> H>Было бы лучше, если бы для COM-интерфейсов время жизни было управляемым, а для остальных нет?

M> H>Было бы лучше, если бы для COM-интерфейсов время жизни было управляемым, а для остальных нет?

M> IMyInterface = Interface()
M>      function GetMyProperty : Boolean;
M>      property myProperty : Boolean read GetMyProperty;
M>    end;

M> // TMyСlass по сути является TObject'ом, мы указали ему контракт
M> // он обязан реализовать метод GetMyProperty
M> TMyClass = class(TObject, IMyInterface)
M> ...

M> // реализуем IUnknown, как в любом человеческом языке
M> IUnnknown = Interface()
M>      function QueryInterface : Interface;
M>      function AddRef : Ref;
M>      function Release : Boolean;
M>    end;

M> // TInterfacedObject обязан реализовать методы из интерфейса
M> TInterfacedObject = class(TObject, IUnknown)

M> // Пишем класс, в котором нам нужны COM-методы. У нужны они нам только тут,
M> // а не в TMyClass выше
M> TMyCOMClass = class(TInterfacedObject, IMyInterface)
M>

в Delphi не было не-COM интерфейсов.

M>Here is the bare minimum required for a COM interface:
M>

M>class CMyClass : public IUnknown
M>};
M>

I>Here is the bare minimum required for a COM interface:
I>class CMyClass : public IUnknown
I>{

I>>Here is the bare minimum required for a COM interface:
I>>class CMyClass : public IUnknown
I>>{

M> H>Было бы лучше, если бы для COM-интерфейсов время жизни было управляемым, а для остальных нет?

I>type
I>  MyHelper = class helper for TMyBaseObject
I>  strict protected
I>    function QueryInterface(const IID: TGUID; out Obj): HResult; virtual; stdcall;
I>    function _AddRef: Integer; virtual; stdcall;
I>    function _Release: Integer; virtual; stdcall;
I>  end;

I>...

I>function MyHelper.QueryInterface(const IID: TGUID; out Obj): HResult;
I>begin
I>  if GetInterface(IID, Obj) then
I>    Result := 0
I>  else
I>    Result := E_NOINTERFACE;
I>end;

I>function MyHelper._AddRef: Integer;
I>begin
I>  Result := -1;
I>end;

I>function MyHelper._Release: Integer;
I>begin
I>  Result := -1;
I>end;

I>

M> H>Было бы лучше, если бы для COM-интерфейсов время жизни было управляемым, а для остальных нет?

M> H>Было бы лучше, если бы для COM-интерфейсов время жизни было управляемым, а для остальных нет?

H>IMyIntf = Interface

H> Procedure SayHello;

H>End;
H>

AG>var I: IMyInterface;
AG>begin
AG>  I := TMyObject.Create();
AG>  // Destroy вызовется сам.
AG>end;
AG>

M>  TObject = class
M>    // .........
M>    function GetInterface(const IID: TGUID; out Obj): Boolean;
M>    class function GetInterfaceEntry(const IID: TGUID): PInterfaceEntry;
M>    class function GetInterfaceTable: PInterfaceTable;
M>    // .........
M>    procedure Dispatch(var Message); virtual;
M>    procedure DefaultHandler(var Message); virtual;
M>    // .........
M>  end;
M>

M> IUnknown нужен для совместимости с COM

M> COM-совместимость никто не отрицал

M> в дельфях все интерфейсы наследуются от IUnknown (если быть точным — от IInterface, что суть тоже самое). Это нужно для совместимости с COM.

M> IUnknown обязателен в дельфях для гармоничного встраивания в инфраструктуру COM

M> Без того самого IUnknown (или его аналога) работа с интерфейсами в нативе была бы невозможна в принципе

M>> Без того самого IUnknown (или его аналога) работа с интерфейсами в нативе была бы невозможна в принципе

H>Интерфейсы там появились благодаря COM, это несомненно. И именно благодаря одному из ключевых моментов COM (QueryInterface) достигается офигительный профит при их использовании. Без аналогичного механизма поддержка интерфейсов не более чем пшик.