Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Остановка спящих потоков


SpellCaster ©   (2007-05-15 14:05:00) 

Такая проблемка: есть набор потоков. При возникновении определенных ошибок я останавливаю поток через Wait на какое-то время, ятобы потом повторить попытку. Так вот, если в этот момент закрыть программу, то надо либо зверски убивать этот поток, либо ждать, пока он проснётся. Нет ли какого-нибудь другого способа, половчее? Может, вместо большого Wait сделать while (not terminated) and (not TimeoutExpired) do Wait(100)?


SpellCaster   (2007-05-15 17:58:00) [1]

Всё отлично работает, спасибо!


SpellCaster   (2007-05-15 17:11:00) [2]

> [7] clickmaker ©   (15.05.07 17:09)

Я раньше успел исправиться ;)


clickmaker   (2007-05-15 17:09:00) [3]


> [5] SpellCaster   (15.05.07 17:06)

WaitForSingleObject - второй параметр смотрел?


SpellCaster   (2007-05-15 17:08:00) [4]

Хотя пардон, сразу не въехал. Ведь у WaitForSingleObject есть таймаут! Т.е. выходит, поток будет ждать либо события (которое будет установлено в OnClose проги), либо указанное время. Всё ясно, сейчас попробую!


SpellCaster   (2007-05-15 17:06:00) [5]

> поток стопоришь WaitForSingleObject(hEvent)
> при закрытии программы SetEvent - потоки отомрут и завершатся
> штатно (если по логике так)

Немного не то... мне ведь нужно остановить поток на какое-то время, чтобы он впустую не крутился и проц не грузил. А вариант с событием предполагает, что поток остановлен до тех пор, пока прогу не закроют - но в этом смысла нет, т.к. легче его сразу прибить...


Kolan   (2007-05-15 16:10:00) [6]

> либо ждать, пока он проснётся.

Те clickmaker советует почти тоже самое , только ждать ненадо, а надо самому его будить.


clickmaker   (2007-05-15 15:32:00) [7]


> [2] SpellCaster   (15.05.07 15:12)

hEvent := CreateEvent() в несигнальном состоянии
поток стопоришь WaitForSingleObject(hEvent)
при закрытии программы SetEvent - потоки отомрут и завершатся штатно (если по логике так)
всё


SpellCaster   (2007-05-15 15:12:00) [8]

Нельзя ли поподробнее?


clickmaker   (2007-05-15 14:10:00) [9]

Events, WaitForSingleObject(hEvent
SetEvent(hEvent) при остановке


Наверх

Титульная страница Поиск, карта сайта Написать письмо