Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];

Вниз

service   Найти похожие ветки 

 
race1   (2004-02-21 17:04) [0]

вопрос с сервисом. в нём нужно следить за кое-чем, слежение происходит в таймере. но ведь сервис что-то типа потока, где есть execute и пока execute выполняется, сервис работает. вот и встал вопрос - куда помещать мой таймер и как обрабатывать его ontimer.

в случае со стандартным приложением помещаем таймер на форму и не думаем об нём


 
TUser   (2004-02-21 17:05) [1]

чесно слово - с сервисами не работал, но если он типа потока,
то м.б. while true do begin ... end;


 
race1   (2004-02-21 17:07) [2]

ну понятно что он типа потока и что while true do :)

как-то неохота делать таймер через бесконечный цикл :))


 
TUser   (2004-02-21 17:09) [3]

тогда таймер не нужен. В потоках я делаю так
while true do begin
inc (i);
if i = mnogo then begin
i:=0;
// Работаем
end;
end;


 
race1   (2004-02-21 17:16) [4]

хитро :)


 
race1   (2004-02-21 17:16) [5]

хитро :) только пожалуй sleep нужно добавить, а то грузить проц будет слишком


 
P.N.P.   (2004-02-21 17:54) [6]


procedure TService1.ServiceExecute(Sender: TService);
begin
while not terminated do
begin
..........
sleep(100);
ServiceThread.ProcessRequests(False);
end;
end;



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

Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.079 c
14-6251
Rentgen
2004-02-10 17:11
2004.03.03
Scroll Lock ?


3-5968
Незнающий
2004-02-05 14:35
2004.03.03
Lookup-поля


8-6162
Borealis
2003-10-23 12:21
2004.03.03
Расстояние между цветами


1-6110
DelphiN!
2004-02-20 18:54
2004.03.03
Автозагрузка в WinXP


3-5941
Balepa
2004-02-06 00:32
2004.03.03
Вычисл поле





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский