Help Me!

  • Автор темы lazynov
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

lazynov

#1
Вот возникла у меня проблемка:
мне нуна написать службу 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;

Че делать??? Помогите ПЛЗ!
 
B

Barmutik

#2
Судя по всему проблема с файлом .. и Вы сами выгружаете сервис...
 
Статус
Закрыто для дальнейших ответов.