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

Вниз

Потоки + таймер?   Найти похожие ветки 

 
Ura   (2002-02-01 12:18) [0]

Нужно запустить поток (Р) который будет каждые 5 минут проверять коннект с сервером и устанавливать переменную F = true;
Как сделать чтобы Р просыпался сам каждые 5 минут.
P - запускается должен запускаться до дапуска головной формы.
Р, F - как глобальные объекты


 
Romul   (2002-02-01 12:30) [1]

//Это в модуле где описывается поток
type
MyThread = class(TThread)
procedure Execute; override;
procedure Work;
end;

implemetation

procedure MyThread.Execute;
begin
Work;
end;

procedure MyThread.Work;
begin
// Тут делаешь все необходимое
end;

//Это в основном модуле с формой
procedure Timer1.Timer(Sender: TObject)
var
WorkThread:Mythread;
begin
WorkThread:=MyThread.Create(False);
end;

Таймер каждые, допустим 5 минут будет запускать поток. Все это придется до ума довести (ну например нужно ли поток уничтожать или нет, и т.д.), хотя алгоритм такой.


 
Ura   (2002-02-01 12:52) [2]

С потоком все ясно.
Вопрос в том что нет хозяина потока, который бы им управлял.
Поток живет отдельной жизнью. И ЗАПУСКАЕТЬСЯ ДО СТАРТА ОСНОВНОЙ ФОРМЫ. так бы через нее сделали...
Хоть самому проверяй время вечном цикле в потоке. Но некрасиво...


 
yaJohn   (2002-02-01 12:55) [3]

>Как сделать чтобы Р просыпался сам каждые 5 минут.
procedure MyThread.Execute;
begin
repeat
// .................... Vash polezniy (nadeus") kod.......
Sleep(5*60*1000);
until Terminated;
end;


>P - запускается должен запускаться до дапуска головной формы.
1. Zapuskay ego iz MyApplication.dpr
2. Zapuskay ego iz sekcii begin-end. lubogo modulia (naprimer togo, gde on obiavlen kak global"naya peremennaya.
3. до дапуска ??? Chto imeetsia v vidu? Do aktivizacii? Sm. TForm.OnCreate; Do sozdania? Sm. p.1-2

>проверять коннект с сервером и устанавливать переменную F = true;
Ne zabivaem pro Synhronize...


 
Ura   (2002-02-01 13:50) [4]

> yaJohn ©
Спасибо. Понял все правильно. И главное красиво.



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

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

Наверх





Память: 0.45 MB
Время: 0.005 c
1-57134
чайничек
2002-02-03 13:07
2002.02.18
Как


1-57143
EsKor
2002-01-31 08:37
2002.02.18
Свойство Enabled компонента TGroupBox


1-57086
Priz_Datiy
2002-02-01 22:43
2002.02.18
DialUp соединения...


6-57164
888
2001-11-28 23:10
2002.02.18
порт


3-56972
EternalWonderer
2002-01-10 15:25
2002.02.18
работа с компонентами DOA





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