Автоматический перезапуск службы в Delphi после критической ошибки

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

При разработке служб в Delphi иногда возникают ситуации, когда служба сталкивается с критической ошибкой, в результате чего необходимо её завершить. В таких случаях важно, чтобы служба была настроена на автоматический перезапуск системным контроллером служб (SCM). В данной статье мы рассмотрим, как настроить службу на автоматический перезапуск после завершения с признаком ошибки.

Понимание проблемы

Пользователь столкнулся с проблемой, что служба, написанная на Delphi, иногда завершается из-за критической ошибки. После этого служба намеренно останавливается. Однако, чтобы SCM пытался перезапустить службу после такой ошибки, необходимо корректно завершить процесс службы, чтобы SCM распознал его как неудачное завершение.

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

Для начала, важно понимать, что служба считается неудачно завершенной, если она завершается без сообщения о статусе SERVICE_STOPPED в контроллер служб. Таким образом, для автоматического перезапуска службой SCM, необходимо вызвать функцию ExitProcess или использовать функцию Halt из RTL Delphi, которая в итоге вызовет ExitProcess.

Пример кода на Object Pascal (Delphi):

procedure TTestService.ServiceExecute(Sender: TService);
begin
  // Основной цикл службы
  while not (Terminated or FFatalError) do
  begin
    ServiceThread.ProcessRequests(False);
    ReportStatus;
    Sleep(100);
  end;

  // При обнаружении критической ошибки
  if FFatalError then
   // Завершение службы с указанием ошибки
   Halt(1);
end;

Обработка события завершения потока

procedure TTestService.ThdTerm(Sender: Tobject);
var
  E: Exception;
  Thread: TThread;
begin
  Thread := TThread(Sender);

  // Проверка на наличие исключения в потоке
  if (Thread.FatalException <> nil) then
  begin
    E := Exception(Thread.FatalException);
    // Логирование информации об ошибке
    EventLog.LogError(Thread.ClassName + ': ID:'+ IntToStr(Thread.ThreadID) +
      ' Stopped Unexpectedly!, '+ NEWLINE + E.ClassName +': ' + E.Message);
    // Установка флага критической ошибки
    FFatalError := True;
  end;
end;

Настройка службой SCM на перезапуск

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

Заключение

Автоматический перезапуск службы после критической ошибки является важной функцией для повышения надежности и доступности служб. Важно правильно обрабатывать критические ошибки и завершать службу с помощью ExitProcess или Halt, чтобы система распознала это как неудачное завершение и перезапустила службу согласно настройкам восстановления. Также не стоит забывать о качестве кода и возможности избежать исключений, которые приводят к завершению службы.

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

Автоматический перезапуск службы, разработанной на Delphi, после возникновения критической ошибки, требует корректного завершения службы с использованием `ExitProcess` или `Halt`, чтобы система служб Windows попыталась ее перезапустит

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

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

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