Ошибка 1053 при запуске сервиса.

← →
Jakommo (2003-08-20 10:10) [0]

Всем привет! Взял в хелпе пример сервиса и попробовал заинсталить в систему. При запуске сервиса матерится и выкидывает ошибку: 1053 The service did not respond to the start or control request...
Подскажите плз, где ошибка.

type
TService1 = class(TService)

procedure ServicePause(Sender: TService; var Paused: Boolean);
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
procedure ServiceContinue(Sender: TService; var Continued: Boolean);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;

type
TSparkyThread = class(TThread)
public
procedure Execute; override;
{ Public declarations }
end;

var
Service1: TService1;
SparkyThread: TSparkyThread;
implementation

{$R *.DFM}

procedure TSparkyThread.Execute;
begin
while not Terminated do
begin
Beep;
Sleep(500);
end;
end;

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

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

procedure TService1.ServicePause(Sender: TService; var Paused: Boolean);
begin
SparkyThread.Suspend;
Paused := True;
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
SparkyThread := TSparkyThread.Create(False);
Started := True;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
SparkyThread.Terminate;
Stopped := True;
end;

procedure TService1.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
SparkyThread.Resume;
Continued := True;
end;

end.

← →
clickmaker (2003-08-20 15:36) [1]

Добавь функцию

procedure TService1.ServiceExecute(Sender: TService);
begin
while not Terminated do begin
ServiceThread.ProcessRequests(true);
end;
end;

← →
Jakommo (2003-08-20 15:55) [2]

> Clickmaker
Тоже самое :(
error: 1053 The service did not respond to the start or control request in a timely fashion.
Даже если я оставляю только основной поток он всё равно не стартует. В системе я регистрирую сервис с помощью утилиты srvinstw.exe из кита.
Может найдётся рабочий примерчик ? Любой..

← →
clickmaker (2003-08-20 16:25) [3]

Сервис можно так проинсталлировать: service1.exe /INSTALL
Убить соответственно /UNINSTALL

Попробуй увеличить WaitHint

← →
sniknik (2003-08-20 23:16) [4]

> Может найдётся рабочий примерчик ? Любой..
не проблема ;о))
http://delphi.chertenok.ru/forum/my_download.php?tema=del&action=show& id=173

(из ссылки убери пробел, если будет, в прошлый раз его вставило. така я вот "фича" на форуме)

Ошибка 1053 при запуске сервиса. Найти похожие ветки