Массив потоков

[NIKOLAYY2]

Делаю так, создаю массив нескольких потоков, так же создаю массив обьектов TIdHttp,
Для каждого потока - свой TIdHttp! (правильно я понял?)

В общем я получаю одни ошибки...
Если делать синхронизацию потоков, все работает, но скорость становится равная как у одного потока.
И в один поток все работает хорошо.
Но я хотел несколько потоков реализовать.
Код напишу ниже.

   TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  Thread: array[1..10] of TMyThread;
  Http: array[1..10] of TIdHttp;
  s: Integer;

implementation

{$R *.dfm}


{ Thread }

procedure TMyThread.Execute;
var
  j: Integer;
begin
  for j := 1 to 3 do
  begin
    inc(s);
    Form1.Memo1.Text := Http[s].Get('http://www.yandex.ru/');
    Http[s].Free;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
    for i := 1 to 10 do
  begin
    http[i] := TIdHttp.Create(nil);

    Thread[i] := TMyThread.Create(False);
    Thread[i].Priority := tpNormal;
  end;
end;

end.

Задача была сначала сделать такой тест:
Вставить в форму компонентов Memo штук пять и наблюдать воочию загрузку страниц, неважно в каком порядке, важно что бы они все загрузились, но все начало рушиться! Все пошло крахом!
Что задумал изначально- ничего неполучилось! Ни какой многопоточности невышло! Есть какие идеи?

[NIKOLAYY2]

Немного код изменил и получил мало того что цифры повторяются но я еще получил число 12117 откуда оно там, как исправить?

[ДралсяСошибками]

У тебя чот ваще всё ужасно((( Для начала выкинь массив идхттп и добаввь:

TMyThread = class(TThread)
  IdHTTP: TIdHTTP;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

и соответственно, создай и освободи в execute

Thread[i] := TMyThread.Create(False);
    Thread[i].Priority := tpNormal;

лучше написать так:

Thread[i] := TMyThread.Create(True); // создаём поток засуспенженный
    Thread[i].Priority := tpNormal;
 Thread[i].Resume; // запускаем

по умолчанию там итак normal

[NIKOLAYY2]

ДралсяСошибками
Спс, да у меня всегда с большими потоками большие проблемы!
Сейчас буду пробовать. А от сюда-

procedure TMyThread.Execute;

Внутри этой процедуры циклы вобще все убрать?

Я принципа не пойму, например если для скачки страниц в многопоточности:

Для каждого потока - свой TIdHttp! (правильно я понял?)

То есть сколько раз мне страницу нужно скачать такого размера у меня и массив должен быть потоков, компонетов...

Я самого главного понять немогу...

[ДралсяСошибками]

ну по идее убрать, у тебя будет в каждом потоке по одному идхттп

[min@y™]

Убери Form1 из кода исполнения потока. Именно здесь падение скорости, т.к. всё, что связано с VCL, выполняется в основном (главном) треде приложения. Никогда так не делай.

Дать тебе кусок методичку про потоки почитать?

Да, и не давай нескольким тредам работать с общими глобальными переменными, если без этого можно обойтись! В остальных случаях - только внутри критических секций!!! В той же методичке всё это есть.

[northener]

Сообщение от min@y™

Убери Form1 из кода исполнения потока. Именно здесь падение скорости, т.к. всё, что связано с VCL, выполняется в основном (главном) треде приложения. Никогда так не делай.

Точнее убери обращение к Memo1 из потока.

2 min@y™

т.к. всё, что связано с VCL, выполняется в основном (главном) треде приложения.

Оно "выполняется" там, где решил выполнить программист, а вовсе не.
А вот где оно дОлжно выполняться дабы не было геморроя - это как раз нужно знать программисту.

[min@y™]

Оно "выполняется" там, где решил выполнить программист

Путаешь с "выполняется", "вызывается".

Synchronize() - наше всё...

[Stilet]

Я тоже не вижу смысла в потоке автору обращаться к Мемо, что на форме.
Да и Http переменную нужно не массивом хранить, а сделать полем потока. В нем создавать в нем же и грохать.
Например как тут: http://www.programmersforum.ru/showthread.php?t=203699

[NIKOLAYY2]

min@y™
Дать тебе кусок методичку про потоки почитать?

Давайте почитаем.