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;
|
LErr: string;
|
||||||
LEtag: string;
|
LEtag: string;
|
||||||
begin
|
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;
|
LStatus := 0;
|
||||||
LBodyB64 := '';
|
LBodyB64 := '';
|
||||||
LErr := '';
|
LErr := '';
|
||||||
@@ -1694,7 +1703,7 @@ begin
|
|||||||
try
|
try
|
||||||
LHttp := System.Net.HttpClient.THTTPClient.Create;
|
LHttp := System.Net.HttpClient.THTTPClient.Create;
|
||||||
try
|
try
|
||||||
LHttp.ConnectionTimeout := 10000;
|
LHttp.ConnectionTimeout := 8000; // voir la boucle ci-dessus
|
||||||
LHttp.ResponseTimeout := 30000;
|
LHttp.ResponseTimeout := 30000;
|
||||||
// GitHub REFUSE toute requete sans User-Agent (403) ; Gitea l'ignore.
|
// GitHub REFUSE toute requete sans User-Agent (403) ; Gitea l'ignore.
|
||||||
LHttp.UserAgent := 'PMServer';
|
LHttp.UserAgent := 'PMServer';
|
||||||
@@ -1779,6 +1788,8 @@ begin
|
|||||||
LErr := E.Message;
|
LErr := E.Message;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
if LStatus <> 0 then Break;
|
||||||
|
end;
|
||||||
TThread.Queue(nil,
|
TThread.Queue(nil,
|
||||||
procedure
|
procedure
|
||||||
var
|
var
|
||||||
|
|||||||
Reference in New Issue
Block a user