Оптимизация кода Delphi: использование DLL и EXE без runtime packages

Delphi , Программа и Интерфейс , Диалоги и Фреймы

При работе с проектами на Delphi, разработчики часто сталкиваются с необходимостью использования динамически подключаемых библиотек (DLL) для повышения модульности и удобства обслуживания приложений. Однако, стандартная опция "Build with runtime packages" может усложнить процесс распространения приложения, так как требует включения файлов BPL. В данной статье мы рассмотрим, как можно избежать использования runtime packages, сохранив при этом возможность работы с DLL в проектах на Delphi.

Проблема с runtime packages

При использовании runtime packages в проектах на Delphi, компилятор создает общие определения классов, что позволяет компонентам из EXE и DLL взаимодействовать друг с другом. Однако, если вы не хотите распространять BPL, необходимо найти альтернативный способ взаимодействия между модулями.

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

Чтобы использовать DLL без runtime packages, необходимо изменить интерфейс DLL таким образом, чтобы он не зависел от стандартных классов Delphi. Вместо передачи объектов WinControl можно передавать их идентификаторы окон (Handle) или другие значения HWnd, которые могут использоваться в Windows API для манипуляции окнами и отправки сообщений.

Пример кода

В EXE:

procedure TForm1.Button1Click(Sender: TObject);
var
  DLLHandle: THandle;
  GetTheFrame: TGetTheFrame;
  Frame: TFrame;
  ParentHandle: THandle;
begin
  ParentHandle := TabSheet1.Handle; // Получаем идентификатор окна TabSheet1
  DLLHandle := LoadLibrary('Project1.dll');
  if DLLHandle <> 0 then
  begin
    GetTheFrame := GetProcAddress(DLLHandle, 'GetTheFrame');
    Frame := GetTheFrame(nil, ParentHandle); // Передаем идентификатор окна в функцию
    // Дополнительный код...
  end
  else
  begin
    ShowMessage('ДLL не найден/не загружен');
  end;
end;

В DLL:

function GetTheFrame(Owner: Pointer; TheParent: Pointer): TFrame; stdcall;
begin
  Result := TFrame2.Create(Self);
  Result.Owner := Owner;
  if Assigned(TheParent) then
    Result.WindowHandle := TheParent; // Устанавливаем идентификатор родительского окна
end;

Преимущества использования DLL

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

Заключение

Использование DLL без runtime packages в проектах на Delphi возможно, но требует тщательной разработки интерфейса между модулями. Это позволяет избежать необходимости распространения BPL, но в то же время вносит дополнительные ограничения на типы данных, которые могут быть использованы для взаимодействия между EXE и DLL.

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

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

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

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

:: Главная :: Диалоги и Фреймы ::