Почему запуская службу, по факту она начинает работать только спустя 50 - 60 секунд?

@grokki · Регистрация: 16.03.2014

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток, прошу у Вас помощи. Ситуация следящая:
Приложение создает и запускает службу. Служба создается и запускается хорошо, все работает за исключением одной серьезной проблемы. Почему служба начинает работать не с момента ее запуска, а примерно через 50 -60 секунд? Заходя через панель управления в "Службы (локальные)", наш сервис работает со статусам "Выполняется". Отлично, запускаю программу, в качестве службы для запуска которой была создана ее БД, я получаю ошибку "Соединение с базай данных не установлено". Сидим на месте 60 секунд ничего не делая, а потом пробуем сново запустить базу, и вуаля, БД успешно работает.
Еще раз, только более просто. Создаем сервис - ок. Пробуем запустить его - ок (входим через панель управления в службы и видим нашу службу в статусе запущеной). Запускаем базу данных которая создавалась как служба и получаем ошибку что не удалось запустить БД. Черезе 60 сек. еще раз запускаем базу и она запускается.
Вот код на запуск:

Delphi

procedure TMainForm.StartService(ServiceName: String);
var
  schService,
    schSCManager: Dword;
  p: PChar;
begin
  p := nil;
  schSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if schSCManager = 0 then
    RaiseLastWin32Error;
  try
    schService := OpenService(schSCManager, PChar(ServiceName),
      SERVICE_ALL_ACCESS);
    if schService = 0 then
      RaiseLastWin32Error;
    try
      if not Winsvc.startService(schService, 0, p) then
        RaiseLastWin32Error
      else
      begin
          MessageDLG('Служба успешно запущена!', mtInformation, [mbOk], 0);
      end;
    finally
      CloseServiceHandle(schService);
    end;
  finally
    CloseServiceHandle(schSCManager);
  end;
end;

[ПС, как понимаю в конце функции нужно вызвать ServiceUpdate() или что то типа того, что бы обновить данные в .]

Очень надеюсь на Вашу помощь.

Добавлено через 2 часа 29 минут
Ну же, неужели никто не имел дело с такой проблемай?

@FIL · 01.07.2014, 20:11

Может проблема в службе, а не в ее запуске?

@mss · 01.07.2014, 23:09

Сообщение от grokki

Приложение создает ..службу. Служба создается

В упор не вижу ни единой строчки, касаемой именно создания

@northener · 02.07.2014, 03:03

Сообщение от grokki

запускаю программу, в качестве службы для запуска которой была создана ее БД

Сообщение от grokki

Запускаем базу данных которая создавалась как служба

Кроме как бред я эти фразы воспринять не в состоянии.

@FIL Модератор 3489 / 2612 / 741 Регистрация: 19.09.2012 Сообщений: 7,973
	01.07.2014, 20:11	2
	Может проблема в службе, а не в ее запуске? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	01.07.2014, 23:09	3
	Сообщение от grokki Приложение создает ..службу. Служба создается В упор не вижу ни единой строчки, касаемой именно создания 0

@northener пофигист широкого профиля 4706 / 3142 / 857 Регистрация: 15.07.2013 Сообщений: 18,114
	02.07.2014, 03:03	4
	Сообщение от grokki запускаю программу, в качестве службы для запуска которой была создана ее БД Сообщение от grokki Запускаем базу данных которая создавалась как служба Кроме как бред я эти фразы воспринять не в состоянии. 0

Опции темы