Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66385 Tue, 11 Mar 2003 18:32:29 +0000 Как убить поток? https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66385 Цитата Grisha, 11.03.03, 21:29:00
procedure TMyThread.Execute;
begin
 getauthors();
 if Terminated then Exit;
  ....
end;


Это если при создании потока указывалось FreeOnTeriminate:=True
]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66383 Tue, 11 Mar 2003 18:29:00 +0000 Как убить поток? https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66383 begin
 getauthors();
 if Terminated then Exit;
 gettitles();
 if Terminated then Exit;
 geturls();
 if Terminated then Exit;
 getdates();
end;]]> Grisha Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66381 Mon, 10 Mar 2003 09:45:59 +0000 Как убить поток? https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66381
    <br>procedure TMyThread.Execute;<br>begin<br>getauthors( );<br>gettitles();<br>geturls();<br>getdates();<br>ThreadTerminated:=true; //здесь я устанавливаю эту переменную, чтобы в основном                                            потоке не запустить поток дважды, если юзер вызовет его когда                                     он еще не завершил работу<br>end;<br>


Через Synchronize не стал делать потому что слишком медленно]]> Мыш Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66379 Mon, 10 Mar 2003 06:42:41 +0000 Как убить поток? https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66379 Вы, видимо, не правильно описали процедуру Execute
Если, например, у Вас используется обращение к основному VCL потоку через метод Synchronize, тогда при обращении к его процедуре надо писать While not Terminated Do Synchronize(@SynchronizeProc) и т.д. Вообщем ошибка Ваша. Как мимнимум нужен код процедуры Execute, чтобы решить проблему, если сами не решите.]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66377 Mon, 10 Mar 2003 00:18:06 +0000 Как убить поток? https://forum.sources.ru/index.php?showtopic=5861&view=findpost&p=66377 Мыш Delphi: Общие вопросы