Разбираемся с ошибкой 1053 при запуске сервиса на Delphi XE и Windows 7

Delphi , Программа и Интерфейс , Процессы и Сервисы

При разработке сервисов на Delphi XE для операционной системы Windows 7 разработчики могут столкнуться с ошибкой 1053. Это сообщение об ошибке указывает на то, что сервис не откликнулся на запрос на запуск или управление в установленные временные рамки. В данной статье мы рассмотрим типичную проблему, с которой сталкиваются пользователи, и предложим решения, основанные на реальных примерах из сообщества разработчиков.

Пример кода, вызывающего ошибку

Рассмотрим код события ServiceAfterInstall и ServiceExecute, который приводит к ошибке 1053 при попытке запуска сервиса:

procedure TAarhusRunner.ServiceAfterInstall(Sender: TService);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
    begin
      Reg.WriteString('Description', 'Worker Service for Inversion Job Distribution');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

procedure TAarhusRunner.ServiceExecute(Sender: TService);
begin
  try
    Self.Status := csRunning;
    //start the loop
    MainTimer.Interval := 5000; //MainTimer is declared in the .dfm
    MainTimer.Enabled := True;
    RecheckAndApplyTimer.Enabled := False;
    while not Terminated do
    begin
       ServiceThread.ProcessRequests(True);
       MainTimer.Enabled := False;
    end;
  except
    on E: Exception do
    begin
      MessageDlg(E.Message, mterror, [mbOK], 0);
      exit;
    end;
  end;
end;

Анализ проблемы

Ошибка 1053 часто возникает из-за того, что сервис не может начать выполнение в установленный системой временной интервал. В примере кода выше, использование ServiceThread.ProcessRequests(True) в цикле приводит к тому, что сервис ожидает сообщение от сервисной системы бесконечно, что блокирует основной цикл обработки.

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

Измените вызов ServiceThread.ProcessRequests(True) на ServiceThread.ProcessRequests(False). Это позволит сервису не блокироваться на ожидание сообщений от сервисной системы.

Альтернативное решение

В случае, если предыдущее решение не помогло, стоит обратить внимание на то, используются ли в проекте сервиса внешние библиотеки (BPL). Иногда копирование необходимых BPL в папку с сервисом может решить проблему. Однако, стоит помнить, что использование runtime пакетов в сервисах не является лучшей практикой и может быть удалено для упрощения и повышения надежности сервиса.

Общие рекомендации

• Не используйте обработчик события OnExecute для запуска цикла обработки. Вместо этого, создайте поток в обработчике события OnStart и завершите его в OnStop.
• Использование TTimer в потоках, не являющихся GUI, может быть затруднительным. Рекомендуется ознакомиться с материалами на эту тему.

Заключение

Ошибка 1053 может быть вызвана различными причинами, но основная из них связана с неправильной обработкой запросов сервиса. Исправление кода, как описано выше, должно помочь избежать этой ошибки. Важно также учитывать общие рекомендации по разработке сервисов на Delphi.

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

Разбираются причины и методы устранения ошибки 1053 при запуске сервиса на Delphi XE в операционной системе Windows 7.

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

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

:: Главная :: Процессы и Сервисы ::