Потоки

[fredwriter]

Здравствуйте!
Подскажите пожалуйста, как сделать, чтобы выполнялся код четырех процедур одновременно, и каждая процедура выводила в своё поле memo одной формы, какие-то данные. То-есть, четыре процедуры, четыре поля memo, одна форма, одновременный вывод данных каждой процедурой в одно из полей Memo.
Я попробовал использовать потоки, а я подозреваю, что нужно использовать потоки, у меня в двух потоках File→New→Other→ThreadObject две процедуры, которые выводят в два Label'a на главной форме значения переменных обрабатываемых этими потоками. Потоки запускаются одной кнопкой на главной форме, и останавливаются одной кнопкой. При нажатии на кнопку запустить форма зависает. Если один поток убрать, то всё работает.
Вот частичный код Юнита формы:

unit MainUnit;

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

private
    co: TCountObj;
    co1: TCountObj_1;

procedure TForm1.Button1Click(Sender: TObject);
begin
  co := TCountObj.Create(true);
  co.Resume;
  co.Priority := tpLower;
  co1 := TCountObj_1.Create(true);
  co1.Resume;
  co1.Priority := tpLower;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  co.Terminate;
  co1.Terminate;
end;

Ниже частичные коды юнитов потоков:

1 поток

unit ThreadUnit;

implementation
uses
  MainUnit;

private
    index: integer;
    procedure UpdateLabel;

procedure TCountObj.Execute;
begin
  index := 1;
  while index > 0 do
  begin
    Synchronize(UpdateLabel);
    Inc(index);
    if index > 100000 then
      index := 0;
    if terminated then exit;
  end;
end;

procedure TCountObj.UpdateLabel;
begin
  Form1.Label1.Caption := IntToStr(index);
end;

2 поток

unit Thread_Unit_1;

implementation
uses
  MainUnit;

private
    index1: integer;
    Procedure UpdateLabel1;

procedure TCountObj_1.Execute;
begin
  index1 := 1;
  while index1 > 0 do
  begin
    Synchronize(UpdateLabel1);
    Inc(index1);
    if index1 > 100000 then
      index1 := 0;
    if terminated then exit;
  end;
end;


Procedure TCountObj_1.UpdateLabel1;
begin
  Form1.Label2.Caption := IntToStr(Index1);
end;

[mihali4]

В штатных дельфийских демках есть демка с потоками. Вы ее код разбирали ?

[fredwriter]

нет не разбирал

Получается, что мне не нужно создавать два раза File→New→Other→ThreadObject, а можно в одном описать мои процедуры, но сложновато там как-то, я делал по книге Флёнова, там всё разжевано, но мало, а в демке не разжевано и много.

Если бы кто-нибудь помог, разжевал так сказать...

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

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

да можно при желании и один класс потока юзать.

а вообще висит потому что не верно выбран метод синхронизации, ибо код выполняемый под Stnchronize выполняется как бы в одном потоке.(главном)

[Voody]

Могу помочь с созданием потока методом класса)
Т.е. в MainUnit дописываем:
Описание классов

TNewThread1 = class(TThread)
  private
   index:integer;
  protected
    procedure Execute; override;
  public
    procedure UpdateLabel;
    constructor Create(CreateSuspended: Boolean);
  end;

TNewThread2 = class(TThread)
  private
   index1:integer;
  protected
    procedure Execute; override;
  public
    procedure UpdateLabel1;
    constructor Create(CreateSuspended: Boolean);
  end;

Тут же описываем конструкторы:

constructor TNewThread.1Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

constructor TNewThread2.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

И коды кнопок будут такими:

procedure TForm1.Button1Click(Sender: TObject);
begin
 stop1:=false; 
 stop2:=false; 
 TNewThread1.Create(false);
 TNewThread2.Create(false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  stop1:=true; 
  stop2:=true; // глобальные переменные
end;

Никаких других юнитов не нужно. Тут же пишем коды в потоках:

procedure TNewThread1.Execute;
begin
 index := 1;
  while index > 0 do
  begin
    Synchronize(UpdateLabel);
    Inc(index);
    if index > 100000 then
      index := 0;
    if stop1 then exit;
  end;
end;

procedure TNewThread2.Execute;
begin
  index1 := 1;
  while index1 > 0 do
  begin
    Synchronize(UpdateLabel1);
    Inc(index1);
    if index1 > 100000 then
      index1 := 0;
    if stop2 then exit;
  end;
end;

procedure TNewThread1.UpdateLabel;
begin
 Form1.Label1.Caption := IntToStr(index);
end;

procedure TNewThread2.UpdateLabel1;
begin
 Form1.Label2.Caption := IntToStr(Index1);
end;

[fredwriter]

Voody Большое спасибо за помощь

Пепел Феникса
а вообще висит потому что не верно выбран метод синхронизации, ибо код выполняемый под Stnchronize выполняется как бы в одном потоке.(главном)

Подкажите какой метод здесь правильный может быть CheckSynchronize

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

в данном случае хорошо подходят сообщения.

кстати, Voddy, в вашем случае конструкторы не нужно переделывать.

[fredwriter]

Сообщение от Пепел Феникса

в данном случае хорошо подходят сообщения.

извините, не понял, какие сообщения, я в теме потоков ни какой, поэтому, пожалуйста, можно поподробнее?

[Dеlphi]

procedure TCountObj.Execute;
begin
  index := 1;
  while (not terminated) and  (index < 100000) do
  begin
    Synchronize(UpdateLabel);
    Inc(index);
  end;
end;

11:34

uses                   syncobjs,
 section: tcriticalsection; // глобальная переменная

где ни будь будь вначале до потока:

section:= tcriticalsection.Create;

procedure TCountObj.Execute;
begin
  index := 1;
  while (not terminated) and  (index < 100000) do
  begin
section.Enter;
    UpdateLabel;
 section.Leave;
    Inc(index);
  end;
end;

...
потом

 section.free

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[fredwriter]

Спасибо Dеlphi