Help Me!

Тема в разделе "Delphi - Система", создана пользователем lazynov, 18 дек 2006.

Статус темы:
Закрыта.
  1. lazynov

    lazynov Гость

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

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

    Barmutik Гость

    Судя по всему проблема с файлом .. и Вы сами выгружаете сервис...
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей