Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по работе потока (Thead) [D7, WinXP]

dreamse © (2008-07-02 12:56:00)
Приветствую.

Подскажите как сделать бесконечный поток который бы выполнялся постоянно.

Делаю в потоке:

procedure TMyThead.Execute; begin while not terminated do begin // код который должен постоянно проверяться в зависимости от события. Таймер ставить нельзя так как неизвестно когда событие появиться, нужно именно ждать его появления и реагировать в потоке end; end;

Из за этого приложение начинает загружать процесор на 99 % :(

Какие есть варианты ?
Уничтожать и создавать поток каждый раз при наступления события: не выход так как событий могут быть тысячи и нужно их сразу в потоке ставить в очередь.

GrayFace (2008-07-05 00:28:00) [1]
*Ну и в некоторых очень специфических случаях.

GrayFace (2008-07-05 00:27:00) [2]
dreamse (02.07.08 12:56)
Уничтожать и создавать поток каждый раз при наступления события: не выход так как событий могут быть тысячи и нужно их сразу в потоке ставить в очередь.
Скорее всего, нужно окно+посылка сообщений ему. И уж точно никаких Sleep'ов - по-моему, они нужны только в случаях маленьких объектов, которым давать по объекту ядра слишком "жирно". Ну в некоторых очень специфических случаях.

Loginov Dmitry (2008-07-03 20:01:00) [3]
> Waitfor чем не люб

Тогда так:
SetEvent(FEvent); TThread.Waitfor;

или

SetEvent(FEvent); TThread.Free;

Главное, что SetEvent(FEvent) позволяет уменьшить время реакции.

tesseract (2008-07-03 19:37:00) [4]

> Для выхода из Execute теперь достаточно вызвать SetEvent(FEvent);

Ага, это приусловии, что код не выполняеться по полдня. Waitfor чем не люб для ожидания terminated = true ?

Loginov Dmitry (2008-07-03 08:07:00) [5]
> Спасибо. sleep помог

Использование Sleep() для задержки потока часто усложняет логику программы и увеличивает время реакции. С нулем также известны проблемы: если в системе, по мнению Windows, больше некому отдать квант времени, то управление немедленно вернется к твоей программе, и опять будешь грузить процессор. Используй хотябы Sleep(20), и таких проблем не будет. Твоей программе скорее всего будет все равно: 0мс или 20мс.

Целесообразно управлять потоком с помощью Эвента. Тогда Execute примет такой вид:

begin while (not Terminated) and (WaitForSingleObject(FEvent, 20) = WAIT_TIMEOUT) do begin end; end;

Логика стала проще. Время реакции на завершение - меньше. Для выхода из Execute теперь достаточно вызвать SetEvent(FEvent);

int64 (2008-07-02 19:09:00) [6]
dreamse (02.07.08 12:56)

Потоком надо не мониторить событие, а обрабатывать.

Сергей М. (2008-07-02 13:24:00) [7]

> sleep помог

Это называется "латание драных лаптей", а не решение)

dreamse (2008-07-02 13:23:00) [8]
Спасибо. sleep помог

tesseract (2008-07-02 13:15:00) [9]

> код который должен постоянно проверяться в зависимости от
> события.

А асинхронную процедуру или callback нельзя для обработки использовать ?

Сергей М. (2008-07-02 13:08:00) [10]

> Из за этого приложение начинает загружать процесор на 99
> %

Добавь в тело цикла sleep(0) и удивись

> неизвестно когда событие появиться

Так уж и неизвестно ?

Сомневаюсь)

Германн (2008-07-02 13:07:00) [11]

> код который должен постоянно проверяться в зависимости от
> события. Таймер ставить нельзя так как неизвестно когда
> событие появиться, нужно именно ждать его появления и реагировать
> в потоке

> Уничтожать и создавать поток каждый раз при наступления
> события: не выход так как событий могут быть тысячи и нужно
> их сразу в потоке ставить в очередь.

Странное совмещение синхронной и асинхронной логики работы. Изврат.

Поросенок Винни-Пух (2008-07-02 13:05:00) [12]
вызывать функции ожидания waitforsingleobject и ей подобные

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »