"Коммуникация между службой Windows и VCL-приложениями: проблемы и решения в эпоху Vista и Windows 7"

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

Коммуникация между службой Windows и VCL-приложениями: проблемы и решения в эпоху Vista и Windows 7

Вопрос коммуникации между службой Windows и VCL-приложениями становится актуальным при миграции консольных приложений на сервисные. В данной статье мы рассмотрим проблему, с которой сталкиваются разработчики, использующие функции FindWindow и SendMessage для общения между консольным приложением и приложением с VCL интерфейсом, и пути её решения в свете изменений, внесенных в операционные системы Vista и Windows 7.

Проблема коммуникации

В контексте миграции консольного приложения в сервисное приложение (service application) возникает проблема с коммуникацией между ним и VCL-приложением. Ранее, при использовании консольного приложения, обмен данными осуществлялся через функции FindWindow и SendMessage, что позволяло без проблем обмениваться информацией с VCL-приложением. Однако, после перехода на сервисное приложение, эти методы перестают работать из-за изменений в операционных системах Vista и Windows 7, которые ограничивают доступ сервисов к десктопу пользователя.

Решения проблемы

Использование сокетов или именованных каналов

Автор вопроса знает о возможности использования сокетов или именованных каналов (named pipe) для коммуникации между приложениями, однако он не желает изменять текущую структуру приложения из-за возможного задержания процесса миграции.

Неподходящие альтернативы

Предложение использовать ControlService вместо SendMessage не подходит, так как ControlService не позволяет передавать параметры сервису, что делает его непригодным для передачи данных.

Подтвержденное решение

Изменить существующий способ коммуникации невозможно без модификации структуры приложения, так как сервисы в Vista и Windows 7 работают в отдельной сессии, не имея доступа к десктопу пользователя. Это означает, что для обеспечения взаимодействия между сервисом и VCL-приложением необходимо использовать альтернативные механизмы, такие как именованные каналы.

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

Для реализации коммуникации между сервисным приложением и VCL-приложением через именованный канал можно использовать следующий пример кода на Object Pascal:

program NamedPipeCommunication;

{$APPTYPE CONSOLE}

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

var
  NamedPipeServer: TThread;
  PipeName: string;
  PipeAccess: TStringList;
  PipeSecurity: TSecurityDescriptor;
  PipeHandle: THandle;

function CreateNamedPipe(const PipeName: string): Boolean;
var
  PipeServerThread: TThread;
  PipeServer: Boolean;
  PipePath: string;
begin
  PipePath := PipeName;
  PipePath := ChangeFileExt(PipePath, '.pipe');
  if not FileExists(PipePath) then
  begin
    PipeAccess := TStringList.Create;
    try
      PipeAccess.CommaText := 'D:(A;;GRGWPDTRCWO;;;SY)(A;;GRGWPDS;;;BA)(A;;GWGX;;;AU)';
      PipeSecurity := TSecurityDescriptor.CreateFromAsn1(PipeAccess.CommaText);
      if not CreateNamedPipeSecurityDescriptor(PipePath, PipeSecurity) then
        Exit(False);
    finally
      PipeAccess.Free;
    end;
  end;
  Result := CreateFile(PipePath, GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,
    nil, OPEN_EXISTING, FILE_ATTRIBUTE_HIDDEN or FILE_FLAG_SEQUENTIAL_SCAN, 0) <> INVALID_HANDLE_VALUE;
end;

procedure ServerThread(var Params: TArray<Cardinal>);
var
  PipeServerThread: Boolean;
begin
  PipeServerThread := CreateNamedPipe(PWaitAndContinue, @Params[1], PIPE_ACCESS_DUPLEX, PIPE_UNLIMITED_INSTANCES, 8192, 8192, 1000, Params[0]);
  if PipeServerThread then
    try
      if WaitNamedPipe(PipeServerThread, 5000) then
      begin
        // Ожидание подключения клиента
        if ConnectNamedPipe(PipeServerThread, nil) then
        begin
          // Здесь код для обработки сообщений от клиента
        end;
      end;
    finally
      CloseHandle(PipeServerThread);
    end;
end;

begin
  PipeName := '\.\pipe\MyNamedPipe';
  Params[0]: TCHARArray(PipeName);
  NamedPipeServer := TThread.CreateAnonymousThread(
    procedure
    begin
      ServerThread([SizeOf(TCHARArray(PipeName)), PipeName]);
    end);

  NamedPipeServer.Start;
  NamedPipeServer.WaitFor;
end.

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

Заключение

В данной статье мы рассмотрели проблему коммуникации между службой Windows и VCL-приложениями, а также подтвержденное решение, основанное на использовании именованных каналов для обеспечения взаимодействия между приложениями в операционных системах Vista и Windows 7. Несмотря на необходимость изменений в структуре приложения, использование именованных каналов является надежным и безопасным способом реализации межпроцессного взаимодействия.

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

В контексте миграции консольных приложений на сервисы в операционных системах Vista и Windows 7 рассмотрена проблема и решения для коммуникации между VCL-приложениями и службой Windows, с использованием именованных каналов в качестве

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

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

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