Цикл и Многопоточность.

[CraftR14]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    IdHTTP1: TIdHTTP;
    ListBox1: TListBox;
    Edit4: TEdit;
    Button2: TButton;
    Timer1: TTimer;
    Edit3: TEdit;
    Button3: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

 private
    { Private declarations }
  public
    { Public declarations }
  end;
  
  TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}




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

procedure TNewThread.Execute;
var
  i:Integer;
  s,k:string;
    j:Integer;
begin
for  i:=StrToInt(Form1.Edit1.Text) to StrToInt(Form1.Edit2.Text) do
begin
Application.ProcessMessages;
k:=Form1.IdHTTP1.Get('http://google.ru/'+IntToStr(i));
Form1.ListBox1.Items.Add('ID:['+IntToStr(i)+']  '+k);
Application.ProcessMessages;
end;

end;


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


procedure TForm1.Button2Click(Sender: TObject);
begin

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.ListBox1.Items.Clear;
end;

end.

Собственно я засунул в поток но так как тут цикл то я вообще не понимаю как создать к примеру 20 потоков и что бы каждый делал свое действие в цикле
т.е. первый поток качает первую страницу и добавляет в листбокс второй поток качает вторую страницу добавляет в листбокс... то есть как то так...

Помогите пожалуйста кодом.......

[Stilet]

Ну предположим у тебя есть массив с ссылками
Добавляешь в класс потока свойство URL:String , которое применяешь в

procedure TNewThread.Execute;
var
  i:Integer;
  s,k:string;
    j:Integer;
 IdHTTP1:TIdHTTP;
begin
 IdHTTP1:=TIdHTTP1.Create(nil);
  k:=IdHTTP1.Get(url);
  Form1.ListBox1.Items.Add('ID:['+IntToStr(i)+']  '+k);
 IdHTTP1:=nil;
end;

А в клике вызываешь:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=low(massiv) to high(massiv) do
  with TNewThread.Create(true) do begin
   url:=massiv[i];
   FreeOnTerminate:=true;
   Resume;
  end
 end;

Вот примерно так... Только я бы на твоем месте про синхронизацию не забывал.

[CraftR14]

Актуально еще) Так и не хрена не понел
Все в одном потоке делаю, код хороший навоял) а вот с потоками как то я все не на лажу))
Помогите все таки с кодом =\

[evg_m]

procedure TNewThread.Execute;
var
i:Integer;
s,k:string;
j:Integer;
IdHTTP1:TIdHTTP;
begin
IdHTTP1:=TIdHTTP1.Create(nil);
k:=IdHTTP1.Get(url);
Form1.ListBox1.Items.Add('ID:['+IntToStr(i)+'] '+k);
IdHTTP1:=nil;
end;

вам сказали не забывайте про синхронизацию при использовании внешних (по отношению к классу TNewThread переменных (url) и объектов(Form1.ListBox.Items) (отмечены красным) или используйте локальные.