Правильное прерывание потоков

← →
Andrey02 (2003-06-15 22:59) [0]

При работе потоков, выполнение можно прервать функцией Terminate.

К примеру, чтобы прервать поток по нажатию кнопки -
нужно внутри самого потока ставить перед каждой командой if not Terminated then ...
иначе программа не реагирует на нажатии кнопки (отображает эффект вдавливания, но без действия)

Ставить перед каждой командой if not Terminated не практично и зверски увеличивает код.
Вопрос: Как можно правильно прервать выполнение самого потока?

procedure TMyThread1.Execute; var i: integer; begin for i:=1 to 10000 do if not Terminated then Form1.Memo1.lines.add("111"); end; procedure TForm1.STARTClick(Sender: TObject); begin T1 := TMyThread1.Create(False); end; procedure TForm1.STOPClick(Sender: TObject); begin T1.Terminate; end;

← →
jack128 © (2003-06-15 23:22) [1]

> ставить перед каждой командой if not Terminated then ...

другого коректного способа нету. Можно принудительно завершить поток (TerminateThread(...) если не ошибаюсь) но тогда будут проблемы(не высвободятсяресурсы, которые ты захватил в потоке и еще я не знаю как поведет себя твоя ООП оболочка потока)...
Кстати, а что у тебя за код в потоке? Обычно это большой цикл...

← →
panov © (2003-06-16 00:48) [2]

Код потока написан неверно.
Почитай статьи на этом сайте.

← →
DrPass © (2003-06-16 01:19) [3]

Неверно, но суть вопроса не в том, как правильно обращаться к компонентам VCL из потока, а как его прерывать.
А тут есть три варианта:
1. Строить алгоритм потока таким образом, чтобы terminated использовалась эффективно.
2. Использовать TerminateThread - не слишком гуманный способ.
3. Забить на эту проблему. Как часто в жизни возникает ситуация, когда необходимо прибивать один поток из другого?

FreeOnTerminate := True;

while not Terminated do
...

это самый правильный способ, если поток не использует ф-ий ожидания

Правильное прерывание потоков Найти похожие ветки