Потоки GET запроса

[DKENT]

Доброго времени суток!
Читал много информации но никак не могу понять как сделать несколько потоков в программе!

Вот пример кода:

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

   TMyThread = class(TThread)

    private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;
   MyThread: TMyThread;
implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
MyThread:=TMyThread.Create(False);
MyThread.Priority:=tpNormal;
end;

procedure TMyThread.Execute;
var
i:integer;
begin
i:=1;
form1.IdHTTP1.IOHandler:=form1.IdSSLIOHandlerSocketOpenSSL1;
for i:=1 to 100000 do
begin
form1.idhttp1.Get('http://google.com);
end;
end;

Программа работает в один поток, а вот как сделать чтобы работала к примеру в 10 потоков!

Прошу не отправлять в гугл, информации море прочитал, но никак не могу понять как связать потоки и сделать больше одного! На примере пойму обязательно!

[eoln]

Объекты должны быть объявлены где-нибудь внутри потока, с компонентами на форме работать не нужно - теряется многопоточность, да ещё и конфликты доступа. Примерно так

procedure TMyThread.Execute;
var
i:integer;
 IdHTTP1: TIdHTTP; //объявляем локально для экземпляра потока
 IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
begin
i:=1;
IdHTTP1:= TIdHTTP.Create();//создаём внутри потока
IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create;
IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
for i:=1 to 100000 do
begin
try
idhttp1.Get('http://google.com');
sleep(1000);//прост )
except
end;
end;
IdSSLIOHandlerSocketOpenSSL1.free;
IdHTTP1.free;
end;

При каждом клике на кнопку запускается поток. Но в таком примере теряется информация, необходимая для внешнего управления, т.к. переменная MyThread: TMyThread; только одна. Для 10 потоков можно завести либо массив, либо список, либо пул. В крайнем случае 10 отдельных переменных ))

Прошу не отправлять в гугл

Яндекс в помощь

P.S. IdHTTP1 и IdSSLIOHandlerSocketOpenSSL1 с формы можно выкинуть

[DKENT]

Спасибо за подсказку, но остаться не решенным один вопрос как из 1 потока сделать к примеру 10?

[p51x]

Создать десять обехктов класса TMyThread не вариант?

[DKENT]

Да пробую но почему то не получается их в проект добавить ошибки лезут!

[DKENT]

Попробовал сделать 2 потока но при запуске программа виснет намертво!

var
  Form1: TForm1;
   DoWork1: TMyThread;
implementation

{$R *.dfm}


TMyThread = class(TThread)

    private
    { Private declarations }
  protected
     procedure DoWork1;
     procedure DoWork2;
    procedure Execute; override;
  end;

procedure TMyThread.DoWork1;
var
i:integer;
IdHTTP1: TIdHTTP;
IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
begin
IdHTTP1:= TIdHTTP.Create();
IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create;
IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
IdHTTP1.HandleRedirects:=true;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
for i:=100000 to 200000 do
begin
try
idhttp1.Get('http://mysite.ru/index.php?id='+inttostr(i));
sleep(1000);
except
end;
end;
IdSSLIOHandlerSocketOpenSSL1.free;
IdHTTP1.free;
end;

procedure TMyThread.DoWork2;
var
i:integer;
IdHTTP1: TIdHTTP;
IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
begin
IdHTTP1:= TIdHTTP.Create();
IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create;
IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
IdHTTP1.HandleRedirects:=true;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
for i:=200000 to 300000 do
begin
try
idhttp1.Get('http://mysite.ru/index.php?id='+inttostr(i));
sleep(1000);
except
end;
end;
IdSSLIOHandlerSocketOpenSSL1.free;
IdHTTP1.free;
end;

procedure TMyThread.Execute;
begin
Synchronize(DoWork1);
Synchronize(DoWork2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DoWork1:=TMyThread.Create(False);
DoWork1.Priority:=tpNormal;
button1.Enabled:=false;
end;

Подскажите в чем проблема?

[eoln]

procedure TMyThread.DoWork2; вообще не нужна.
Создаём 10 переменных под потоки

var
  Form1: TForm1;
   DoWork1: array[1..10] of TMyThread;

Запускаем

procedure TForm1.Button1Click(Sender: TObject);
begin
for i :=1 to 10 do begin
DoWork1[i]:=TMyThread.Create(False);
DoWork1[i].Priority:=tpNormal;
end;
button1.Enabled:=false;
end;

Синхронизацию убрать, она нужна для работы с общими данными/компонентами и т.п. Всё что внутри Synchronize выполняется не в данном потоке, а в главном, т.е, в самой главной программе. Оттого и виснет, что нет многопоточности

procedure TMyThread.Execute;
begin
DoWork1;
end;

[evg_m]

различие между doWork1 doWork2 это разные параметры цикла

for i:=100000 to 200000 do

1. делаем это параметрами новой процедуры

procedure doWorkX(startpos, finishpos: integer);
begin
...
for i:=startpos to finishpos do

proccedure TMyThread.Execute;
begin
  DoWorkX(???, ???); //что же здесь

2. Добавляем в описание потока поля

TMyThread = class(TThread)

    private
    { Private declarations }
   FmyStartPos, FmyFinishpos: integer;

proccedure TMyThread.Execute;
begin
  DoWorkX(FmyStartPos, FmyFinishPos); //теперь знаем что здесь

НО как же нам дать разные значения

3. пишем СВОЕ создание объектов

TMyThread = class(TThread)

    private
    { Private declarations }
   FmyStartPos, FmyFinishpos: integer; 
public
   constructor Create(Asuspended: boolean; AstartPos, AFinishPos: integer);

constructor TMyThread.Create((Asuspended: boolean; AstartPos, FFinishPos: integer);
begin
  inherited Create(Asuspended); //применить ранее имевiееся создание
  // а теперь ЗАПОЛНИМ наши новые поля ИСПОЛЬЗУЯ наши новые параметры
  FmyStartpos:=AStartpos;
  FmyFinishPos:=AfinishPos;
end;

и делаем два потока с разными диапазонами

t1:=TMyThread.Create(true, 00001, 10000);
t2:=TMyThread.Create(true, 10001, 20000);