Обмен данными между DLL в модульной инфраструктуре Delphi

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

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

Проблема

Предположим, что вы разрабатываете модульную инфраструктуру с нуля, где разные DLL содержат разный бизнес-логику и логику приложения. Каждая DLL имеет свой механизм инициализации/деинициализации через общие вызовы DLL. Хост-приложение загружает и инициализирует эти DLL через функцию LoadLibrary. Внутри каждой DLL могут быть созданы глобальные переменные при инициализации. Вопрос заключается в том, как разрешить одной DLL доступ к данным другой DLL, инициализированной тем же хост-приложением, без прохождения через хост.

Решение

DLL в рамках одного процесса делят общую память. Глобальные переменные в библиотеке имеют единственный экземпляр. Если вызов LoadLibrary выполняется для уже загруженной DLL, возвращается дескриптор модуля к уже загруженному модулю. Следовательно, безопасно использовать LoadLibrary и затем вызывать функции этой библиотеки.

Пример кода

var
  ModuleHandle: HMODULE;
begin
  ModuleHandle := LoadLibrary('MyDLL.dll');
  if ModuleHandle <> 0 then
  begin
    // Получение адреса функции из DLL
    var FunctionPointer: TFunctionPointer;
    FunctionPointer := GetProcAddress(ModuleHandle, 'FunctionName');
    // Вызов функции из DLL
    if Assigned(FunctionPointer) then
      FunctionPointer;
    // Освобождение загруженной DLL
    FreeLibrary(ModuleHandle);
  end;
end;

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

Используйте GetModuleHandle, если вы уверены, что библиотека уже загружена. Например, не нужно вызывать LoadLibrary для kernel32.dll, так как она всегда загружена.

Пример обмена данными

Если вам нужно, чтобы разные DLL использовали одну и ту же базу данных, вы можете создать ADO-соединение внутри одной DLL и экспортировать методы для выполнения запросов и т.д. Затем другие DLL могут использовать эти методы для доступа к тем же данным.

// В DLL с базой данных
function ExecuteQuery(const SQL: string): TArray<string>;
begin
  // Код для выполнения запроса к базе данных
end;

// В другой DLL
var
  Result: TArray<string>;
begin
  Result := DatabaseDLL.ExecuteQuery('SELECT * FROM MyTable');
  // Обработка результатов
end;

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

• Глобальные данные могут быть экспортированы через экспортируемые функции для других библиотек и хост-приложения. Они не будут инициализированы заново, пока вы не освободите библиотеку.
• Библиотеки выполняют код, запущенный из хост-приложения; они не работают независимо.

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

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

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

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

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

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