Передача данных между основной программой и модулями EXE без использования DLL в Delphi

Delphi , Синтаксис , Справочник по API-функциям

Вопрос модульности программного обеспечения в последние годы стал особенно актуальным. Разработчики стремятся к созданию гибких систем, которые могут адаптироваться под различные задачи и быть легко расширяемыми. Один из подходов к модульности — использование плагинов. Традиционно для реализации плагинов используются динамически подключаемые библиотеки (DLL). Однако, в данной статье мы рассмотрим альтернативный подход, который заключается в использовании исполняемых файлов (EXE) вместо DLL.

Преимущества использования EXE в качестве плагинов

Использование EXE в качестве плагинов может быть предпочтительнее в случае, когда модули программы выполняются длительное время и требуют высокой степени стабильности. Такая архитектура позволяет избежать проблем, связанных с нестабильностью компонентов, поскольку каждый модуль запускается в отдельном процессе. Это подход, схожий с тем, который используется в браузере Google Chrome.

Передача данных между основной программой и модулями EXE

Для передачи данных между основной программой и модулями EXE можно использовать различные механизмы. В частности, интерес представляют такие методы, как именованные каналы (named pipes) и параметры командной строки (CLI parameters). Эти методы могут быть использованы для однократной передачи информации, аналогично тому, как это делается с функцией "Register" в DLL.

Пример использования именованных каналов

program NamedPipesExample;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Winapi.Windows,
  Winapi.Winprocerr,
  System.Threading;

var
  PipeServer: THandle;
  PipeClient: THandle;
  Buffer: array[0..255] of Char;
  BytesRead: Cardinal;
  ReadResult: DWORD;
  WriteResult: DWORD;
  PipeName: TCharArray;

begin
  PipeName := 'MyNamedPipe\0';
  PipeServer := CreateNamedPipe(PipeName[1], PIPE_ACCESS_OUTBOUND, PIPE_TYPE_BYTE | PIPE_WAIT, 1, 0, 0, 0, nil);
  if PipeServer = INVALID_HANDLE_VALUE then
    RaiseLastOSError;

  WriteResult := ConnectNamedPipe(PipeServer, nil);
  if WriteResult <> 0 then
    RaiseLastOSError;

  // Здесь может быть код для отправки данных клиенту
  SetLength(Buffer, SizeOf('Привет, мир!'));
  WriteFile(PipeServer, Buffer[1], SizeOf('Привет, мир!'), BytesRead, nil);
  CloseHandle(PipeServer);

  // Клиентский код для чтения данных из канала
  PipeClient := CreateFile(PipeName[1], GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if PipeClient = INVALID_HANDLE_VALUE then
    RaiseLastOSError;

  ReadResult := ReadFile(PipeClient, Buffer, SizeOf(Buffer), BytesRead, nil);
  if ReadResult = 0 then
    RaiseLastOSError;

  WriteLn(TypeInfo(Buffer[0], BytesRead - 1));
  CloseHandle(PipeClient);
end.

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

Также можно рассмотреть использование протокола через stdin/stdout, именованные каналы, сокеты и другие механизмы для передачи данных между процессом основной программы и модулями EXE.

Заключение

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

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

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

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

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

:: Главная :: Справочник по API-функциям ::