diff --git a/delphi-backend/UMainForm.pas b/delphi-backend/UMainForm.pas index bf3e482..85cb238 100644 --- a/delphi-backend/UMainForm.pas +++ b/delphi-backend/UMainForm.pas @@ -1687,6 +1687,15 @@ begin LErr: string; LEtag: string; begin + // TROIS ESSAIS, ATTENTE DE CONNEXION COURTE. GitHub publie plusieurs + // adresses et l'une d'elles, 140.82.121.5, n'est joignable depuis ce + // reseau ni par l'application ni par un navigateur - verifie des deux + // cotes. Un navigateur passe aussitot a la suivante ; nous attendions + // le delai entier puis abandonnions. Seul un status 0 - la requete n'a + // pas abouti - fait recommencer : un 404 ou un 409 sont des reponses. + LStatus := 0; + for var LTry := 1 to 3 do + begin LStatus := 0; LBodyB64 := ''; LErr := ''; @@ -1694,7 +1703,7 @@ begin try LHttp := System.Net.HttpClient.THTTPClient.Create; try - LHttp.ConnectionTimeout := 10000; + LHttp.ConnectionTimeout := 8000; // voir la boucle ci-dessus LHttp.ResponseTimeout := 30000; // GitHub REFUSE toute requete sans User-Agent (403) ; Gitea l'ignore. LHttp.UserAgent := 'PMServer'; @@ -1779,6 +1788,8 @@ begin LErr := E.Message; end; end; + if LStatus <> 0 then Break; + end; TThread.Queue(nil, procedure var