Function LoadMemoryFromInet2( f:TMemoryStream; const url:string; var e:string ):Boolean; var

Question

Function LoadMemoryFromInet2( f:TMemoryStream; const url:string; var e:string ):Boolean; var

http:TIdHttp;
LHandler: TIdSSLIOHandlerSocketOpenSSL;begin
Result := false; http := nil;
try http := TIdHttp.Create( nil );
LHandler := TIdSSLIOHandlerSocketOpenSSL.Create( nil ); //LHandler.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1];
//LHandler.SSLOptions.Mode := sslmClient; LHandler.SSLOptions.Method := sslvTLSv1;
//http.Request.AcceptEncoding //http.Request.UseProxy := ctSSL;
//http.Request. //http.Request.Referer := '';
http.Request.BasicAuthentication := False; http.Request.AcceptEncoding := 'gzip, deflate, br';
http.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36'; http.IOHandler := LHandler;
http.Get( url, f ); except
on ex:Exception do
begin
e := ex.Message; Result := true;
end; end;
http.Free; LHandler.Free;
end; коннекшон таймаут. Куда копать? Или как получить более адекватную ошибку? Без http.IOHandler := LHandler ошибку IOHandler возвращало

#lazarus #programming #russian

0

сегодня 09:52

1 ответов

3 просмотра

Hemul GM · Accepted Answer

Hemul GM

Эм, а что connection timeout не адекватная ошибка?

0

2 часа назад

169 похожих чатов

Function LoadMemoryFromInet2( f:TMemoryStream; const url:string; var e:string ):Boolean; var

1 ответов

Похожие вопросы