уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.
По умолчанию, при использовании WinInet в Delphi, если на странице стоит редирект (возвращается код 301 или 302), то winInet автоматически перенаправляет вас на страницу, указанную в заголовке Location.
Чтобы отлавливать коды 302 и 301 с использованием метода HttpQueryInfo необходимо в вызове HttpOpenRequest использовать флаг INTERNET_FLAG_NO_AUTO_REDIRECT, который останавливает автоматическое перенаправление.
После того, как перенаправление прерывается Вы получаете в ответе сервера код 301 или 302 и можете по своему усмотрению осуществлять или не осуществлять перенаправление пользователя.
уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.