Как правильно удалить поток

← →
Олег Лаукарт © (2002-02-05 16:11) [0]

Есть поток (TThread) задача которого через заданный интервал выполнять заданную последовательность действий. Действия могут выполняться долго, поэтому таймер (TTimer) не подходит.
procedure TMyThread.Execute; begin while not Terminated do try DoAction; sleep (Interval); except end; end;
Если делаю Terminate (FreeOnTerminate=true), то у потока не вызывается деструктор, а если делаю Free (FreeOnTerminate=false) руками, то поток зависает до окончания sleep.
Как исправить ситуацию?

← →
Виктор Щербаков © (2002-02-05 16:15) [1]

Если интервал большой (например >=1000), то

for i := 1 to 100 do
begin
sleep(Interval div 100);
if Terminated then break;
end;

← →
Олег Лаукарт © (2002-02-05 16:22) [2]

Да, интервал 10 и более минут. Тоесть кроме разбиения на более мелкие интервалы и выполнения действия по истечении заданного промежутка времени вариантов нет? Не будет ли при таком подходе загружатся система?

← →
panov © (2002-02-05 16:25) [3]

Нет, не будет.

← →
Алексей Петров © (2002-02-05 16:26) [4]

Есть вариант:
Заводишь
hTerminateEvent = CreateEvent(nil, False, False, nil);

Вместо Sleep(N) используешь

case WaitForSingleObject(hTerminateEvent, N) of WAIT_OBJECT_0: // Завершать поток WAIT_TIMEOUT: // выполнять периодическую работу end;

Для завершения потока говоришь SetEvent(hTerminateEvent)

Ну если разбить на интервалы примерно по 100, то точно не будет.

Конечно, на выполнение цикла будет тратиться определенное время, но оно, ИМХО, ничтожно, и ни одна программа показывающая загрузку процессора не сможет его измерить, т.к. оно будет меньше ошибки измерения.

Вариант Алексея Петрова мне кажется лучше чем накручивание пустых циклов. Спасибо, постоянно забываю про этот механизм.

Как правильно удалить поток Найти похожие ветки