Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Про сервисы. Подскажите с событиями.   Найти похожие ветки 

 
AV ©   (2012-02-16 14:57) [0]

переделываю программу в сервис.
на
procedure TATS_S12.ServiceExecute(Sender: TService);
повесил было такую логику
 InitAndRunAllThreads;

 repeat
   ReportStatus;
   Sleep(1000);
 until GoExit; // GoExit проверка наличия файл
 
 repeat
   ReportStatus;
   Sleep(1000);
 until All_Threads_Report_DONE;
 Kill_All_Threads;

работает...
---------
что не устраивает - из оснастки не можно сделать стоп. А надо.
правильно ли понимаю, что надо написать:

procedure TATS_S12.ServiceStart(Sender: TService; var Started: Boolean);
InitAndRunAllThreads;

procedure TATS_S12.ServiceExecute(Sender: TService);
 repeat
   ReportStatus;
   Sleep(1000);
 until GoExit;  // ловить stop от оснастки

procedure TATS_S12.ServiceStop(Sender: TService; var Stopped: Boolean);
 repeat
   ReportStatus;
   Sleep(1000);
 until All_Threads_Report_DONE;
 Kill_All_Threads;


 
Сергей М. ©   (2012-02-16 15:22) [1]

procedure TATS_S12.ServiceExecute(Sender: TService);
begin
 while not Terminated
//and ДругиеУсловияВыходаИзЦикла
do
 ProcessRequest(true);
end;


 
AV ©   (2012-02-16 16:19) [2]

СПАСИБО!



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.056 c
15-1333119005
Baks
2012-03-30 18:50
2013.03.22
#10008 - replace hard disk1


15-1351168672
картман
2012-10-25 16:37
2013.03.22
что за вольный стиль?


15-1331627201
advise
2012-03-13 12:26
2013.03.22
Подскажите на каих ресурсах можно найти программиста Delphi


15-1342873269
wl
2012-07-21 16:21
2013.03.22
подключение внешнего монитора к ноутбуку


2-1335327784
lesstab
2012-04-25 08:23
2013.03.22
Как получить Tag нажатой кнопки на фрейме...