Экспорт функций из Delphi EXE в DLL для работы с TMemo

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

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

Проблема

Разработчик модулирует свое приложение для работы с отдельными модулями (плагинами) и успешно реализовал загрузку плагинов, включая формы. Теперь перед ним стоит задача экспортировать функции из исполняемого файла в DLL. Например, внутри EXE есть компонент TMemo, и разработчик хочет создать функцию GetMemo, которая будет возвращать содержимое TMemo.

Решение

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

type
  PPluginExeFunctions = ^PluginExeFunctions;
  PluginExeFunctions = record
    GetMemo: function: WideString; stdcall;
    // другие функции
  end;

function MyGetMemoFunc: WideString; stdcall;
begin
  Result := Form1.Memo1.Text;
end;

var
  ExeFuncs: PluginExeFunctions;
  hPlugin: THandle;
  InitFunc: procedure(ExeFuncs: PPluginExeFunctions); stdcall;
begin
  ExeFuncs.GetMemo := @MyGetMemoFunc;
  // инициализация плагина
  hPlugin := LoadLibrary('plugin.dll');
  @InitFunc := GetProcAddress(hPlugin, 'InitializePlugin');
  InitFunc(@ExeFuncs);
  // дальнейшие действия
end;

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

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

unit uDoingExport;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
procedure testproc; stdcall;
implementation
{$R *.dfm}
procedure testproc;
begin
   ShowMessage('testproc');
end
exports
  testproc;
end.

Этот подход демонстрирует, что EXE может вести себя как DLL, добавив экспортируемые функции в модуль.

Заключение

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

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

Необходимо реализовать экспорт функций из Delphi EXE в DLL для работы с компонентом TMemo в целях модульной разработки приложений.

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

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

:: Главная :: EXE файл ::