Главная страница
    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.004 c
1-57045
Санька
2002-02-02 10:52
2002.02.18
Delphi 6 и Delphi 4


1-57057
Елена
2002-02-02 09:45
2002.02.18
StringGrid + ComboBox


14-57199
Knight
2001-12-28 11:58
2002.02.18
Всех с праздниками, вопросик несколько хакерский но просто срочно понадобилось!!!


7-57224
minay
2001-11-10 02:29
2002.02.18
Отладчик для микроконтроллерного ассемблера


1-57100
@andrew
2002-02-01 14:45
2002.02.18
ПРИВЕТ ВСЕМ!!! Делаю смену курсора на событие....





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