Расширение интерфейсов в Delphi без использования TInterfacedObject

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

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

Проблема

Иногда в Delphi возникает задача добавить интерфейс к иерархии классов, которая изначально не включает TInterfacedObject. Например, у вас есть класс TMyObject, который должен использовать интерфейс IInterface, но класс имеет предка TMyClassDerivedDirectlyFromTObjectSoItsGotNothingInItAtAll, который не предоставляет никаких дополнительных возможностей и не включает TInterfacedObject.

Решение

Для начала, давайте разберемся, что такое TInterfacedObject. Это специальный класс в Delphi, который предоставляет реализацию трех методов интерфейса: __AddRef, __Release и QueryInterface. Эти методы необходимы для поддержки интерфейсов в Delphi.

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

Однако, важно отметить, что не все классы, даже если они не наследуют TInterfacedObject напрямую, не поддерживают интерфейсы. Например, TComponent (и его потомки, такие как TTable) уже реализуют интерфейс IInterface. Поэтому, если ваш класс наследуется от TComponent, вы можете просто добавить нужный интерфейс, как показано ниже:

type
  IMyAddFunction = interface
    ['{BFC7867C-6098-4744-9774-35E0A8FE1A1D}']
    function Add(a, b: integer): integer;
  end;

  TMyObject = class(TTable, IMyAddFunction)
  public
    function Add(a, b: integer): integer; override;
  end;

Если ваш класс не наследует TComponent, вам придется реализовать интерфейс IInterface самостоятельно, используя следующие методы:

type
  IInterface = interface
    ['{00000000-0000-0000-C000-000000000046}']
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

  TMyObject = class(TMyClassDerivedDirectlyFromTObjectSoItsGotNothingInItAtAll, IInterface)
  public
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
    // Другие методы класса
  end;

Для реализации методов QueryInterface, _AddRef и _Release вы можете обратиться к исходным текстам, предоставляемым Delphi, и скопировать соответствующие реализации из TInterfacedObject.

Важные замечания

• Не называйте свои интерфейсы IInterface, чтобы избежать конфликтов имен.
• Если ваш класс уже наследует интерфейс, убедитесь, что реализация методов интерфейса не конфликтует с уже существующими.
• Используйте GUID (Globally Unique Identifier) для идентификации вашего интерфейса, чтобы избежать конфликтов при использовании нескольких интерфейсов в одной программе.

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

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

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

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

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

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