Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.061 c
15-1333350850
AV
2012-04-02 11:14
2013.03.22
Oracle, математический финт (с индексом) есть какой-нибудь?


2-1334682069
SiDimka
2012-04-17 21:01
2013.03.22
DBGrid > TreeView > DBGrid


15-1345037851
Artem
2012-08-15 17:37
2013.03.22
Посоветуйте фоторесайзер любых размеров.


3-1278159587
alex810
2010-07-03 16:19
2013.03.22
Запрос с нечувствительностью к регистру


2-1330533371
lcd1232
2012-02-29 20:36
2013.03.22
Работа с post/get запросами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский