get запрос

[mitiay]

Сегодня утром столкнулся с проблемой!Очень не приятной для меня)В общем моя программа берет данные с тхт файла таким запросом:

sl:= TStringList.Create;

    sl.Text:= idhttp1.Get('http://blabla/1.txt');

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

Так вот сегодня у моего хостера возникли проблемы и мой хостинг откл.
И сразу при запуске выходит сообщение "socket error 11001" - не возможно подключится к хосту!Вопрос как сделать "Если http://blabla/1.txt' не доступен то берем данные с http://blabla2/1.txt" и еще одно как заглушить все сообщения об ошибках.
И еще))))) Допустим если значение в едит равно 500 то ...

[Stilet]

const blabla:array[1..2] of string=('blabla','blabla2'); s:string;
var k:integer;
...
s:='';
k:=Low(blabla);
while k<Length(blabla) do
 try
  s:= idhttp1.Get('http://'+blabla[k]+'/1.txt');
  break;
 except
  inc(k);
 end;

if s='' then begin
 ShowMessage('Нигде не пускают');
 exit;
end;

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;

[mitiay]

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

const blabla:array[1..2] of string=('blabla','blabla2'); s:string;
var k:integer;
...
s:='';
k:=Low(blabla);
while k<Length(blabla) do
 try
  s:= idhttp1.Get('http://'+blabla[k]+'/1.txt');
  break;
 except
  inc(k);
 end;

if s='' then begin
 ShowMessage('Нигде не пускают');
 exit;
end;

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;

спасибо огромное!подскажите как быть с едитом и ошибками

[StriderX]

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

спасибо огромное!подскажите как быть с едитом и ошибками

Не очень понятно. Блок try except как раз глушит все сообщения об ошибках. Другое дело, что сама IDE может всё еще о них сообщать (когда программа запущена под отладчиком), это лечится настройками - можно ткнуть галочку ignore this exception type, когда покажет ошибку.
С едитом тоже непонятно, вроде правильно же написали. Так и будет:

if (edit.text = '500') then begin
    ...
end;

Если в edit задумано вводить только числа, то перекидываем ему NumbersOnly. Если не только числа, то не забываем про Trim и ToLower\ToUpper.

[Stilet]

это лечится настройками - можно ткнуть галочку ignore this exception type, когда покажет ошибку.

Нененене!! Не рекомендую. А то потом ошибка вылезет, try не будет, и IDE ниче не скажет. И будет программист сидеть у окна и думать что же произошло.
Просто нужно запускать экзешник не в режиме отладки - в Делфи в ХЕ есть для этого кнопуля.

[mitiay]

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

const blabla:array[1..2] of string=('blabla','blabla2'); s:string;
var k:integer;
...
s:='';
k:=Low(blabla);
while k<Length(blabla) do
 try
  s:= idhttp1.Get('http://'+blabla[k]+'/1.txt');
  break;
 except
  inc(k);
 end;

if s='' then begin
 ShowMessage('Нигде не пускают');
 exit;
end;

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;

как я понимаю blabla[k] если blabla не валид то присваивается цифра?а допустим если второй домен будет не blabla а yhoho то работать уже не будет?

[Stilet]

то присваивается цифра?

Куда присваивается?
Тут пример перебора сайтов. Один не отвечает - идем на другой.

[mitiay]

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

Куда присваивается?
Тут пример перебора сайтов. Один не отвечает - идем на другой.

Можно еще ворос?)Вот мне нужно спрятать часть кода(зашифровать)
допустим
edit1.text:='2222';
Чтоб в место такого открытого текста было что то типо
%22%dd%33%
Такое вообще возможно?

[Stilet]

что то типо

А точнее? Перевести в URI строку? Этим, к примеру, занимается функция URLEncode компонента IdURI.
Или о каком шифровании речь?

P.S. Я баиньки, всем гуднайт...

[саша40]

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

Так вот сегодня у моего хостера возникли проблемы и мой хостинг откл.
И сразу при запуске выходит сообщение "socket error 11001" - не возможно подключится к хосту!

Что значит отключили? Если он платный то заплати за него. А вообще можно было бы использовать и бесплатный. А так, это ошибка говорит о том, что твоего хоста просто нет в сети.