Введение интерфейсов в существующую иерархию классов в Delphi

Question

Есть ли побочные эффекты для изменения предка иерархии классов от TObject до TInterfacedObject, чтобы я мог реализовать интерфейсы дальше по цепочке наследования?

Я программировал в Delphi в течение нескольких лет, но никогда не встречал интерфейсов. Я привык использовать их на других языках. Теперь, когда я снова участвую в проекте Delphi, я бы хотел начать использовать их, но я знаю, что они работают немного иначе, чем на Java или C#.

Answer 1

Если у вас уже есть существующий код с использованием класса, вам, вероятно, придется модифицировать его много, чтобы поддерживать ссылки на интерфейсы вместо экземпляров объектов. Интерфейсы подсчитываются и публикуются автоматически, в результате любая ссылка на экземпляр-исполнитель станет недопустимым указателем.

Answer 2

Помимо нескольких дополнительных байтов в вашем экземпляре, нет. Вероятно, это лучший способ сделать это.

Answer 3

Это будет работать нормально, если вы наследуете класс ниже в верхней части (внизу?) Вашей иерархии. Этот код гарантирует, что ваши новые классы не освободятся - как и поведение TInterfaceObject по умолчанию - вы, по-видимому, уже освобождаете их самостоятельно и хотите сохранить это. Это фактически то, что TComponent в VCL делает - он поддерживает интерфейсы, но не подсчитывается ссылкой.

type 


    TYourAncestor = class(TInterfacedObject) 
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; 
    function _AddRef: Integer; stdcall; 
    function _Release: Integer; stdcall; 

    end; 



implementation 



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


function TYourAncestor._AddRef: Integer; 
begin 
    Result := -1 // -1 indicates no reference counting is taking place 
end; 

function TYourAncestor._Release: Integer; 
begin 
    Result := -1 // -1 indicates no reference counting is taking place 
end;