Запуск нескольких потоков

[Stilet]

Как их все завершить принудительно?

Опиши в потоке поле типа boolean.
В цикле тела потока проверяй ее на true. Если она false - выйти из цикла.
Далее просто каждому потоку передавай false, и жди пока тот выйдет. Потом следующему и так в цикле.

P.S. Можно еще использовать свойство Terminated (что кстати с примером описано в хелпе), но я с ней как-то не особо подружился, не знаю почему.

[bilibian]

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

Опиши в потоке поле типа boolean.
В цикле тела потока проверяй ее на true. Если она false - выйти из цикла.
Далее просто каждому потоку передавай false, и жди пока тот выйдет. Потом следующему и так в цикле.

P.S. Можно еще использовать свойство Terminated (что кстати с примером описано в хелпе), но я с ней как-то не особо подружился, не знаю почему.

Что то я вообще ничего сообразить не могу. Можно пример о том как передать в рабочие потоки false?

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

P.S. Можно еще использовать свойство Terminated

Вот я его и использую, передаю в цикле потокам - terminate, в самих потоках проверяю его. В итоге потоки продолжают работать.

Есть подозрение, что я не правильно тераминирую потоки.

procedure TForm1.Button2Click(Sender: TObject);
  var i:Integer;
  ThreadArray: array [1..3] of Thr;
begin

  if button2.Tag = 0 then
  begin

    button2.Tag:=1;

    for i:=1 to High(ThreadArray) do
    begin
      ThreadArray[i]:=Thr.Create(true);
      ThreadArray[i].FreeOnTerminate:=true;
      ThreadArray[i].Resume;
      ThreadArray[i].Priority:=tpNormal;
    end;

  end
  else
  begin

    button2.Tag:=0;
    for i:=1 to High(ThreadArray) do ThreadArray[i].Terminate;

  end;

end;

Здесь нужно учитывать, что некоторые потоки могут быть уже завершены. Если для них вызвать terminate будет ошибка.

[bulldog5293]

terminate, в самих потоках проверяю его

Что то не наблюдаю где ты это проверяиш

[bilibian]

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

Что то не наблюдаю где ты это проверяиш

procedure Thr.Execute;
begin
 while not Terminated do
 begin
  try
     // код
  except on E : Exception do
  begin
    // исключение
  end;
  end;
 end;
end;

[bulldog5293]

procedure Thr.Execute;
begin
   while True do
     if ThreadArray.Teminated then break;
end;

код выполняет бесконечный цикл. Однако, при выполнении в основной программе оператора

   ThreadArray.Terminate;

цикл завершается, и поток прекращает свою работу.

[bilibian]

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

procedure Thr.Execute;
begin
   while True do
     if ThreadArray.Teminated then break;
end;

код выполняет бесконечный цикл. Однако, при выполнении в основной программе оператора

   ThreadArray.Terminate;

цикл завершается, и поток прекращает свою работу.

Суть в том, что потоков несколько.

Этот код покажет ошибку.

ThreadArray.Terminate;

так как он требует, чтобы я сделал так:

ThreadArray[i].Terminate;

Но таким способом потоки не останавливаются.

Тоже самое и с:

ThreadArray.Teminated

[Stilet]

Все там останавливается. Вот пример:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  { tt }

  tt=class(TThread)
    public i:integer;
    private procedure upd;
    protected procedure execute; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var  tl:TThreadList;
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin
 tl:=TThreadList.Create;


end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Button2.Click;
  tl.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;  l:TList;
begin
 l:=tl.LockList;
 for i:=0 to l.Count-1 do begin
  with tt(l[i]) do begin
   Terminate;
   WaitFor;
  end;
 end;
 tl.UnlockList;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; t:tt;
begin
 for i:=0 to 5 do begin
  ListBox1.Items.Append(IntToStr(i));
  t:=tt.Create(true);
  t.i:=i;
  tl.Add(t);
  t.Start;
 end;
end;

{$R *.lfm}

{ tt }

procedure tt.upd;
begin
 Form1.ListBox1.Items[i]:=TimeToStr(now);
end;

procedure tt.execute;
begin
  while not Terminated do begin
   Synchronize(@upd);
   Sleep(100);
  end;
  Form1.ListBox1.Items[i]:='Stoped';

end;

end.

[bilibian]

Stilet, спасибо!

Сделал так:

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

var
  Form1: TForm1;
  tl:TThreadList;


procedure TForm1.Button2Click(Sender: TObject);
  var i:Integer;
  ThreadArray: array of Thr;
  l:TList;
begin
  if button2.Tag = 0 then
  begin

    tl:=TThreadList.Create;

    button2.Tag:=1;

    for i:=1 to High(ThreadArray) do
    begin

      ThreadArray[i]:=Thr.Create(true);
      ThreadArray[i].FreeOnTerminate:=false;
      ThreadArray[i].OnTerminate := ENDTerminated;
      tl.Add(ThreadArray[i]);
      ThreadArray[i].Resume;
      ThreadArray[i].Priority:=tpNormal;

    end;
  end
  else
  begin
    button2.Tag:=0;

    l:=tl.LockList;
    for i:=0 to l.Count-1 do begin
    with Thr(l[i]) do begin
      Terminate;
      WaitFor;
      Free;
    end;
    end;
    tl.UnlockList;
    tl.Free;
  end;
end;

[bilibian]

При запуске потоков я устанавливаю FreeOnTerminate:=false; так как если поставить True, то при остановке по кнопке будет ошибка "Thread Error: Неверный дескриптор (6)".

Так вот, при использовании FreeOnTerminate:=True; память освобождается по завершению работы потока, а если я использую FreeOnTerminate:=false; то как в этом случае быть?

[bulldog5293]

завести обработчик onterminated и внём убивать, +можно на форме сообщать что такой то поток убит или что ни будь другое