Как отменить поток

[RIO]

Здравствуйте, коллеги ! Можно ли как-то отменить, снять поток ? Например у меня запущен поток, я нажимаю на кнопку и он снимается . . . То есть тот код который запущен в потоке останавливает свою работу .

[russian-stalker]

поток.Suspend

[RIO]

Спасибо А как проверить или в данный момент поток выполняет какую нибудь работу ?

[Пепел Феникса]

TThread.Suspended: Boolean;

[RIO]

Такс, не могу разобраться с проблемой, мне нужно корректно убить поток при закрытии формы (если он работает) . . . Делаю так :

  TGo= class(TThread)
  private
  protected
    procedure Execute; override;
  end;

var
  Box: TBox;
  Go: TGo;

implementation

{$R *.dfm}

procedure TBox.GoButtonClick(Sender: TObject);
begin
  Go := TGo.Create(True);
  Go.FreeOnTerminate := True;
  Go.Priority := TPNormal;
  Go.Resume;
end;

procedure TGo.Execute;
var
  S: string
begin
  S := IdHTTP1.Get('Сайтег');
end;

procedure TBox.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if not Go.Terminated then
     Go.Terminate;
end;

Но вылетает ошибка, при закрытии, такого типа : EAccessViolation Интересно в чем проблема ?

[Пепел Феникса]

if not Go.Terminated then
Go.Terminate

Go.FreeOnTerminate := True;

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

[RIO]

Ага Как я понял нужно Go.FreeOnTerminate := False; Так ? Если да, то можете написать полный код для кнопочки по нажатию на которую будет корректно завершаться поток ?

[Пепел Феникса]

if Go<>nil then Go.Terminate;

вот один пример.
я лично у себя делал через Suspend а уничтожается сам(а то почему то висло...)

PS:надо попробывать применить FreeOnTerminate...мож что выйдет...

[TwiX]

В чём разница между suspend и terminate?
Лично я всегда использовал terminate =\

[Пепел Феникса]

первое это пауза.
второе завершение.