Расширяем возможности консольного приложения: создание системы плагинов на Delphi

Delphi , Файловая система , DLL и PlugIns

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

Основные принципы создания плагинов

Плагины в данном случае будут представлены в виде DLL, которые загружаются в основное приложение и могут взаимодействовать с его ядром. Для этого мы создадим интерфейсы, которые будут использоваться для передачи данных и вызова методов между плагинами и основным приложением.

Реализация интерфейсов

Для начала определим интерфейсы, которые будут использоваться для взаимодействия с плагинами. Создадим модуль uHostInterfaces, в котором определим два интерфейса: IHost и IHostExposed.

unit uHostInterfaces;
interface
type
  IHost = interface
    ['{BAFA98BC-271A-4847-80CE-969377C03966}']
    procedure Start;
    procedure Stop;
  end;
  // Интерфейс, который будет предоставлен плагинам
  IHostExposed = interface
    ['{1C59B1A9-EC7A-4D33-A574-96DF8F5A7857}']
    function GetVar1: Integer;
    function GetVar2: String;
    procedure SetVar1(const AValue: Integer);
    procedure SetVar2(const AValue: String);
    property Var1: Integer read GetVar1 write SetVar1;
    property Var2: String read GetVar2 write SetVar2;
  end;

Создание класса хоста

Далее создадим класс THost, который будет реализовывать интерфейсы IHost и IHostExposed. Этот класс будет представлять собой основное приложение и предоставлять плагинам доступ к своим методам и переменным.

unit uHost;
interface
uses
  Winapi.Windows, Winapi.Messages,
  uHostInterfaces, uInstanceController, uSettings;
type
  THost = class(TInterfacedObject, IHost, IHostExposed)
  // ...
  private
    FVar1, FVar2: Integer;
    FWindowHandle: HWND;
    FInstanceController, FSettings: TObject;
    procedure WndProc(var AMessage: TMessage);
  public
    constructor Create;
    destructor Destroy; override;
    // Реализация методов интерфейса IHost
    procedure Start;
    procedure Stop;
    // Реализация свойств и методов интерфейса IHostExposed
    function GetVar1: Integer;
    function GetVar2: string;
    procedure SetVar1(const AValue: Integer);
    procedure SetVar2(const AValue: string);
  end;

Загрузка и использование плагинов

Для загрузки плагинов воспользуемся функцией LoadLibrary и GetProcAddress. Создадим функцию TRegisterPlugin, которая будет принимать интерфейс IHostExposed для взаимодействия с основным приложением.

type
  TRegisterPlugin = procedure(const AHostExposed: IHostExposed);
var
  hdll: THandle;
  RegisterPlugin: TRegisterPlugin;
  host: IHost;
begin
  host := THost.Create;
  hdll := LoadLibrary('plugin.dll');
  if hdll <> 0 then
  begin
    RegisterPlugin := GetProcAddress(hdll, 'RegisterPlugin');
    if Assigned(RegisterPlugin) then
    begin
      RegisterPlugin(host as IHostExposed);
      // Дальнейшие действия по работе с плагином
    end;
  end;

Заключение

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

Альтернативные подходы

В качестве альтернативного подхода можно рассмотреть использование компонентов COM. Если вы уже знакомы с интерфейсами, но не знакомы с компонентами и их регистрацией, то можно использовать возможности новой программы, которая поможет ввести проект с библиотекой ActiveX, содержащей автоматические объекты. Попробуйте исследовать редактор библиотеки типов и посмотрите, что происходит, когда библиотека запускается и регистрируется автоматически.

// Подтвержденный ответ указывает на то, что можно ознакомиться с компонентами COM через новый проект в Delphi, активных объектов с автоматизацией, типными библиотеками и т.д.,

Полезные знания можно получить из исследования файла System.Win.ComServ.pas. Это поможет в понимании, как автоматически регистрируются и работают компоненты COM.

Итог

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

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

В статье рассматривается создание системы плагинов для консольного приложения на языке Object Pascal в среде Delphi, используя динамически подключаемые библиотеки (DLL).

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

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

:: Главная :: DLL и PlugIns ::