Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Jakommo © (2003-08-20 10:10:00)

Всем привет! Взял в хелпе пример сервиса и попробовал заинсталить в систему. При запуске сервиса матерится и выкидывает ошибку: 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.

sniknik (2003-08-20 23:16:00) [1]
> Может найдётся рабочий примерчик ? Любой..
не проблема ;о))
http://delphi.chertenok.ru/forum/my_download.php?tema=del&action=show&id=173

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

clickmaker (2003-08-20 16:25:00) [2]

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

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

Jakommo (2003-08-20 15:55:00) [3]

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

clickmaker (2003-08-20 15:36:00) [4]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »