Остановка потока

[vipok72]

Всех приветствую, я запускаю поток, в случае если он не производит свои действия я его останавливаю, в try except пишу exit
Далее таймером проверяю давно ли он произвел нужное мне действие, если да то, запускаю его снова, но перед этим хочу его остановить... ну на всякий случай

NewThread:=TNewThread.Create(false); //так я запускаю
NewThread.Free; //так хочу убить через таймер
NewThread:=TNewThread.Create(false); //так запустить снова...

Но из-за второй строчки программа начинает висеть и вылетает, я в недоумении... Прошу помощи, расскажите пожалуйста в чем дело, заранее спасибо
Вообще не понимаю почему поток завершает свою работу спустя 5-30 минут, никаких исключений быть не должно, а если и есть они обрабатываются...

[Stilet]

но перед этим хочу его остановить... ну на всякий случай

Зачем??

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

Вообще-то Free освобождает объект. После него у тебя уже никакого потока в этой переменной быть не может.
Смотри, у тебя получается оригинальная реализация: Ты создаешь поток, стартуешь его сразу. Далее поток параллельно выполняется, и во время его выполнения ты вызываешь для него Free. Это выглядит как если бы я зашел в макдональдс, заказал бургер, а чтоб оффективнее шевелились пока готовится бургер из РПГ пульнул в повара, стоящего у плиты.

[vipok72]

Сообщение от Stilet

Зачем??

Вообще-то Free освобождает объект. После него у тебя уже никакого потока в этой переменной быть не может.

То есть после Free я не могу более создать поток в этой переменной??
А каким образом принудительно завершить поток из вне?
Может?

NewThread.Terminate;

[Stilet]

То есть после Free я не могу более создать поток в этой переменной?

То есть после Free твой созданный выше поток уже не действителен. Это не смотря на то, что он во время освобождения работает. Сунь палку в колесо едущего велосипеда - что с ним произойдет? Тут то же самое. Ты забываешь, что потоки работают параллельно главной программе, и ее работу не приостанавливают.

А каким образом принудительно завершить поток из вне?

Ну я например в потоке описываю некое свойство типа Boolean.
Если хочу завершить пишу следующий код:

Поток.ТаПеременка:=true;
Поток.Wait;

А в самом потоке, если у меня там цикл, в цикле проверяю

if not ТаПеременка then exit;

Если же в потоке нет цикла, но есть какие-то долгоиграющие операторы типа закачки порнухи из тырнета, то можно использовать функцию TerminateThread(), что убьет поток мгновенно.

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

[vipok72]

У меня идет скачивание страниц одного сайта, для парсинга, по неизвестной причине, иногда поток перестает работать, но сие чудо в бесконечном цикле while который работает примерно так, как вы описали и можно подобным образом завершить его работу, бывает что поток перестает работать и мне нужно его перезапустить из вне, а не завершить поток внутри и запустить из вне, как я понял можно сделать так:

NewThread.Free; //завершаем работу потока
//тут еще раз объявить переменную NewThread
NewThread:=TNewThread.Create(false); //запускаем поток

Кстати что насчет FreeOnTerminate?
Я так понял если просто присвоить ему значение true и в случае непредвиденной ошибки с помощью exit завершить поток потом запустить его снова - будет все норм?
Цитата с одного форума:

Но можно в потоке установитьYuorThread.FreeOnTerminat e := True и в любом месте главного потока просто вызвать YuorThread.Terminate - поток сам удалит себя

Т.е. достаточно установить значение true, из вне вызвать Terminate, после него сразу запуск потока, будет все работать?

[Stilet]

бывает что поток перестает работать и мне нужно его перезапустить из вне

Тогда встает вопрос, что за код внутри потока? Есть ли там проверка таймаута...
Перезапуск потока можно достичь пересозданием потока. Но тогда полюбому нужно послать потоку сигнал завершения, и подождать пока он завершится.

Кстати что насчет FreeOnTerminate?
Я так понял если просто присвоить ему значение true и в случае непредвиденной ошибки с помощью exit завершить поток потом запустить его снова - будет все норм?

Это свойство говорит о том, что по завершению потока объект потока будет освобожден самостоятельно. Всего-то. Не будет у тебя ничего "норм", пока ты не пересмотришь стратегию скачивания. Таймауты, скачивание через сокеты или хотя бы через WinINET функции, которые позволят мониторить и скачивать блоками, а так же делать докачку в случае сбоя. Все это должно быть предусмотренно внутри. Как раз поток должен быть автономен и достаточно умен, чтоб контролировать самого себя, а не делать это извне. Так ты ничего не добъешься, поверь на слово.