Ошибка 21029 при попытке отправить любой запрос с помощью TNetHTTPClient
Помогите, пожалуйста, разобраться в вопросе интернет соединения.
Написал для работы небольшую программку, которая получает информацию с сайта SBIS. Get запрос оправляю используя связку TNetHTTPRequest и TNetHTTPClient. До недавнего времени проблем не было, но компания перешла на какой-то другой вариант мониторинга интернет соединения. Любые запросы на все внешние сайты, кроме корпоративного, возвращают ошибку "Error sending dats (12029)...".
При этом компонент TChromium (CEF4Delphi) работает нормально, сайты открываются. Браузеры тоже работают нормально.
Раньше компания использовала корпоративный Прокси-сервер и TNetHTTPClient нормально отрабатывал запросы. Сейчас в параметрах прокси на работе установлено Автоматическое определение параметров. Отправляя ping 192.168.1.1 ответ приходит с другого IP. В сетях разбираюсь плохо, поэтому не до конца понимаю, почему браузеры и TChromium работают исправно, а TNetHTTPClient отказывается.
Настройки компонентов:
object NetHTTPRequest1: TNetHTTPRequest
Asynchronous = False
ConnectionTimeout = 5000
ResponseTimeout = 5000
Client = NetHTTPClient1
end
object NetHTTPClient1: TNetHTTPClient
Asynchronous = False
ConnectionTimeout = 5000
ResponseTimeout = 5000
HandleRedirects = False
AllowCookies = True
UserAgent =
'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KH' +
'TML, like Gecko) Chrome/83.0.4103.97 Safari/537.36'
end
Запрос отправляю так:
procedure Proced;
var Header: TNameValuePair;
Cookie: TCookie;
i: Integer;
Resp: IHTTPResponse;
begin
with NetHTTPRequest1 do
begin
ContentStream := Nil;
MethodString := 'HEAD';
URL := e_URL.Text;
end;
Resp := NetHTTPRequest1.Execute;
mem_Content.Lines.Text := Resp.ContentAsString;
for Header in Resp.Headers do
mem_Headers.Lines.Add(Header.Name + ': ' + Header.Value);
for Cookie in Resp.Cookies do
mem_Cookies.Lines.Add(Cookie.ToString);
case Resp.Version of
THTTPProtocolVersion.UNKNOWN_HTTP: edt_vHTTP.Text := 'n/a';
THTTPProtocolVersion.HTTP_1_0 : edt_vHTTP.Text := '1.0';
THTTPProtocolVersion.HTTP_1_1 : edt_vHTTP.Text := '1.1';
THTTPProtocolVersion.HTTP_2_0 : edt_vHTTP.Text := '2.0';
end;
e_StatusCode.Text := Resp.StatusCode.ToString;
end;