fix(sync): le poste aussi abandonne vite une adresse morte, et reessaie
140.82.121.5 est une adresse de GitHub injoignable depuis ce reseau - verifie par l'application ET par un navigateur, sur deux appareils. Un navigateur passe a la suivante aussitot ; le poste attendait dix secondes puis abandonnait. Huit secondes pour la poignee de main et trois essais, mais seulement quand la requete n'a pas abouti : un 404 ou un 409 sont des reponses, pas des echecs. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user