diff --git a/mainApk.pas b/mainApk.pas index b08ebc6..b31899c 100644 --- a/mainApk.pas +++ b/mainApk.pas @@ -785,8 +785,14 @@ begin LSw := TStopwatch.StartNew; LRes := LClient.Fetch(FETag); LSw.Stop; - Log(' HTTP ' + LRes.HttpCode.ToString + ' in ' + - LSw.ElapsedMilliseconds.ToString + ' ms'); + // Un code a zero n'est pas un statut : c'est qu'aucune reponse HTTP + // n'est arrivee. Ecrit tel quel, il se lisait comme un vrai code rendu + // par le serveur, ce qui envoie chercher la cause du mauvais cote. + if LRes.HttpCode > 0 then + Log(' HTTP ' + LRes.HttpCode.ToString + ' in ' + + LSw.ElapsedMilliseconds.ToString + ' ms') + else + Log(' no HTTP reply after ' + LSw.ElapsedMilliseconds.ToString + ' ms'); case LRes.Status of ssNotModified: