1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Help Me!

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

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

    lazynov Гость

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

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

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