Вызов методов основного приложения из библиотеки DLL в Delphi

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

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

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

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

Альтернативный ответ

Существует пример, который демонстрирует реализацию callback-метода внутри DLL, используя Delphi и компоненты TJVPluginManager, TJvPlugin. Этот пример можно найти на Stack Overflow.

Подтвержденный ответ

Для реализации вызова метода основного приложения из DLL, необходимо создать объект callback. В основном приложении нужно объявить интерфейс, который описывает метод, который вы хотите вызвать. Например:

IMyMethodInterface = interface(IInterface)
    procedure MyMethod(); stdcall;
end;

Далее создается класс, который реализует этот интерфейс и метод:

TMyMethodObject = class(TInterfacedObject, IMyMethodInterface)
  public
    procedure MyMethod(); stdcall;
end;

При загрузке DLL создается экземпляр TMyMethodObject и его интерфейс IMyMethodInterface передается в DLL. В DLL должен быть соответствующий метод для установки callback-метода, который принимает интерфейс в качестве параметра:

var
  mmo: IMyMethodInterface;
  dllHandle: THandle;
  smc: procedure (mmi: IMyMethodInterface); stdcall;
begin
  mmo := TMyMethodObject.Create();
  dllHandle := LoadLibrary('mydll.dll');
  smc := GetProcAddress(dllHandle, 'SetMethodCallback');
  if Assigned(smc) then
    smc(mmo);
end;

Внутри DLL можно использовать ссылку на IMyMethodInterface для вызова метода.

Также можно статически связать DLL и использовать методы напрямую:

procedure SetMethodInterface(mmi: IMyMethodInterface); stdcall; external 'mydll.dll';

Пример кода для DLL:

library Project3;
uses YourMethodIntf.pas;
{$R *.res}
var
  AppMethod: IMyMethodInterface;

  procedure SetAppMethodCallback(mmi: IMyMethodInterface); stdcall;
  begin
    AppMethod := mmi;
  end;

  procedure AnotherDllMethod();
  begin
    // Здесь можно вызвать AppMethod.MyMethod();
  end;

exports
  SetAppMethodCallback name 'SetMethodCallback';
begin
end.

Обратите внимание, что объект mmo (TMyMethodInterface) не будет уничтожен до тех пор, пока в DLL не будет установлена ссылка AppMethod в nil, или до выгрузки DLL, поэтому важно следить за его состоянием.

Примечания

Для полноценной реализации потребуется объявить интерфейс в отдельном файле .pas и включить его в оба проекта: DLL и основное приложение.

Пример проекта с основным приложением и DLL можно найти в архиве appCallback.zip, ссылка на который была предоставлена разработчиком.

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

При вызове AppMethod.MyMethod() может возникнуть исключение, если AppMethod не инициализирован. Инициализация должна быть выполнена до использования callback-метода.

Заключение

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

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

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

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

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

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