делаю гет запрос на свой же сервер для тестирования.
| Код |
IdHTTP := TIdHTTP.Create();
IdHTTP.ReadTimeout := 1000;
IdHTTP.ConnectTimeout := 1000;
IdHTTP.HandleRedirects := true;
IdHTTP.AllowCookies := false;
IdHTTP.Request.AcceptEncoding := 'gzip, deflate';
IdHTTP.Request.AcceptLanguage := 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';
IdHTTP.Request.Pragma := 'no-cache';
IdHTTP.Request.CacheControl := 'no-cache';
try
IdHTTP.get('http://server/api/503.php');
except
on E: EIdHTTPProtocolException do
showmessage(E.ErrorMessage);
on E: Exception do
showmessage(E.Message);
end;
|
на сервере код
| Код |
<?php
header("HTTP/1.1 503 Service Temporarily Unavailable");
echo <<<HTML
<html>
<head>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache" charset=UTF-8">
<title> Внутренняя ошибка сервера. </title>
</head>
<body>
</body>
</html>
HTML;
|
делфи зависает наглухо на строчке 11
| Код |
IdHTTP.get('http://server/api/503.php');
|
а если убрать
| Код |
<META HTTP-EQUIV="Pragma" CONTENT="no-cache" charset=UTF-8">
|
всё становиться нормально - выдает ошибку, которую я успешно обрабатываю.
|
)