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

← →
Sergey_R © (2005-10-14 14:34) [0]

А как можно узнать, что поток завершил свою работу? Просто мне нужно обрабатывать данные после того, как поток завершил свою работу!

← →
Digitman © (2005-10-14 15:08) [1]

поток как объект ОС будучи созданным имеет хэндл.

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

← →
Leonid Troyanovsky © (2005-10-14 15:16) [2]

> Digitman © (14.10.05 15:08) [1]

> поток как объект ОС будучи созданным имеет хэндл.
> пока этот хэндл актуален (не закрыт),

Пока объект существует, т.е. пока не закрыт последний его хендл ..

--
Regards, LVT.

← →
evvcom © (2005-10-14 15:24) [3]

> А как можно узнать, что поток завершил свою работу?

Что подразумевается под "потоком"? Если объект ОС, то в [1] и [2] уже содержатся ответы. Если же это объект класса TThread, то в классе имеется Event OnTerminate.

← →
Digitman © (2005-10-14 15:28) [4]

> Leonid Troyanovsky © (14.10.05 15:16) [2]
> Пока объект существует, т.е. пока не закрыт последний его
> хендл

ну бог с ним, пусть будет так ...

я упростил ситуацию, в предположении что автору сие - подсчет ссылок - вообще неведомо.

← →
TUser © (2005-10-14 17:05) [5]

OnTerminate

← →
GLFox © (2005-10-14 17:13) [6]

WaitForSingleObject

← →
Eraser © (2005-10-14 18:53) [7]

WaitFor.

← →
y-soft © (2005-10-14 23:24) [8]

Почему-то никто не упомянул общий способ определения выполняется ли в данный момент функция потока, описатель которого известен, с помощью функции GetExitCodeThread

Применительно к TThread:

function IsThreadRunning(Thread : TThread) : boolean; var Ret : DWORD; begin if GetExitCodeThread(Thread.Handle, Ret) then Result := Ret = STILL_ACTIVE else RaiseLastWin32Error; end;

← →
y-soft © (2005-10-15 00:51) [9]

Пардон, правильно так:

function IsThreadRunning(Thread : TThread) : boolean; var Ret : DWORD; begin Result := GetExitCodeThread(Thread.Handle, Ret) and (Ret = STILL_ACTIVE); end;

Предыдущий вариант не учитывал ситуации, когда хендл потока недействителен (такое случится, если установлено TThread.FreeOnTerminate := True, а функция потока уже завершена)...

Надо бы еще анализировать код ошибки в случае неудачи GetExitCodeThread, но в подавляющем числе случаев это будет сообщение о том, что переданный в функцию описатель потока недействителен, что равносильно тому, что функция потока не выполняется...

← →
Sergey_R © (2005-10-15 16:55) [10]

С завершением потока вроде бы разобрался. А как приостановить или отменить работу потока? Я создал форму, куда кинул ProgressBar и две кнопки. В OnClick первой кнопки написал Thread.Suspend а во второй Thread.Terminate. Запускаю прогу, прогрессбар считает проценты, а кнопки не работают. Если компилировать прогу из Дельфи то при нажатии на любую из кнопок вываливается ошибка AccessViolation, а если запускать готовый exe"шник то выводит ту же ошибку, хотя поток продолжает свою работу! В чем может быть проблема?

← →
Poirot © (2005-10-15 17:00) [11]

Код в студию.

← →
Eraser © (2005-10-15 19:04) [12]

> Sergey_R © (15.10.05 16:55) [10]

> А как приостановить или отменить работу потока?

Лучше из самого потока, т.е. Thread.Terminate, а поток должен отслеживать св-во Terminated.

← →
Sergey_R © (2005-10-17 15:51) [13]

С работой кнопок во время работы потока я разобрался. Все оказалось гораздо проще! В Button1.Click был var в котором был объявлен поток с таким же именем, как и глобальный. При щелчке на кнопке останавливается локальный поток, хотя он и не создан!

А вот еще один глюк обнаружил. Допустим, прога просканировала все тэги, соответственно поток завершил свою работу. При щелчке на кнопке ПАУЗА вылазит ошибка, что поток заквершил работу! То есть и для кнопки нужно проверять, работает ли до сих пор поток или нет? Пытался в коде потока ввести переменную boolean, куда писать работает ли поток или нет, но что-то не получается... Может проще сделать через событие OnTerminate? И если да, то как?

> Sergey_R © (17.10.05 15:55) [14]

> не получается... Может проще сделать через событие OnTerminate?
> И если да, то как?

Действительно, в OnTerminate.
ButtonX.Enabled := True.

--
Regards, LVT.

А как создать событие OnTerminate, если у меня нет формы, соответственно инспектора объектов? В класс потока дописывать? И как потом описывать в тексте программы?

> Sergey_R © (17.10.05 16:11) [16]
> А как создать событие OnTerminate, если у меня нет формы,
> соответственно инспектора объектов? В класс потока дописывать?
> И как потом описывать в тексте программы?

А куда оно (вместе с инспектором) вдруг пропало?
Может у тебя консольное приложение?

С другой стороны, три дня развлечений.
Т.е., сам себе - злобный Буратино.

--
Regards, LVT.

> А как создать событие OnTerminate, если у меня нет формы, соответственно инспектора объектов?

YourThread.OnTerminate:=процедура,
где процедура описана, например, как
TYourClass.Proc (Sender: TObject);

> TUser © (17.10.05 16:19) [18]
> > А как создать событие OnTerminate, если у меня нет формы,
> соответственно инспектора объектов?
>
> YourThread.OnTerminate:=процедура,
> где процедура описана, например, как
> TYourClass.Proc (Sender: TObject);

А, я понял :)
Автор любопытствовал где в юните, пользующем поток, описать обработчик.

2Sergey_R ©

В оном юните (формы) описать в разделе private (класса формы)
procedure MyThreadTerminate(Sender: TObject);

в имплементации которой и расписать требуемые действия.

При создании же MyThread назначить ему OnTerminate := MyThreadTerminate.

--
Regards, LVT.

Завершение потока Найти похожие ветки