From 22c418f933b99decc015e5cf3a16026e7049d6f7 Mon Sep 17 00:00:00 2001 From: r-zakarya <82443831+r-zakarya@users.noreply.github.com> Date: Sat, 26 Sep 2026 18:50:46 +0100 Subject: [PATCH] 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 --- delphi-backend/UMainForm.pas | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) 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