Создание портативного приложения в Delphi: избавляемся от зависимости DLL для работы с Firebird и MySQL

Delphi , Базы данных , Interbase

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

Проблема с зависимостью от DLL

Разработчики, работающие с компонентами dbExpress в Delphi 2010, сталкиваются с необходимостью размещения файлов DLL в системных каталогах для корректной работы с базами данных MySQL и Firebird. Это создаёт неудобства при распространении портативного приложения, так как пользователи могут не иметь эти файлы в системных каталогах, что приведёт к ошибкам при запуске программы.

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

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

Пример кода

Для встраивания DLL в исполняемый файл можно использовать следующий подход:

1. Добавьте файлы DLL в проект как ресурсы.
2. Создайте функцию, которая будет извлекать файлы из ресурсов и сохранять их в локальную папку.

procedure ExtractDLLs(const AExecutablePath: string);
var
  DLLPath: string;
  ResourceID: Integer;
  ResourceSize: Integer;
  ResourceData: TMemoryStream;
begin
  // Получаем путь к локальной папке для DLL
  DLLPath := AExecutablePath + '\dlls';
  if not DirectoryExists(DLLPath) then
    MkDir(DLLPath);

  // Извлекаем каждый файл DLL как ресурс
  ResourceID := 0;
  repeat
    ResourceSize := GetResourceSize(AExecutablePath, RT_RCDATA, ResourceID);
    if ResourceSize > 0 then
    begin
      ResourceData := TMemoryStream.Create;
      try
        LoadResourceFromFile(AExecutablePath, RT_RCDATA, ResourceID, ResourceData);
        with TFileStream.Create(DLLPath + '\DLL' + ResourceID.ToString, fmCreate) do
        try
          WriteBuffer(ResourceData.Memory, ResourceSize);
        finally
          Free;
        end;
      finally
        ResourceData.Free;
      end;
      Inc(ResourceID);
    end
    else
      Break;
  until False;
end;

Этот код следует вызвать перед первым подключением к базе данных, чтобы убедиться, что все необходимые DLL доступны.

Заключение

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

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

При разработке портативных приложений в Delphi для работы с базами данных Firebird и MySQL рассматривается метод избавления от зависимости от внешних DLL, встраивая их в исполняемый файл и распаковывая в локальную папку на целевом компьютере.

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

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

:: Главная :: Interbase ::