Объединение интерфейсов в Delphi без приведения типов: повышение гибкости и производительности

Delphi , Технологии , COM и DCOM

Объединение интерфейсов в Delphi без приведения типов

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

Проблема и ее описание

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

Пример неудачной попытки

TImplement = Class(TInterfacedObject, IOne, ITwo)
private
  FOne: IOne;
  FTwo: ITwo;
public
  property One: IOne read FOne implements IOne;
  property Two: ITwo read FTwo implements ITwo;
end;

Использование объекта MyInterface в таком случае требует приведения типов:

(MyInterface as IOne).Something;
(MyInterface as ITwo).SomethingElse;

Желаемое поведение

Разработчик хочет иметь возможность вызывать методы без приведения типов:

MyInterface.Something;
MyInterface.SomethingElse;

Попытка наследования интерфейсов

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

ITogether = Interface(IOne)
  procedure SomeThingElse;
end;

TImplement = Class(TInterfacedObject, ITogether)
  // или Class(TInterfacedObject, ITogether, IOne)
  private
    FOne: IOne;
    function SomeThingElse;
  public
    property One: IOne read FOne implements IOne;
  end;

Компилятор выдает сообщение об ошибке:

E2291 Implementation of Method x From Interface IOne missing.

Подтвержденное решение

Решение заключается в реализации методов интерфейса IOne и перенаправлении вызовов на свойство FOne:

type
  IOne = interface
    ['{19F785C0-5D2E-479F-BB2C-88A00BA4C812}']
    procedure Something;
  end;

  ITogether = interface(IOne)
    ['{B8B7F690-DC98-41AB-A6D9-29F70330EDA5}']
    procedure SomethingElse;
  end;

  TTogether = class(TInterfacedObject, ITogether)
  private
    FOne: IOne;
  protected
    property One: IOne read FOne;
  public
    constructor Create(AOne: IOne);
    procedure SomethingElse;
    procedure Something;
  end;

constructor TTogether.Create(AOne: IOne);
begin
  inherited Create;
  FOne := AOne;
end;

procedure TTogether.Something;
begin
  One.Something;
end;

procedure TTogether.SomethingElse;
begin
  { Реализация метода }
end;

Также можно использовать обертку для интерфейса, если необходимо работать с несколькими расширениями:

type
  TOneWrapper = class
  private
    FOne: IOne;
  protected
    property One: IOne read FOne;
  public
    constructor Create(AOne: IOne);
    procedure Something;
  end;

  TTogether = class(TInterfacedObject, ITogether)
  private
    FOne: TOneWrapper;
  protected
    property One: TOneWrapper read FOne implements ITogether;
  public
    constructor Create(AOne: IOne);
    destructor Destroy; override;
    procedure SomethingElse;
  end;

// Конструкторы и деструкторы, а также реализации методов для TOneWrapper и TTogether

Альтернативный ответ и комментарии

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

Выводы

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

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

Объединение интерфейсов в Delphi без приведения типов для создания объекта с расширенным функционалом.

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

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

:: Главная :: COM и DCOM ::