Завершение работы потока

[vipok72]

Всех приветствую, у меня возникла проблема с завершением работы потока, дело в том что корректно проверить работает ли поток я не могу, поэтому хочу перезапускать его принудительно,

TNewThread.Create(false);

Вот так запускаю поток, а как завершить его не из самого потока.
Прошу обьяснить мне как завершить поток.
Еще было бы супер если бы вы подсказали как проверить работает ли поток в данный момент
Заранее спасибо

[Stilet]

как проверить работает ли поток в данный момент

У него есть свойство Terminated. Попробуй его проверять.

как завершить поток.

В ХЕ делфи вроде был метод Stop. Нужно в доках по Эмбаркадеро посмотреть, если у тебя ХЕ. Если нет то в потоке организуй какой нить флаг-переменку, в которую можно писать извне потока. Если в нее пишешь false - поток завершай командой Exit к примеру. Лично я так и делаю. Ну или грубо - TerminateThread()

[vipok72]

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

У него есть свойство Terminated. Попробуй его проверять.

По моему из вне - нельзя проверять, ну то есть с основного окна, можно только из самого потока как я помню... читал про это где то...

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

В ХЕ делфи вроде был метод Stop. Нужно в доках по Эмбаркадеро посмотреть, если у тебя ХЕ. Если нет то в потоке организуй какой нить флаг-переменку, в которую можно писать извне потока. Если в нее пишешь false - поток завершай командой Exit к примеру. Лично я так и делаю. Ну или грубо - TerminateThread()

У меня Borland Delphi 7, насчет флага я уже сделал... дело в том что возможны ошибки в работе потока, и он завершится, и мне нужно будет перезапустить его... Самый кайф в том что я гружу потоком страницу, возможно иногда будут таймауты, а это считается ошибкой, поток вылетает... как проверить - не знаю, даже с помощью динамического флага например (собстна так я щас и проверяю)... ибо я не зная что поток работает долго загружая страницу, могу запустить второй раз поток, а это ни к чему, так что желательно проверить работает ли поток или нет из вне, или же принудительно завершить его и запустить снова

[evg_m]

дело в том что возможны ошибки в работе потока

Можно не проверять, а "договориться" с потоком чтобы он "сообщал" о СВОИХ проблемах!
ПУСТЬ поток САМ ловит все ошибки

try
while not terminted do begin
..........
end;
except
Synconize(sendStopExcept);
end;

И сообщает о них а основная программа реагирует на такие сообщения и ....
пример использования OnTermiante для общения

[Krasiosoft]

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

Ну или грубо - TerminateThread()

У грубого метода свои последствия, а если точнее, то поток может не освободить память, которую выделял для своих нужд, так не стоит делать.

[Stilet]

Ну да. На то оно и грубо, чтоб die hard

[саша40]

EndThread попробуй.

[SQLPowerUser]

В другом форуме по Delphi, есть тема Шаблон класса для работы с потоком (WThread, Thread).
Модуль позволяет "общаться" дополнительному и основному потокам посредством очереди сообщений
В архиве пример с пояснениями, может кому пригодится...