timelimit for HTTPMethod
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
DeroB73 · 2019-12-07 20:15

Hello
is it possible to set a time limit for the Synapse HTTPMethod GET
method ?
I am trying a huge list from URLs to see i they are still alive.
TTPMethod('GET','http://123.123.123/index.') works  great as long
status is 200 but for dead links 400 it takes 2 a 3 seconds that's to
long.

Greets

----------------------------------------------------------------------
fjabouley · 2019-12-07 20:33

Try to add HTTP.Sock.ConnectionTimeout




Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Function
Getwithtimeout(URL:string;Default_timeout:integer=1000):string;var
response : Tstringlist;var HTTP : THTTPSend;begin        Result :=
'';  Response := TStringList.Create;      HTTP := THTTPSend.Create; 
HTTP.Timeout := Default_timeout;  HTTP.Sock.ConnectionTimeout :=
Default_timeout;  if HTTP.HTTPMethod('GET', URL) then  begin    if
HTTP.ResultCode <> 200 then    begin    // Error : do some stuff    
end    else    begin      Response.LoadFromStream(HTTP.Document);    
Result := response.Text;    end;      end;  Response.Free;  HTTP.Free;
end; 



or




Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Function
IsCorrectURL(URL:string;Default_timeout:integer=1000):boolean;var
response : Tstringlist;var HTTP : THTTPSend;begin  Result := false;
HTTP := THTTPSend.Create;HTTP.Timeout :=
Default_timeout;HTTP.Sock.ConnectionTimeout := Default_timeout;if
HTTP.HTTPMethod('GET', URL) then if HTTP.ResultCode = 200 then
Result:=true;HTTP.Free;end;

----------------------------------------------------------------------
DeroB73 · 2019-12-08 11:47

thanks fjabouley

it seems i have learn Synapse more in dept.