try IdHTTP Redirects

[xogesapovu]

Доброго дня!
Как сделать что-бы try finally не считали редирект исключительной ситуацией?
т.е.
есть код:

  http := TIdHTTP.Create(nil);
  sslHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    http.IOHandler := sslHandler;
    http.HandleRedirects := False;
    http.Get('https://ya.ru');
.........
  finally
    http.Free;
    sslHandler.Free
  end;

Если ловит редирект, то дальше код выполняться не будет, как решить проблему?

[Alex11223]

Причем тут finally? Он просто выполняет код всегда: и если выпало исключения, и если не выпало а просто дошло до него.

Исключения ловятся в try except

try
...
except
  on ex: MyException do
    ...
  end
end;

[xogesapovu]

Почему тогда код дальше не выполняется если есть редирект? Если выставить HandleRedirects := true то все без проблем работает

[Alex11223]

Потому что там стоит HandleRedirects = false.

[xogesapovu]

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

Потому что там стоит HandleRedirects = false.

Даже если удалить эту строку - результат тот же.

[p51x]

Потому что по умолчанию стоит HandleRedirects = false

[xogesapovu]

Это я понимаю, но как тогда ловить редиректы, но не выполнять по ним переходы и не считать это исключительной ситуацией?

[p51x]

Никак. В Инди редирект кидает исключение. Либо его ловите вы, либо само инди, если указали.

[xogesapovu]

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

Никак. В Инди редирект кидает исключение. Либо его ловите вы, либо само инди, если указали.

т.е. try finally не получится использовать если в запросе будет редирект?

[p51x]

Нет. Надо еще except, о чем вам еще во втором посте сказали.