Использование VCL в DLL и решении проблем с инстанциями в Delphi

Delphi , Компоненты и Классы , Свойства и События

Использование VCL в DLL и решения проблем с инстанциями в Delphi

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

Описание проблемы

Разработчик столкнулся с проблемой, когда при нажатии на второй элемент подменю в меню ничего не происходит. В коде присутствует DLL, содержащая тип TEventHandler с классовой процедурой MenuClick, которая должна отображать тег выбранного элемента меню. В приложении используется функция InjectPopupMenu из DLL для добавления подменю.

type
  TEventHandler = class
  public
    class procedure MenuClick(Sender: TObject);
  end;

class procedure TEventHandler.MenuClick(Sender: TObject);
begin
  ShowMessage(IntToStr(TMenuItem(Sender).Tag));
end;

procedure InjectPopupMenu(CallerForm: TForm; HostMenuItem: TMenuItem);
var
  SubMenu: TMenuItem;
  I: Integer;
begin
  for I := 1 to 20 do
  begin
    SubMenu := TMenuItem.Create(HostMenuItem);
    SubMenu.Caption := 'Test ' + IntToStr(I);
    SubMenu.Tag := I;
    SubMenu.OnClick := TEventHandler.MenuClick;
    HostMenuItem.Add(SubMenu);
  end;
end;
exports
  InjectPopupMenu;

В приложении создается тип TInjectPopupMenu и вызывается функция InjectPopupMenu для добавления подменю в меню.

type
  TInjectPopupMenu = procedure(CallerForm: TForm; HostMenuItem: TMenuItem);

procedure TForm1.LoadPopupMenuPlugin(CallerForm: TForm; HostMenuItem: TMenuItem);
var
  InjectPopupMenu: TInjectPopupMenu;
begin
  @InjectPopupMenu := GetProcAddress(FPopupMenuPlugin, 'InjectPopupMenu');
  InjectPopupMenu(CallerForm, HostMenuItem);
end;

Проблема заключается в том, что все подменю работают корректно, за исключением второго, которое не реагирует на клик.

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

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

Для решения проблемы необходимо использовать runtime-пакеты, которые позволят сделать TForm и другие классы VCL одинаковыми в обоих модулях. Если использование runtime-пакетов невозможно, следует использовать интерфейсы для взаимодействия между модулями.

Альтернативное решение

В случае, если использование runtime-пакетов невозможно, можно применить следующую стратегию:

1. Создать интерфейс для обработчика событий, который будет использоваться в DLL.
2. В приложении создать объект, реализующий этот интерфейс, и передать его в DLL.
3. В DLL использовать этот интерфейс для вызова нужной логики обработки события.

Это позволит избежать прямой передачи VCL-объектов между различными инстанциями VCL.

Заключение

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

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

Проблема связана с использованием компонентов VCL в динамической библиотеке (DLL) для Delphi, где из-за разного инстанцирования VCL в DLL и приложении возникают трудности с обработкой событий.

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

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

:: Главная :: Свойства и События ::