Вот возникла у меня проблемка:
мне нуна написать службу Windows, которая содержит в себе компонент TServerSocket. Так вот: мне надо чтобы после запуска службы она не закрывалась, а ждала данные. Но при запуске службы она пишет "Служба была остановлена, т.к. ей нечего делать и т.д." Вот код:
procedure TServerService.ServiceExecute(Sender: TService);
var
input: File of TSettings;
Sett: TSettings;
begin
AssignFile(input, 'settings.dat');
if not FileExists('settings.dat') then
ServerService.DoShutdown
else
begin
Reset(input);
{$I-}
try
Read(input, Sett);
except
CloseFile(input);
ServerService.DoShutdown;
end;
CloseFile(input);
{$I+}
end;
While not Terminated do
begin
ServiceThread.ProcessRequests(True);
end;
end;
Че делать??? Помогите ПЛЗ!
мне нуна написать службу Windows, которая содержит в себе компонент TServerSocket. Так вот: мне надо чтобы после запуска службы она не закрывалась, а ждала данные. Но при запуске службы она пишет "Служба была остановлена, т.к. ей нечего делать и т.д." Вот код:
procedure TServerService.ServiceExecute(Sender: TService);
var
input: File of TSettings;
Sett: TSettings;
begin
AssignFile(input, 'settings.dat');
if not FileExists('settings.dat') then
ServerService.DoShutdown
else
begin
Reset(input);
{$I-}
try
Read(input, Sett);
except
CloseFile(input);
ServerService.DoShutdown;
end;
CloseFile(input);
{$I+}
end;
While not Terminated do
begin
ServiceThread.ProcessRequests(True);
end;
end;
Че делать??? Помогите ПЛЗ!
