Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.01.10;
Скачать: CL | DM;

Вниз

проблема с созданием сервиса (Stopped = False)   Найти похожие ветки 

 
2012   (2009-11-20 11:41) [0]

Столкнулся с проблемой в обработчике OnStop при написании службы. К примеру:


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
 TService1 = class(TService)
   procedure ServiceStop(Sender: TService; var Stopped: Boolean);
 private
   { Private declarations }
 public
   function GetServiceController: TServiceController; override;
   { Public declarations }
 end;

var
 Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
 Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
 Result := ServiceController;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  // ...
  Stopped := False;
  // ...
end;

end.


При попытке остановить службу cо Stopped = False вылетает сообщение: не удалось остановить службу Тестовая служба на Локальный компьютер. Эта служба не возвращала ошибки. Возможно, это внутренняя ошибка Windows или внутренняя ошибка службы.

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


 
2012   (2009-11-20 12:10) [1]

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



Страницы: 1 вся ветка

Текущий архив: 2010.01.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
15-1257456612
Юрий
2009-11-06 00:30
2010.01.10
С днем рождения ! 6 ноября 2009 пятница


2-1258277671
abun
2009-11-15 12:34
2010.01.10
Определение расположения файла на диске (CD|DVD)


15-1257370212
Юрий
2009-11-05 00:30
2010.01.10
С днем рождения ! 5 ноября 2009 четверг


2-1258308164
ℓoℓ
2009-11-15 21:02
2010.01.10
Клавиатура в замену джостику


15-1257209286
Германн
2009-11-03 03:48
2010.01.10
Кто-нибудь хочет завести себе собачку?