ошибки http

[Chuda]

очередной глупый вопрос от незнайки.
Задача всё та же: забрать страничку с сервера, дабы выполнить над ней некоторые действия.

Код:

String ipd = IdHTTP1->Get("http://servername.foo");

работает просто замечательно, пока сервер отвечает 200, и пока доступ в Интернет хороший.
Как только нет соединения, или сервер отвечает что-то типа 301, программа напрочь отказывается компилироваться.
Обработка исключений не помогает. Или я что-то не так делаю?

Код:

try {
String ipd = IdHTTP1->Get("http://servername.foo");
} catch(...) {
Memo1->Lines->Add("Sorry");
}

Как вот обработать ошибку?

[zubr]

Шильгия, причем здесь компиляция? Компиляция программы от качества соединения никаким образом не может зависеть. Предполагаю, что у тебя выскакивает исключение IDE BCB. То есть исключение в блоке try..catch обрабатывается, но в настройках среды не отключена функция дебагера "Останавливать при исключениях", поэтому если ты программу запускаешь из отладки (из IDE) то и выскакивает exception.

[Chuda]

zubr, я может что-то в специфике не понимаю.
Обычно этим не занимаюсь.
Вот как это выглядит:

Если нажать «Continue», то сообщение уходит… и более ничего. Всё остальное остаётся в таком же виде, как на скриншоте.

[zubr]

А в Memo1 текст "Sorry" появляется?
В меню BCB Tools->Options->Debagger Options->Codegear Debaggers->Language Exceptions сними галочку в чекбоксе "Notify on language exception"

[Джон]

Если мне не отшибло память, то редирект надо чуть посложней программить - получать ответ, вытаскивать новый URL и тд. Простыми http-запросами не обойтись. В VC++ конечно, как это там у Борланда не могу знать.

[zubr]

Джон, здесь все в компонент TIdHTTP зашито.

[Джон]

Я так и думал.

[Chuda]

zubr, а как зашито?
когда редирект, приходит ответ 302.
TIdHTTP выпадает в exception. И там уже можно получить  новый адрес из компонента:

Код:

	try {
		FormB->IdHTTP1->Post("http://" + ServerName + "/login.php", pp);
		try {
			ipd = FormB->IdHTTP1->Get("http://" + ServerName + "/" + FormB->IdHTTP1->Response->Location);
		} catch (...) {
			FormB->MemoDebug->Lines->Add(String(FormB->IdHTTP1->ResponseCode));
		}
	} catch (...) {
		FormB->MemoDebug->Lines->Add("Sorry…");
	}

или как-то можно проще?

[zubr]

1. Исходники на IdHTTP смотри в модуле IdHTTP.pas (вроде в билдере лежат паскальные исходники).
2. Самое интересное находится в методе TIdCustomHTTP.DoRequest, TIdHTTPProtocol.ProcessResponse. Собственно в твоем случае exception возникает именно в методе ProcessResponse.
3. Установи в True свойство HandleRedirects, ну и свойство RedirectMax должно быть не меньше редиректов. Вот что пишет Борландский хелп по поводу HandleRedirects:

TIdHTTP.HandleRedirects

Indicates if the HTTP client can handle redirections to an alternate resource location.
property HandleRedirects: Boolean;

Description

HandleRedirects is a published Boolean property in TIdHTTP, and indicates if the HTTP client should handle redirects in a response from the HTTP server. Redirects are indicated by the HTTP Response having a ResponseCode in the range 300 to 307, and requires further action needs by the HTTP Client to fulfill the request.
Redirection ResponseCodes include the following:

300 - Multiple Choices. The request can be fulfilled with one of a set of resources, each with its own specific location. The HTTP client can select a preferred representation and redirect its request to that location.
   301 - Moved Permanently. The requested resource has been assigned a new permanent URI and any future references to this resource should use the new location specified in the Response.
   302 - Found. The requested resource resides temporarily under a different URI. Since the redirection might be altered on occasion, the client should continue to use the URI in the Request for future requests.

304 - Not Modified. If the client has performed a conditional GET request and access is allowed, but the document has not been modified, the server should respond with this status code. The 304 response should not contain a message body, and is always terminated by the first empty line after the header fields, and must include a Date header.
   305 - Use Proxy. The requested resource must be accessed through the proxy given by the Location header in the HTTP Response containing the URI of the Proxy.

307 - Temporary Redirect. The requested resource resides temporarily under a different URI. Since the redirection may be altered on occasion, the HTTP client should continue to use the URI in the RequestI for future requests.

HandleRedirects is used with RedirectMaximum in DoRequest to detect and prevent infinite redirection loops, by limiting the number of active redirections for the client to the value specified in RedirectMaximum.

When HandleRedirects is True, the HTTP Client will trigger the OnRedirect event handler to determine if the client can accept the redirection location found in an HTTP response. When accepted, the redirect causes a new HTTP request with the new location to be issued to fulfill the original request.

When HandleRedirects is False, the OnRedirect event handler will be triggered, and an EIdProtocolReplyError exception will be raised when the redirect cannot be handled by the HTTP client.

The default value for HandleRedirects is Id_TIdHTTP_HandleRedirects, as assigned in the Create constuctor.

[Chuda]

О как!
zubr, спасибо!
Это должно по идее код сократить вдвое.
Но тогда вот что беспокоит:
вообще пишется бот для онлайн-игры. Сервер у этой игры глюковат, и очень часто (реально часто, может раз минут в двадцать) вместо нормальных 200 или 302 выдаются ответы типа 500, 503, 504.
В случае с редиректом фактически два запроса: первый по начальному адресу (программа получает ответ 302 или 5хх: try-catch, и в цикле, пока не получим нормальный 302 с полем location в заголовках), а второй — это уже по реальному адресу, который указан в переадресации. По второму адресу тоже может прибыть ответ 200, а может и 500-503-504 (глюк).
Я сейчас обрабатываю оба ответа, добиваю сервер, пока он мне не ответит 302 и 200. Делает ли то же самое IdHTTP сам?

[zubr]

Все основные действия по HTTP-протоколу происходят в методе TIdHTTPProtocol.ProcessResponse. Там обрабатываются коды ошибок: 304, 401, 407, 204.
Для решения твоей задачи, можно пойти 2-мя путями:
1. Создать наследуемые классы от TIdCustomHTTP, TIdHTTPProtocol и в них переопределить методы DoRequest, ProcessResponse. Вариант сложноватый, но имеет смысл, если подобные программы с той же логикой придется писать и в дальнейшем.
2. Обрабатывать ошибки как у тебя сейчас в блоке catch. Только я бы сделал это рекурсивно и в отдельном потоке. Количество рекурсий можно ограничить какой нибудь переменной. То есть, чтобы в блоке catch вызывалась бы сама функция, тогда и код не будет громоздкий и число ошибочных запросов можно будет сделать достаточно большим.