Многопоточность Indy

[niva622]

Здравствуйте, продолжаю изучение thread потоков) Столкнулся с проблемой, есть программа, нужно динамически создать tidhttp и отправить get запросы с изменением одного символа в запросе, только нужно это сделать в потоке, т.е что бы одновременно запускалось заданное количество потоков и парсило данные...
З.Ы.
for i:=0 to 5000 do
begin
idhttp[i].get('http://test.ru'+inttostr(i))
end;
При запуске третьего потока, цикл начинает выполняться сначало, а нужно что бы от 0 до 5000 отправляло запросы не повторяясь...

Ломаю голову кучу времени...

По сути можно синхронизировать еще один поток через synchronize, только пользователь сам должен выбирать колличество потоков...

[Stilet]

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

[niva622]

Можно по поводу первого пример ? как это использовать в крации
Например, как при запуске, передать значение, которое не прошли другие потоки ?
Помогите решить проблему буду очень признателен...

[Lardes]

idhttp[i].get('http://test.ru'+inttostr(i))

Зачем idhttp[i]? Это уже не динамическое создание, а фигня какая-то. В самом потоке используй критические секции и увеличивай счетчик, например:

  CS.Enter;
  Inc(I);
  CS.Leave;

Переменную I назначь глобальной и при считывании/записи значения этой переменной используй крит. секции. До создания потоков присвой I := 0; Настоятельно рекомендую ознакомиться с крит. секциями. И про динамическое создание тоже.

[eval]

А где тут потоки?

[bakanaev]

ТС, вот мне это очень сильно в свое время помогло

[niva622]

всем спасибо буду разбираться

[niva622]

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

idhttp[i].get('http://test.ru'+inttostr(i))

Зачем idhttp[i]?

Запускаю цикл, а I это счетчик... что бы были разные компоненты idhttp..

[niva622]

Все разобрался) нужно было всего лишь использовать процедуру INC

[niva622]

Снова недопонимание,
Если нажимать на кнопку самому тем самым увеличивая потоки, то все нормально
while a do
begin
Inc(iss);
Sleep(100);
Synchronize(updateCaption) ;
end;
crit.Leave ;
end;

updateCaption;
begin
Form1.lst1.Items.Add(IntToStr(iss))
end;

а если
for i:=0 to 4 do
begin
test:=thread.Create(true);
test.Priority:=tpNormal ;
test.Resume
end;
То поток находит на поток и повторяет числа...