Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Вниз
Про сервисы. Подскажите с событиями. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.099 c
