Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=393199&view=findpost&p=3512407 Tue, 12 Aug 2014 19:52:47 +0000 get запрос https://forum.sources.ru/index.php?showtopic=393199&view=findpost&p=3512407
    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;



http://screenshot.ru/b9d7f33f169c15e4c658e668ce4bab93
Это если на первом хосте нет 1.txt
По идее должно быть так если на первом нет key.txt или он вообще молчит то конектимся ко второму]]> mitiay Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=393199&view=findpost&p=3512269 Tue, 12 Aug 2014 14:50:08 +0000 get запрос https://forum.sources.ru/index.php?showtopic=393199&view=findpost&p=3512269 вот такое вариант при любой ошибке возникшей при sl.Text:= idhttp1.Get('http://blabla/1.txt');'); выполнит sl.Text:= idhttp1.Get('http://blabla2/1.txt');');
    try
     sl.Text:= idhttp1.Get('http://blabla/1.txt');');
    except  
     sl.Text:= idhttp1.Get('http://blabla2/1.txt');');
    end;


При этом рекомендуется возникшую ошибку все же записать в лог
Пример работы с этой конструкцией в справке очень подробный и понятный]]> Павел Калугин Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=393199&view=findpost&p=3512267 Tue, 12 Aug 2014 14:34:48 +0000 get запрос https://forum.sources.ru/index.php?showtopic=393199&view=findpost&p=3512267 Код:

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"]]> mitiay Delphi: Сетевое программирование