Определение исполнимого файла и модуля базы данных для вызовов DLL в Delphi

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

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

Проблема

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

Решение

Использование функции ParamStr(0) является эффективным способом получения пути к исполняемому файлу, который вызвал DLL. В Windows ParamStr(0) реализован через вызов API-функции GetModuleFileName, которая возвращает имя файла, ассоциированное с основным исполняемым модулем. Это работает одинаково, независимо от того, вызывается ли функция из DLL или из основной исполняемой программы.

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

Важные моменты

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

Пример кода

procedure TForm1.Button1Click(Sender: TObject);
var
  module: HMODULE;
  doStuff: procedure; stdcall;
begin
  module := LoadLibrary('D:\Temp\Win32\Debug\Project2.dll');
  if module = 0 then
    RaiseLastOSError;
  try
    doStuff := GetProcAddress(module, 'DoStuff');
    if @doStuff = nil then
      raise Exception.Create('Could not find export "DoStuff"');
    doStuff;
  finally
    FreeLibrary(module);
  end;
end;

В DLL:

library Project2;
uses
  System.SysUtils, System.Classes, Vcl.Forms, Vcl.Dialogs, Winapi.Windows;
{$R *.res}

procedure DoStuff; stdcall;
begin
  ShowMessage(
    'ParamStr(0): '+ParamStr(0)+#13#10+
    'GetCommandLine: '+GetCommandLine);
end;

exports
  DoStuff;
begin
end.

В результате выполнения кода в тестовом приложении, функция DoStuff из DLL сможет отобразить информацию о командной строке, используя как ParamStr(0), так и GetCommandLine.

Заключение

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

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

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

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

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

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