Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ServiceApplication [D7, WinXP]


Creator___ ©   (2005-03-02 14:10:00) 

Вот такая загвоздка. Создаю ServiceApplication, вставляю код на onStart, в котором создаю tcp/ip сервер (TidTCPServer), и ставлю ему active := true. Сервис выполняет код и выгружается, говоря при этом, что ему нечего делать. Подскажите, как сделать, что бы он оставался в памяти и ждал подключения по TCP/IP.


Erik1   (2005-03-02 17:31:00) [1]

Неправильно если используется ServiceStart то в нем надо просто запускать свой поток, а в ServiceStop его останавливать и освобождать. Также неплохо реализовать ServiceShutdown. По желанию ServicePause и ServiceContinue.
 А недопускать выхода из begin end надо в OnExecute(незабывать ProcessRequests)! Оба метода реализации сервиса правильны. Но мне больше нравится с onStart onStop, потоки удобнее отлаживать.


Reindeer Moss Eater   (2005-03-02 14:20:00) [2]

В [1] то же был ответ.


Creator___   (2005-03-02 14:18:00) [3]

Вот это ответ. Спасибо.


Reindeer Moss Eater   (2005-03-02 14:17:00) [4]

Не надо никого заставлять ждать.
Надо недопустить выхода из begin/end.


Creator___   (2005-03-02 14:16:00) [5]

Да ну нафиг? А я не знал.... Ой-ой. Как его заставить ожидать подключения? Просьба отвечать только уверенным людям.


Reindeer Moss Eater   (2005-03-02 14:13:00) [6]

Выполнился код между begin и end.
Сервису больше нечего делать.
А что ему делать, в самом деле, если все сделано?


Наверх

Титульная страница Поиск, карта сайта Написать письмо