Делегирование интерфейсов в Delphi: избегаем вспомогательные классы-оболочки

Delphi , Программа и Интерфейс , Интерфейс

Вопрос делегирования интерфейсов в Delphi является актуальной темой для разработчиков, работающих с объектно-ориентированным программированием в среде Delphi. Делегирование интерфейсов позволяет уменьшить количество кода, необходимого для реализации интерфейсов, однако при наследовании интерфейсов возникают особенности, которые требуют дополнительного рассмотрения.

Проблема делегирования наследованных интерфейсов

Delphi предоставляет возможность делегирования интерфейсов с помощью ключевого слова implements. Однако, когда дело доходит до наследованных интерфейсов, стандартный подход с делегированием через свойство не работает, и компилятор выдает ошибку о том, что отсутствует реализация метода наследованного интерфейса.

ILev1 = interface
    function foo: Integer;
end;

ILev2 = interface(ILev1)
    function goo: Integer;
end;

TLev2Fails = class(TInterfacedObject, ILev1, ILev2)
private
    FNested: ILev1; // может быть передан через конструктор или создан внутри
public
    constructor Create(AILev1: ILev1);
    function goo: Integer;
    property AsLev1: ILev1 read FNested implements ILev1; // Ошибка компиляции
end;

Рабочий обходной путь заключается в добавлении дополнительного класса-предка, который реализует наследованный интерфейс:

TLev1Wrapper = class(TInterfacedObject, ILev1)
private
    FNested: ILev1; // может быть передан через конструктор или создан внутри
public
    constructor Create(AILev1: ILev1);
    property AsLev1: ILev1 read FNested implements ILev1;
end;

TLev2Works = class(TLev1Wrapper, ILev2)
public
    function goo: Integer;
end;

Возможность избежать класса-оболочки?

Вопрос о том, можно ли избежать использования класса-оболочки для делегирования наследованных интерфейсов, остается открытым. В документации Delphi нет информации, которая бы указывала на ограничение такого рода, и некоторые разработчики предполагают, что это может быть ошибкой компилятора.

Комментарии и альтернативные ответы

В обсуждениях на форумах разработчики делятся мнениями о том, что проблема может быть связана с ожиданиями реализации метода QueryInterface интерфейса __IUnknown__. Они также отмечают, что использование класса TAggregatedObject не помогает в делегировании через implements и что в любом случае потребуется ручная делегировка.

Подтвержденный ответ

На данный момент, избежать использования класса-оболочки не удается. Делегирование наследованных интерфейсов в Delphi требует явной ручной реализации через предка, который будет реализовывать наследованные методы интерфейса.

Заключение

Делегирование интерфейсов в Delphi - мощный инструмент, однако с наследованными интерфейсами он требует дополнительных шагов. В текущей версии компилятора Delphi избежать использования класса-оболочки не удается, и разработчикам приходится использовать дополнительные классы для реализации наследованных интерфейсов. Это ограничение может быть связано с внутренней реализацией интерфейса __IUnknown__ и требованиями к единообразию поведения объектов в COM-системе.

Создано по материалам из источника по ссылке.

Делегирование интерфейсов в Delphi для наследованных типов требует использования вспомогательных классов-оболочек, так как прямой подход с использованием свойств и ключевого слова `implements` не работает.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Интерфейс ::