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

[bilibian]

Привет

Нужно, чтобы при нажатии на кнопку "Остановить" поток завершался и выполняемый скрипт останавливался.

Создаю и завершаю поток так:

procedure TForm1.Button1Click(Sender: TObject);
  var Th:TThread;
begin
  if button1.Tag=0 then begin
    button1.Tag:=1;
    button1.Caption:='Остановить';
    Th:=Th.Create(true);
    Th.FreeOnTerminate:=true;
    Th.Resume;
    Th.Priority:=tpNormal;
  end else begin
    button1.Tag:=0;
    button1.Caption:='Начать';
    Th.Terminate;
  end;
end;

При попытке завершить поток, то есть вызвать Th.Terminate выскакивает ошибка "cannot terminate an externally created thread" и ничего не останавливается. Как быть?

[BDA]

Попробуйте сделать переменную Th глобальной.

[northener]

Th:=Th.Create(true);

Что это такое?

[bilibian]

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

Попробуйте сделать переменную Th глобальной.

Спасибо, помогло!

[BDA]

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

Что это такое?

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

[bilibian]

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

Что это такое?

Я сделал так:

1. В самом потоке:

Th = class(TThread);

2. В основном потоке формы объявил глобальной:

var T:Th;

3. И на самой кнопке:

T:=Th.Create(True);

[Shouldercannon]

unit frm_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFormMain = class(TForm)
    BStart2: TButton;
    BCheck2: TButton;
    procedure BStart2Click(Sender: TObject);
    procedure BCheck2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TMyThread2 = class(TThread)
  private
    { Private declarations }
    i: Integer;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  FormMain: TFormMain;
  MyThread2: TMyThread2;

implementation

{$R *.dfm}

procedure TFormMain.BStart2Click(Sender: TObject);
begin
  if BStart2.Tag = 0 then
  begin
    BStart2.Tag := 1;
    BStart2.Caption := 'Стоп';

    MyThread2 := TMyThread2.Create(True); // После создания поток остановлен
    MyThread2.FreeOnTerminate := True; // После завершения работы поток "не умрёт" сам
    MyThread2.Resume; // Запуск потока
  end
  else
  begin
    BStart2.Tag := 0;
    BStart2.Caption := 'Старт';
    // Поток не прекращает свою работу
    // НЕ УБИВАЕТ поток, а просто выставляет свойство Terminated в True
    // Поток сам должен следить (в теле Execute) за тем, когда должен умереть
    // Жёстко уничтожить поток можно с помощью TerminateThread, но делать этого нельзя, потому как утечки памяти как минимум... ну и прочие неприятности
    MyThread2.Terminate;
  end;
end;

procedure TMyThread2.Execute;
var
  i2: Integer;
begin
  for i2 := 0 to 60 do
  begin
    if Self.Terminated then Exit; // Если главный поток приказал - умираем

    if i2 > 61 then Break;
    Sleep(100);
    i := i2;
    Synchronize(SyncProc);
  end;

  Terminate;
end;

procedure TMyThread2.SyncProc;
begin
  FormMain.Caption := IntToStr(i);
end;

procedure TFormMain.BCheck2Click(Sender: TObject);
begin
  // Проверка на существование потока
  if MyThread2 <> nil then
  begin
    // Если поток умирает "мирно", штатно завершив работу
    if MyThread2.Terminated then ShowMessage('Поток "MyThread2" не работает') else ShowMessage('Поток "MyThread2" работает');
  end else ShowMessage('Поток "MyThread2" не создан');
end;

end.

[bilibian]

В общем сделал так:

В отдельный поток подключил главный поток с данными о кнопках которые располагаются на форме:

type
  TFormMain = class(TForm)
    Button1: TButton;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  Th = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var T:Th;
    FormMain:TFormMain;

implementation

procedure Th.Execute;
begin

   Пишем основной код, который будет выполняться при нажатии на кнопку Старт

end;

Далее, пишу код для кнопки "Старт":

procedure TFormMain.Button1Click(Sender: TObject);
begin
  if button1.Tag=0 then
  begin
    button1.Tag:=1;
    button1.Caption:='Остановить';
    T:=Th.Create(true);
    T.FreeOnTerminate:=true;
    T.Resume;
    T.Priority:=tpNormal;
  end
  else
  begin
    button1.Tag:=0;
    button1.Caption:='Старт';
    T.Terminate;
  end;
end;

В итоге при нажатии на кнопку Старт в проге, вообще ничего не происходит.

[Stilet]

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

[bilibian]

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

код выполнился незаметно.

Это исключено! Ведь даже Caption кнопки не поменялся, хотя это условие должно быть выполнено еще до открытия потока. Соответственно между кнопкой которая находится на форме и кодом который для нее прописан в другом потоке нет связи!