Геморрой с потоками

[FleXik]

Вобщем геморрой с потоками, в одном потоке при

TThread1.Terminate;

поток останавливается, а в другом потоке почему то нет...

Делаю так:

procedure TThread1.Execute;
if not Terminated then
//код
end;

На кнопку "Старт" кидаю:

procedure TForm1.sButton1Click(Sender: TObject);
begin
potok.TThread1:=TThread1.Create(True);
potok.TThread1.Priority:=tplower;

potok.TThread1.FreeOnTerminate:=False; // если ставлю в True то TThread1.Terminate; не срабатывает, но с Suspend почему-то
                                       //срабатывает (всегда делал через Suspend вместо Terminate если требовалось остановить поток...

potok.TThread1.Resume;
end;

На кнопку "Стоп" кидаю:

potok.TThread1.Terminate;

Всегда делал через Suspend и проблем кроме "Неверный дескриптор" небыло, но сейчас уже решил сделать по нормальному, но не получается. В чем причина того что на первом потоке Terminate срабатывает а на втором потоке нет, причем код кнопок "Старт" и "Стоп" и там и там одинаковый? Спасибо.

[Аватар]

procedure TThread1.Execute;
if not Terminated then
//код
end;

Ну и что? Такой код только однажды проверит значение Terminated и если False, то поток будет работать сутками. Обычно для этого цикл в потоке и проверка внутри цикла

[Кольша]

procedure TThread1.Execute;
while not Terminated do
//код
end;

///
procedure TForm1.sButton1Click(Sender: TObject);
begin
potok.TThread1:=TThread1.Create(True);
potok.TThread1.Priority:=tpnormal;

potok.TThread1.FreeOnTerminate:=true; // если ставлю в True то TThread1.Terminate; не срабатывает, но с Suspend почему-то
                                       //срабатывает (всегда делал через Suspend вместо Terminate если требовалось остановить поток...

potok.TThread1.Resume;
end;

[FleXik]

procedure TMyThread.Execute;
begin
   while True do
     if MyThread.Teminated then break;
end;

так?

[Кольша]

выше код посмотри.

[FleXik]

Сообщение от Кольша

while not Terminated do

при while код будет выполняться до тех пор пока не нажать кнопку "Стоп", т.е даже если дойдет до конца кода, всеровно код будет выполняться заново и заново пока человек не нажмет кнопку "Стоп".
при if код будет выполняться только 1 раз (до конца кода).

может и тупо обьяснил, но думаю понятно.

[Кольша]

Эм..сранные вы умники, новички..твой код:

procedure TMyThread.Execute;
begin
   while True do//пока правда, а она всегда выполняем код
     if MyThread.Teminated then break;//если мой поток крякнул стоп
end;

Мой код:

procedure TThread1.Execute;
begin
while not Terminated do//если мой поток НЕ крякнул выполняем код
//код
end;

Умник.

[Кольша]

UPD:А еще хотелось бы узнать, что ты хочешь от потока, и весь код, где описаны(если описаны) конструкторы и деструкторы.

[FleXik]

Мой код:

procedure TThread1.Execute;
begin
while not Terminated do//если мой поток НЕ крякнул выполняем код
//код
end;

Умник.

омг, если я написал что при while not Terminated do - код будет выполняться хоть 1 000 000 раз и не завершится пока ты САМ не нажмешь кнопку "Стоп" значит так оно и есть? я не хочу тут спорить, но если я знаю это и делал так не раз, и даже при while not Terminated do кнопка "Стоп" не пашет, удали Delphi пожалуйста.

[Кольша]

5 минут, умный ты человек подожди, никуда не уходи плиз.