Безопасное межпроцессное взаимодействие в Delphi 2010 с помощью TPipeServer и TPipeClient

Delphi , ОС и Железо , Windows

Межпроцессное взаимодействие (IPC) является ключевым аспектом разработки программного обеспечения, особенно когда речь заходит о взаимодействии между службами Windows и графическими приложениями. В контексте разработки на Delphi 2010, компоненты TPipeServer и TPipeClient, созданные Russell Libby, предоставляют удобный способ реализации IPC через именованные каналы (named pipes).

Проблема

Разработчик столкнулся с необходимостью реализации IPC между службой Windows и графическим приложением, написанными на Delphi 2010. После выбора именованных каналов для IPC, разработчик успешно установил компоненты TPipeServer и TPipeClient. Однако, несмотря на все усилия, служба не получала от клиента никаких сообщений, содержащих данные. После ряда тестов было сделано предположение о неправильном использовании компонентов. В связи с этим, разработчик искал примеры кода, демонстрирующие правильное использование этих компонентов для чтения и записи строк в именованные каналы, а также способы прохождения проверки безопасности в операционных системах Windows Server 2008, Windows Vista и Windows 7.

Решение

В качестве альтернативы, разработчику была предложена использование компонентов Cromis-IPC, которые предоставляют примеры клиент-серверного взаимодействия. Cromis-IPC позволяет осуществлять IPC как на одном компьютере, так и между компьютерами в сети. Важно отметить, что управление разрешениями является простым, когда взаимодействие происходит в рамках одного компьютера. Для более сложных сценариев, связанных с сетевым взаимодействием, следует обратиться к документации Windows по теме "Named Pipe Security and Access Rights".

Подтвержденный ответ

Cromis-IPC — это мощный инструмент для IPC, использующий именованные каналы Windows. В составе компонента и на сайте разработчика представлены примеры клиент-серверного взаимодействия. Для детального изучения вопросов безопасности и управления доступом к каналам можно обратиться к официальной документации Microsoft по теме "Named Pipe Security and Access Rights".

Пример кода

Ниже приведен пример кода на Object Pascal для TPipeServer, который демонстрирует базовое взаимодействие через именованные каналы:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.NamedPipes, SysUtils, Classes, SysInit, System.SysUtils;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Для поддержки разработчиков}
    FServerPipeName: string;
    FServerSecurity: TSecurityQos;
    FServerPipe: THandle;
    procedure CreateNamedPipe;
    procedure HandleClientConnection;
    procedure FreePipe;
  public
    { Деструктор }
    destructor Destroy; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Создание именованного канала
procedure TForm1.CreateNamedPipe;
var
  dwThreadId: DWORD;
begin
  FServerPipeName := 'MyPipe';
  FServerSecurity.Level := SecurityQosLevelDefault;
  FServerSecurity.Impersonation := SecurityImpersonation;
  FServerPipe := CreateNamedPipe(PChar(FServerPipeName),
    PIPE_ACCESS_SERVER + FILE_FLAG_OVERLAPPED,
    PIPE_TYPE_MESSAGE | PIPE_READ_MODE_MESSAGE,
    PIPE_UNLIMITED_INSTANCES,
    1024, // размер буфера ввода
    1024, // размер буфера вывода
    1000, // таймаут в мс
    NULL);
  if FServerPipe = INVALID_HANDLE_VALUE then
    RaiseLastOSError;
  // Создаём поток для обслуживания соединения
  CreateThread(nil, 0, @HandleClientConnection, nil, 0, dwThreadId);
end;

// Обработка клиентского соединения
procedure TForm1.HandleClientConnection;
var
  dwBytesRead: DWORD;
  dwBytesToWrite: DWORD;
  lpBuffer: Pointer;
  hHeap: THandle;
  lpOverlapped: Pointer;
  bSuccess: Boolean;
  dwWait: DWORD;
begin
  lpBuffer := GetMem(1024);
  lpOverlapped := GetMem(SizeOf(Overlapped));
  ZeroMemory(lpOverlapped, SizeOf(Overlapped));
  hHeap := GetProcessHeap;
  bSuccess := ConnectNamedPipe(FServerPipe, lpOverlapped);
  if bSuccess = FALSE then
  begin
    dwWait := WaitForSingleObject(FServerPipe, INFINITE);
    if dwWait <> WAIT_OBJECT_0 then
      RaiseLastOSError;
  end;
  repeat
    ZeroMemory(lpBuffer, SizeOf(TChar) * 1024);
    dwBytesRead := 0;
    bSuccess := ReadFile(FServerPipe, lpBuffer, 1024, dwBytesRead, lpOverlapped);
    if (bSuccess = FALSE) and (GetLastError <> ERROR_IO_PENDING) then
      Break;
    if (GetLastError = ERROR_MORE_DATA) then
      Continue;
    if dwBytesRead = 0 then
      Break;
    // Тут код для обработки полученных данных
    // ...
    // Отправляем ответ клиенту
    dwBytesToWrite := dwBytesRead;
    bSuccess := WriteFile(FServerPipe, lpBuffer, dwBytesToWrite, dwBytesWritten, lpOverlapped);
  until FALSE;
  DisconnectNamedPipe(FServerPipe);
  FreeMem(lpBuffer);
  FreeMem(lpOverlapped);
end;

// Освобождение ресурсов
procedure TForm1.FreePipe;
begin
  if FServerPipe <> 0 then
    CloseHandle(FServerPipe);
end;

// Деструктор
destructor TForm1.Destroy;
begin
  FreePipe;
  inherited Destroy;
end;

// Создание канала при запуске формы
procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateNamedPipe;
end;

end.

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

Заключение

Использование компонентов TPipeServer и TPipeClient, а также Cromis-IPC, позволяет разработчикам на Delphi 2010 реализовать безопасное межпроцессное взаимодействие между службами и графическими приложениями. Важно правильно настроить безопасность и управлять доступом к именованным каналам, чтобы обеспечить корректную работу IPC в различных операционных системах.

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

Безопасное межпроцессное взаимодействие в Delphi 2010 с использованием компонентов для работы с именованными каналами и обеспечение корректного обмена данными между сервером и клиентом, учитывая вопросы безопасности в операционных системах Wind

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

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

:: Главная :: Windows ::