Условие if выводит из цикла

[dlauser]

Как вы это определяете?

Задача программы послать н-ное количество запросов на конкретный урл.
Смотрю пока сниффером.

Попробую вынести всю конструкцию из потока, возможно проблема там кроется.

[Пепел Феникса]

ваш цикл походу просто вешается.
прикрутите сначало положенную синхронизацию.
далее, я надеюсь вы два раза кнопку нажать не пытаетесь?

[Serge_Bliznykov]

dlauser,
1) а почему не проверяете наличие знака '=' в строке urls ?

2) после строчки
i2 := Copy(link1, 1, Pos('=', link1));
i2 будет заканчиваться знаком равно.
Это так Вам и нужно?

3) вытаскивайте код из потока.. возможно, что проблема и не в нём (хотя я на 90% уверен, что именно в нём!), но я лично не вижу в данном случае каких-то преимуществ при его использовании! (ну форма, наверное, "не висит"... и всё...)

4) такой код отрабатывает?! ссылки получаются рабочие?

  for i := 0 to urls.Count - 1 do begin
    link1 := urls.Strings[i];
    i2 := Copy(link1, 1, Pos('=', link1));
    Form2.Memo1.Lines.Add(i2+'page1');

    (*web := Form2.IdHTTP1.Get(i2 + 'page1');

    if Pos('yeaah', web) = 0 then begin
      Form2.Memo1.Lines.Add(i2)
    end 
    *)
  end;

[dlauser]

Serge_Bliznykov, да, ссылочки получаются вида: "http://domain.com/page?id="
Мне так и нужно.

прикрутите сначало положенную синхронизацию.

Синхронизация на данном этапе не нужна, поток один, ссылки самостоятельно может брать по очереди. Да, обновление на форме, да и не нужно пока.

Пока вытащил все из потока и подключил антифриз. Проверил, работает.
Всем спасибо за помощь.

P.S. Начальник будет доволен

[Serge_Bliznykov]

и подключил антифриз.

простите, что подключили?...

Проверил, работает.

Поздравляю!

[GunSmoker]

простите, что подключили?...

TidAntiFreeze.

Это прибамбас к Indy, который выносит её синхронные вызовы в отдельный поток.

[chertovich]

а я думал он для решения этой задачи антифриз выпил...
Я думаю он не спасет, если не в основном потоке идет

Form2.Memo1.Lines.Add

Хотя, это дело случая, на одном компе все ОК, а на другом зависнет прога