Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=271031&view=findpost&p=2252092 Sat, 25 Apr 2009 13:10:49 +0000 Обработка исключения при работе с idHTTP https://forum.sources.ru/index.php?showtopic=271031&view=findpost&p=2252092 Цитата Navern @
Так вот вопрос: каким образом при исключении выполнить блок "try" с самого начала?

А если заключить обработку запроса в блок while??? :D]]> medved_68 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=271031&view=findpost&p=2252057 Sat, 25 Apr 2009 11:45:18 +0000 Обработка исключения при работе с idHTTP https://forum.sources.ru/index.php?showtopic=271031&view=findpost&p=2252057 Navern Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=271031&view=findpost&p=2252043 Sat, 25 Apr 2009 11:24:05 +0000 Обработка исключения при работе с idHTTP https://forum.sources.ru/index.php?showtopic=271031&view=findpost&p=2252043
      try
        GET.Get('http://<ресурс>.ru/forum/index.php?action=login2&user='+login+'&passwrd='+password);
      except
        on E : Exception do begin
          if pos('302 Found', E.Message) <> 0 then
            Synchronize(Progress)
          else
            ...; // вот здесь - что?
        end;

При запросе Get в ответе от сервера может прийти либо код 200 (ошибка на экране не показывается, значит пропускаем), либо вызваться одно из следущих исключений:
- 302 - это значит, что сработал редирект. Это означает, что пару логин-пароль нужно поместить в листбокс.
- 503 - сервис временно недоступен. Значит, нужно вернуться ещё раз к блоку "try".
- -1 - неизвестно что. Тоже надо вернуться.
- может вообще прийти пустой ответ. И тоже это означает, что необходимо вернуться.
И так надо возвращаться назад до тех пор, пока в ответе от сервера не будут присутствовать либо 302 (и обработать), либо 200 (вообще пропустить).

Так вот вопрос: каким образом при исключении выполнить блок "try" с самого начала? Goto не работает в этом блоке.]]> Navern Delphi: Сетевое программирование