Поток в потоке

[Человек_Борща]

Аватар, интересный вариант..
Сказал же что оба потока работают...

Вообще 1 поток запускает программу и мониторит её.. 2 ведёт отсчёт времени, и как только отсчитает заданные n ms, извещает 1 поток и закрывается.
1 поток получив извещение от второго, сворачивает программу за которой он закреплён.

Оба потока работают одновременно, но 2 поток зависит от первого(если первый закрывается, то второй уходит в накдаун тоже).

unit thread1;

uses thread2;

unit thread2;

uses thread1;

[TwiX]

А почему нельзя сделать отсчёт времени в первом потоки? Иногда проверять это время

[Человек_Борща]

потому, что в потоке 1 есть много других вещей которыми он должен заниматься.
А таймер(TTimer) в потоке повесить не возможно.

[SNUPY]

Как вариант (на Form1 есть Edit1, и да я знаю, что так нельзя задавать значение Edit'у):

unit Unit2;

interface

uses
  Classes,SyncObjs;

type
  TThread2 =class;
  TThread1 = class(TThread)
  private
    { Private declarations }
  protected
    childThread: TThread2;
    procedure Execute; override;
  end;

  TThread2 = class(TThread)
  private
    { Private declarations }
  protected
    TimeIsUp_: Boolean;
    function GetTimeIsUp: Boolean;
    Procedure SetTimeIsUp(Value: Boolean);
    procedure Execute; override;
  public
    cs: TCriticalSection;
    Property TimeIsUp: Boolean read GetTimeIsUp write SetTimeIsUp;
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy;
  end;

implementation

uses SysUtils, Unit1;


procedure TThread1.Execute;
begin
  childThread := TThread2.Create(false);
  try
    while true do
      if childThread.TimeIsUp then
      begin
        Form1.Edit1.Text := 'ss';
        break;
      end;
  finally
    FreeOnTerminate := true;
    childThread.Terminate;
  end;
end;

constructor TThread2.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate := false; //ñàìè ïðèáúåì åãî êîãäà íàäî áóäåò
  cs := TCriticalSection.Create;
  TimeIsUp_ := False;
end;

destructor TThread2.Destroy;
begin
  cs.Free;
end;

procedure TThread2.Execute;
begin
  TimeIsUp := False;
  sleep(5000);
  TimeIsUp := true;
end;

function TThread2.GetTimeIsUp: Boolean;
begin
  cs.Enter;
  try
    Result := TimeIsUp_;
  finally
    cs.Leave;
  end;
end;

procedure TThread2.SetTimeIsUp(Value: Boolean);
begin
  cs.Enter;
  try
    TimeIsUp_ := Value;
  finally
    cs.Leave;
  end;
end;

end.

ЗЫ
Когда и где создавать экземпляр класса TThread2 дело вкуса. И еще желательно почитать более подробно про TCriticalSection в хелпе — сдается мне я не слишком оптимально его применил... ну опять же повторюсь все зависит от конкретной задачи.. =)

[Neeter]

Вообще 1 поток запускает программу и мониторит её.. 2 ведёт отсчёт времени, и как только отсчитает заданные n ms, извещает 1 поток и закрывается.
1 поток получив извещение от второго, сворачивает программу за которой он закреплён.

У вас одновременно работают несколько потоков_1, каждый из которых мониторит свою программу?
Если так, можно использовать вместо ненужных потоков_2 простые таймеры: SetTimer/KillTimer. Уведомлять потоки_1 можно, как вам уже сказали, через массив переменных. А еще лучше сворачивать нужную программу прямо в обработчике таймера.

[TwiX]

Сообщение от Человек_Борща

потому, что в потоке 1 есть много других вещей которыми он должен заниматься.
А таймер(TTimer) в потоке повесить не возможно.

Когда-то же он должен проверять, работает еще первый поток или нет.
А если вы время в потоке отсчитываете с помощью таймера, то это печаль...

[Человек_Борща]

А если вы время в потоке отсчитываете с помощью таймера, то это печаль...

был бы рад =) Но TTimer в потоке не возможен.

[Neeter]

Но TTimer в потоке не возможен.

Я уже написал выше: попробуйте SetTimer/KillTimer.

[TwiX]

Таймер в потоке(TThread) возможен...
Вот, пожалуйста:

TMyThread = class(TThread)
  private
    tDone: boolean;
    timer: TTimer;
    procedure MyOnTimer(Sender: TObject);
    procedure Execute; override;
  public
    constructor Create;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyThread }

constructor TMyThread.Create;
begin
  timer:=TTimer.Create(nil);
  timer.OnTimer:=MyOnTimer;
  timer.Interval:=1000;
  timer.Enabled:=false;
  inherited Create(false);
end;

procedure TMyThread.Execute;
begin
  tDone:=False;
  Form1.ListBox1.Items.Insert(0, 'Executing...');

  timer.Enabled:=true;
  while not tDone do
    Sleep(10);
  Form1.ListBox1.Items.Insert(0, 'Timer has just alarmed. Terminating...');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TMyThread.Create();
end;

procedure TMyThread.MyOnTimer(Sender: TObject);
begin
  tDone:=true;
end;

[evg_m]

Вообще 1 поток запускает программу и мониторит её.. 2 ведёт отсчёт времени, и как только отсчитает заданные n ms, извещает 1 поток и закрывается.

Зачем нужен таймер если можно просто использовать системное время. Now() Time().

при запуске отмечаем время (время запуска).
Во время мониторинга определяем разницу (текущее время . время запуска).
Как только >= то ....

P.S. подразумевается что мониторинг есть некий циклический процесс (while ....).
Вместо времени запуска можно сразу рассчитать Контрольное время( время завершения) и контролировать его наступление.

.. 2 ведёт отсчёт времени, и как только отсчитает заданные n ms,

если ему не хватит процессора, то он возможно никогда не отсчитает.

что в потоке 1 есть много других вещей которыми он должен заниматься.