использование TThread

[amandra]

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

[B_N]

Точнее сформулируйте что должно происходить. Слишком много разных схем синхронизации можно изобрести. И "останавливался" значит "завершался" или "приостанавливался"?

[Никки]

вот тут есть про потоки много и с примером! я тут прочитал и всё что хотел сделал! Может и тебе подойдет:
http://nikki.am9.ru/programming/lang...ter%2014/1.htm

[amandra]

смысл таков: чтобы поток запускался и приостанавливал (не завершался) свою работу, после некоторой паузы снова запускался

[BOBAH13]

Врятли такое возможно. И вообще такие проблемы решаются другим рациональным способом. Делается класс с вашими данными и private переменной вашего потока. Ну и в классе пишите запуск и паузу потока, но конечно же вы понимаите что после паузы поток Free а при старте Create

[B_N]

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

смысл таков: чтобы поток запускался и приостанавливал (не завершался) свою работу, после некоторой паузы снова запускался

Один и тот же поток (как объект ОС, а не как функция) создаётся и уничтожается один раз. В следующий раз это будет новый поток. Но каждый поток можно приостанавливать и возобновлять. Формулировка Ваша туманна, как и прежде, но если поможет, могу предложить очень простенький пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms,
  ComCtrls, StdCtrls, SyncObjs, ExtCtrls;

type
  TCounterThread = class(TThread)
  private
    EditCtrl    : TWinControl;
    ProgressBar : TWinControl;
  protected
    counter     : cardinal;
    procedure UpdateDisplay;
  public
    constructor Create(CreateSuspended: Boolean; Edit, ProgressBar : TWinControl);
  end;

type
  TThread1 =  class(TCounterThread)
  protected
    procedure Execute; override;
  end;

  TThread2 = class(TCounterThread)
  protected
    procedure Execute; override;
  end;

  TThread3 = class(TCounterThread)
  private
    SyncEvent : TEvent;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean; hEdit, hProgressBar : TWinControl; Sync : TEvent);
  end;

  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    GroupBox3: TGroupBox;
    StartButton: TButton;
    Edit3: TEdit;
    Timer1: TTimer;
    ProgressBar1: TProgressBar;
    ProgressBar2: TProgressBar;
    ProgressBar3: TProgressBar;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StartButtonClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    WorkerThreads       : array [1 .. 3] of TCounterThread;
  public
    Th3_Sync_Event      : TEvent;
    TerminateExecution  : boolean;
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

constructor TCounterThread.Create(CreateSuspended: Boolean; Edit, ProgressBar : TWinControl);
begin
    inherited Create(CreateSuspended);
    Self.counter := 0;
    Self.EditCtrl := Edit;
    Self.ProgressBar := ProgressBar;
end;

procedure TCounterThread.UpdateDisplay;
begin
    (Self.EditCtrl as TEdit).Text := IntToStr(self.counter);
    (Self.ProgressBar as TProgressBar).StepIt;
end;

procedure TThread1.Execute;
var
    i : integer;
begin
    repeat
        for i := 1 to 10 do begin
            inc(Self.counter);
            Synchronize(UpdateDisplay);
            Sleep(100);
        end;
        Sleep(2000);
    until Form1.TerminateExecution;
end;

procedure TThread2.Execute;
begin
    repeat
        inc(Self.counter);
        Synchronize(UpdateDisplay);
        Sleep(100);
    until Form1.TerminateExecution;
end;

constructor TThread3.Create(CreateSuspended: Boolean; hEdit, hProgressBar : TWinControl; Sync : TEvent);
begin
    inherited Create(CreateSuspended, hEdit, hProgressBar);
    Self.SyncEvent := Sync;
end;

procedure TThread3.Execute;
var
    i : integer;
begin
    repeat
        if wrSignaled = Self.SyncEvent.WaitFor(250) then begin
            for i := 1 to 10 do begin
                inc(Self.counter);
                Synchronize(UpdateDisplay);
                Sleep(100);
            end;
        end;
    until Form1.TerminateExecution;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if not self.WorkerThreads[2].Terminated then begin
        if self.WorkerThreads[2].Suspended
        then self.WorkerThreads[2].Resume
        else self.WorkerThreads[2].Suspend;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    self.TerminateExecution := false;
    self.Th3_Sync_Event     := TEvent.Create(nil, FALSE, FALSE, '');

    self.WorkerThreads [1]  := TThread1.Create(true, Edit1, ProgressBar1);
    self.WorkerThreads [2]  := TThread2.Create(true, Edit2, ProgressBar2);
    self.WorkerThreads [3]  := TThread3.Create(true, Edit3, ProgressBar3, self.Th3_Sync_Event);

    self.WorkerThreads [1].Resume;
    self.WorkerThreads [3].Resume;

    self.Timer1.Interval    := 2000;
end;

procedure TForm1.StartButtonClick(Sender: TObject);
begin
    self.Th3_Sync_Event.SetEvent;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    self.Timer1.Enabled := false;

    if  not self.WorkerThreads [2].Terminated
        and self.WorkerThreads [2].Suspended
    then self.WorkerThreads [2].Resume;

    self.WorkerThreads [1].WaitFor;
    self.WorkerThreads [2].WaitFor;
    self.WorkerThreads [3].WaitFor;

    MessageBox(Form1.Handle, 'Ok', 'Ok', MB_OK or MB_ICONINFORMATION);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    self.TerminateExecution := true;
end;

end.

[Jupiter]

можно использовать WaitForSingleObject

Int1 будет увеличиваться
на единицу, после чего поток будет останавливаться,
и запускаться через 5 сек.

.................
Var 
 Thread1 : TMThread;

implementation


procedure TMThread.Execute;
Var
i : Integer;
Int1 : Integer;

begin
Int1 := 0;

  For i := 0 To 8000 Do
  begin
  Int1 := Int1 + 1;
  WaitForSingleObject(Thread1,5000);
  end;

end;