Вызов процедур из DLL в Delphi 11: Пошаговое руководство

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

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

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

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

Решение проблемы

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

Шаг 1: Определение типа процедуры

Сначала нужно определить тип процедуры в обоих модулях (в приложении и в DLL) с использованием той же сигнатуры и соглашения о вызовах.

type
  TProcDrawRectangle = procedure(X, Y, W, H: Integer); stdcall;

Шаг 2: Передача указателя на процедуру

В DLL создаем процедуру, которая будет принимать указатель на процедуру DrawRectangle.

procedure LinkMyCallback(proc: TProcDrawRectangle); stdcall;
begin
  // Сохраняем указатель на процедуру
  ProcToCall := proc;
end;

Шаг 3: Вызов процедуры в DLL

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

procedure OtherThings; stdcall;
begin
  // ...
  if Assigned(ProcToCall) then
    ProcToCall(10, 20, 800, 600);
end;

Шаг 4: Импорт процедур из DLL в приложение

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

procedure CallbackHere(X, Y, W, H: Integer); stdcall;
begin
  // Тело процедуры DrawRectangle
end;

Также необходимо импортировать процедуры из DLL.

procedure LinkMyCallback(proc: TProcDrawRectangle); stdcall; external 'Lib.dll';
procedure OtherThings; stdcall; external 'Lib.dll';

Шаг 5: Использование процедур в приложении

В основном коде приложения вызываем процедуру OtherThings, которая, в свою очередь, вызовет CallbackHere.

begin
  // Передаем указатель на нашу процедуру в DLL
  LinkMyCallback(CallbackHere);
  // Вызываем процедуру из DLL
  OtherThings();
end.

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

• Все процедуры должны использовать одинаковое соглашение о вызовах, предпочтительно stdcall.
• Используйте простые типы данных, избегайте использования типов, специфичных для Delphi, таких как String или классы/объекты.
• Для динамической загрузки DLL используйте соответствующие функции Windows API, такие как LoadLibrary, GetProcAddress и т.д.

Следуя этим шагам, вы сможете успешно вызвать процедуру из основного приложения в DLL в среде Delphi 11.

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

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

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

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

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