get запрос

[Stilet]

Silver_S

За это согласен. Поставить там k<=High() -это решит эту проблему.
Но то что Саша нес это чушь.

[mitiay]

site1/key.txt
site2/key.txt
site3-
работает
site1/key.txt
site2-
site3-
не работает

site1/key.txt
site2-
site3/key.txt
не работает

site1-
site2/key.txt
site3/key.txt
не работает
то есть если первый хост упал то остальные не работают?

[Silver_S]

Сделайте так:

  try
    s:= idhttp1.Get('http://'+blabla[k]+'/key.txt');
    ShowMessage('Успешный контакт с ' + blabla[k] + 
      '. Получен текст:'#13#10 + s);
    break;
  except
    ShowMessage('Не удалось подключиться к ' + blabla[k]);
    inc(k);
  end;

и посмотрите, что выведет.

[саша40]

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

и посмотрите, что выведет.

Выведет код страницы. Не по наслышке знаю, что это так.

[mitiay]

http://screenshot.ru/b9d7f33f169c15e4c658e668ce4bab93
Это если на первом хосте нет key.txt
Если есть то ('Успешный контакт с site.ru....)

По идее должно быть так если на первом нет key.txt или он вообще молчит то конектимся ко второму

[Silver_S]

Делфи сообщает, что возникло исключение, но это исключение мы обрабатываем в блоке except...end. При запуске программы без отладки никаких сообщений не будет.

Я ведь написал вам

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

Выключите Notify on Language Exceptions, если стоит.

Тогда делфи не будет оповещать вас о возникновении таких исключений.

PS. Или, как написано в сообщении на скриншоте, жмите кнопку Run(F9) для продолжения выполнения.