Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.045 c