[MoS]

Здравствуйте. Не знаю в какой раздел написать, поэтому пишу в этот!
Хочу узнать больше о потоках в делфи, а именно как сделать не один поток к основному, а несколько?
Читал статьи про потоки, но в каждой из них описано как создать один дополнительный поток к основному!
Кому не тяжело объяснить, прошу показать на примере!
Допустим нужно создать программу которая в 100 потоков будет считать до 1 миллиарда с шагом в 0.001! Как реализовать это в 100 потоков?
Ну или пример вашей программы, которая что-то делает в многопоточном режиме!

[M.A.D.M.A.N.]

На винграде целый талмуд был по потокам, поищи там.

[NumLock]

Код:

unit Unit1;

interface

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

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;  
  end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyThread }

procedure TMyThread.Execute;
begin
  // do it
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=1 to 100 do TMyThread.Create(False);
end;

end.

[MoS]

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

Код:

unit Unit1;

interface

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

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;  
  end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyThread }

procedure TMyThread.Execute;
begin
  // do it
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=1 to 100 do TMyThread.Create(False);
end;

end.

Спасибо!
Но есть еще вопрос, если в Execute есть:

Код:

for k:=1 to 1000 do
begin
 link:='http://www.-----.ru/page/'+IntToStr(i)+'/';
 data:=Form1.IdHTTP1.Get(link);
end;

то как это сделать в 100 потоков, таким же методом как и выше написано?

[M.A.D.M.A.N.]

В конструктор можно передать строку

Код:

for i := 0 to ... do
  foo := TMyThread.Create('blabla'+inttostr(i));

[NumLock]

и IdHTTP1 объяви в Execute

[MoS]

Все пытаюсь разобраться с многопоточностью, вот пример кода, в 2 потока работает, только такое ощущение что в 1 поток (не основной) все работает намного быстрее!

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  Potok = class(TThread)
  private
    h: Extended;
  public
  protected
    procedure Execute; override;
    procedure ShowResult;
  end;

var
  Form1: TForm1;
  pot: Potok;
  
implementation

{$R *.dfm}

{ Potok }
procedure Potok.Execute;
begin
  inherited;
  h:=0;
  while (h<>1000000000) do
  begin
    h:=h+0.001;
    Synchronize(ShowResult);
  end;
end;

procedure Potok.ShowResult;
begin
  Form1.Label3.Caption:=FloatToStr(h);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do
  begin
    pot:=Potok.Create(false);
    pot.Priority:=tpNormal;
    pot.FreeOnTerminate:=true;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do pot.Suspend;
end;

end.

Как только ставлю вместо 2-х потоков 3 и более, программа просто виснет и ничего не происходит, в чем проблема, подскажите?

[Bargest]

Немного оффтоп:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do
  begin
    pot:=Potok.Create(false);
    pot.Priority:=tpNormal;
    pot.FreeOnTerminate:=true;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do pot.Suspend;
end;

оригинально...

[MoS]

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

Немного оффтоп:

оригинально...

А что не так? Не понятно в чем ошибка...

[Bargest]

А в том, что ты 2 раза записываешь в одну переменную разные значения. Вопрос на засыпку: куда девается первое?
А потом ты пытаешься два раза один и тот же поток остановить. Вопрос: почему?

[MoS]

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

А в том, что ты 2 раза записываешь в одну переменную разные значения. Вопрос на засыпку: куда девается первое?
А потом ты пытаешься два раза один и тот же поток остановить. Вопрос: почему?

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

[Bargest]

Сделать массив из потоков, и присваивать в pot[i]. Соответственно, останавливать тоже pot[i]. А на будущее - отказаться от названий классов и переменных в транслитерации. А то будет

Код:

chbayta chetyrebayta := chbayta(_4bayta1);

[MoS]

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

Сделать массив из потоков, и присваивать в Potok[i]. Соответственно, останавливать тоже Potok[i]. А на будущее - отказаться от названий классов и переменных в транслитерации.

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  Potok = class(TThread)
  private
    h: Extended;
  public
  protected
    procedure Execute; override;
    procedure ShowResult;
  end;
 
var
  Form1: TForm1;
  pot: array[1..10] of Potok;
   
implementation
 
{$R *.dfm}
 
{ Potok }
procedure Potok.Execute;
begin
  inherited;
  h:=0;
  while (h<>1000000000) do
  begin
    h:=h+0.001;
    Synchronize(ShowResult);
  end;
end;
 
procedure Potok.ShowResult;
begin
  Form1.Label3.Caption:=FloatToStr(h);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do
  begin
    pot[i]:=Potok.Create(false);
    pot[i].Priority:=tpNormal;
    pot[i].FreeOnTerminate:=true;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do pot[i].Suspend;
end;
 
end.

Так?

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

А на будущее - отказаться от названий классов и переменных в транслитерации.

Не очень понятно о чем это?

[Bargest]

Так?

Да, только не понятно, зачем массив 1..10, когда используется всего два элемента.

Не очень понятно о чем это?

О назывании переменных и типов "транслитом". Примеры: Potok, Okno, Programma, Klavisha.

[Aristarh Dark]

Ну как дети, чес-слово. ТС поставь перед синхронайз паузу в 50-100 мс (миллисекунд) и будет тебе щастье (кста, наверное с большой буквы Щ)
ЗЫЖ видимо у тебя двухядерный проц