get запрос

[Silver_S]

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

Прошелся host not found...

Видать второй хостинг тоже отключили...

Также потерян end после exit. Этого бы скорее всего не произошло, если бы ваш код был отформатирован.

[mitiay]

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

Видать второй хостинг тоже отключили...

Также потерян end после exit. Этого бы скорее всего не произошло, если бы ваш код был отформатирован.

Все работает!Только вот как проверить?пишу кривой домен(не существующий) второй пишу свой выходит ошибка.То есть если с первым доменом будут проблемы будет просто выходить ошибка?

Добавляю в констану еще одно значение 1..3 + еще сайт.Работать отказывается

[саша40]

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

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

КОД ЧИТАТЬ НАДО!

Автор, поместил

inc(k);

сюда:

try 
...
expert
inc(k);
end;

Так получается, что у него в случае ошибки переменная увеличивается. Всё это вырабатывается в цикле While Do. Переменная k остается всегда постоянной и код выполняется постоянно(зацикливается). Так как ошибки не происходит.

[mitiay]

Сообщение от саша40

КОД ЧИТАТЬ НАДО!

Автор, поместил

inc(k);

сюда:

try 
...
expert
inc(k);
end;

Так получается, что у него в случае ошибки переменная увеличивается. Всё это вырабатывается в цикле While Do. Переменная k остается всегда постоянной и код выполняется постоянно(зацикливается). Так как ошибки не происходит.

Подскажи как правельно )))

[Silver_S]

Какая ошибка выходит? Если ошибка "socket error" или что-то в этом роде, попробуйте запустить без отладки.

В цикле while исправьте "<" на "<=". Иначе последний элемент массива не проверяется.

PS. Уверен, что Inc(k) стоит где надо.

[mitiay]

procedure TForm1.Button1Click(Sender: TObject);
const blabla:array[1..3] of string=('site.ru,'site2.ru','site3.ru');
var k:integer;
   sl: TStringList;
    i: integer;
    s:string;
begin
s:='';
k:=Low(blabla);
while k<=Length(blabla) do
 try
  s:= idhttp1.Get('http://'+blabla[k]+'/key.txt');
  break;
 except
  inc(k);
 end;

if s='' then begin
 ShowMessage('????? ?? ???????');
 exit;
 end;
begin
sl:= TStringList.Create;
sl.Text:=s;

    for i:= 0 to sl.Count-1 {??? ??????? ????, ????. 5} do
   (FindComponent('Edit' + IntToStr(i+1)) as TEdit).Text:= sl[i];
 sl.Free;

На первых двух удалил key.txt
При запуске приложения в отладчике ругается на break;

http://screenshot.ru/d32b1a908b325e4ddada656cbd36ec29

[Silver_S]

Каким образом ругается на break? Я на скриншоте вижу просто выделенную строчку.

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

Вместо "k<=Length(blabla)" еще лучше будет "k<=High(blabla)" (на случай, если массив начнете нумеровать с другого индекса).

[Stilet]

КОД ЧИТАТЬ НАДО!

Специально для тех, кто невнимательно читает код поясняю свою идею:

const blabla:array[1..2] of string=('sait.ru','site2.ru');
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
   sl: TStringList;
    i: integer;
    s:string;
begin
s:='';
k:=Low(blabla); // Получаем номер первого сайта в массиве
while k<Length(blabla) do //В цикле пока этот номер не достиг предела установленного нами массива
 try
// Пытаемся:
  s:= idhttp1.Get('http://'+blabla[k]+'/1.txt'); //получить сайт
  break; //ВНИМАНИЕ!!: Если удалось получить - выходим из цикла
 except
  inc(k); //Если не удалось - берем следующий сайт увеличив номер.
 end;

Так понятно?

Еще такой момент: idhttp1.Get может отрабатывать верно, но в переменку попадает пустая строка. Возможно защита на сайте. Опять таки не знаю, ибо тут нужна отладка - пошаговка, на которую я намекал выше.

В цикле while исправьте "<" на "<=". Иначе последний элемент массива не проверяется.

Если работает Length() то нужно < ибо эта функа возвращает кол-во элементов в массиве.
Если работает High() то нужно <=.

[Silver_S]

В вашем случае

array[1..2]

Length(blabla) равно 2 и максимальный индекс массива High(blabla) также равен 2.
Начальное значение k = 1.
Условие цикла

 k<Length(blabla)

При первой итерации k = 1, тело цикла выполнится.
При второй k = 2, условие ложно, тело цикла выполняться не будет.

Таким образом ваш код "недоцикливается".

[mitiay]

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

В вашем случае

array[1..2]

Length(blabla) равно 2 и максимальный индекс массива High(blabla) также равен 2.
Начальное значение k = 1.
Условие цикла

 k<Length(blabla)

При первой итерации k = 1, тело цикла выполнится.
При второй k = 2, условие ложно, тело цикла выполняться не будет.

Таким образом ваш код "недоцикливается".

Значит данный код не работает как надо?