Помогите разобраться с потоком

← →
Man © (2003-04-08 17:42) [0]

Привет всем!Такая вот проблемка:в программе использую поток, опис.в классе,произв. от TThread.В проге 3 пимпочки - запуск,пауза,остановка потока. Процедура остановки потока такова:
With MyThread Do Begin If Suspended Then Resume; Terminate; WaitFor; FreeAndNil(MyThread); End;
Всё ли здесь написано корректно:
отрабатывает иногда корректно,иногда в цикле WaitFor зависает(внутри Execute делается проверка на Terminated в цикле).
Зараннее всем большое спасибо.

← →
panov © (2003-04-08 18:27) [1]

А кода самого потока нет?

constructor Thread.Create;
begin
inherited Create(True);
FreeOnterminate := True;
...
Resume;
end;

...

with MyThread do begin
if Suspended then Resume;
Terminate;
End;

MyThread.WaitFor;
MyThread := nil;

← →
panov © (2003-04-08 18:28) [2]

WaitFor можно и в блок with внести...

← →
Man © (2003-04-08 19:52) [3]

Если ставить FreeOnterminate := True,Тогда при обращении к WaitFor объект м.б. уже разрушен - возникнет ошибка.
>panov © (08.04.03 18:28)-не понял?

Тут непонятно, зачем тебе WaitFor?
Тебе код возврата нужен?

Для потока определи OnTerminate в основном потоке и там делай все, что хочешь...

Помогите разобраться с потоком Найти похожие ветки