Работа с динамическими библиотеками в Delphi: поиск и изменение DLL во время выполнения программы

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

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

Поиск DLL во время выполнения

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

Для решения проблемы поиска DLL во время выполнения программы, а не во время компиляции, можно использовать механизм отложенной загрузки (delayed loading) или динамическую загрузку (runtime linking). В Delphi для этого используются функции LoadLibrary, GetProcAddress и FreeLibrary из Win32 API. Также можно использовать ключевое слово delayed, предоставляемое RTL Delphi.

Пример использования отложенной загрузки:

type
  TMyComponent = class(TComponent)
  private
    FDLL: THandle;
    FProc: TProc;
  public
    procedure MyDllCall;
    destructor Destroy; override;
  end;

procedure TMyComponent.MyDllCall;
var
  res: LongInt;
begin
  if Assigned(FProc) then
    res := FProc;
end;

constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDLL := LoadLibrary('MyDllName.dll');
  if FDLL <> 0 then
  begin
    FProc := GetProcAddress(FDLL, 'MyFunction');
  end
  else
    raise Exception.Create('DLL not found');
end;

destructor TMyComponent.Destroy;
begin
  if FDLL <> 0 then
    FreeLibrary(FDLL);
  inherited Destroy;
end;

Изменение имени файла DLL во время выполнения

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

Пример:

procedure TMyComponent.MyDllCall;
var
  DLLName, ProcName: string;
  res: LongInt;
  FDLL: THandle;
  FProc: TProc;
begin
  DLLName := '10029.dll'; // Задаем имя DLL во время выполнения
  ProcName := 'MyFunction';
  FDLL := LoadLibrary(PChar(DLLName));
  if FDLL <> 0 then
  begin
    FProc := GetProcAddress(FDLL, PChar(ProcName));
    if Assigned(FProc) then
      res := FProc;
    FreeLibrary(FDLL);
  end
  else
    raise Exception.Create('DLL not found');
end;

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

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

Работа с динамическими библиотеками в Delphi включает возможность поиска и изменения DLL во время выполнения программы для обеспечения гибкости и модульности компонентов.

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

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

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