Lecture fichier texte avec TIdHttp

Bonsoir à tous,

Dans mon appli. D10, je dois lire un petit fichier texte sur le net,généralement, la lecture est très rapide, rarement, le "IdHttp.Get" bloque environ 30 secondes pour rendre la main !!!

Y a t-il un moyen d'éviter ce blocage SVP ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
function Read_File_Texte (URL : String) : String;
var IdHttp : TIdHttp;
begin
     Result := '';  
     IdHttp := TIdHttp.Create(nil);
     IdHttp.ReadTimeout := 500;
     IdHttp.Request.Pragma := 'no-cache';
     try
        try
           IdHttp.Head(URL);
        except
            Exit;
        end;
 
        Try
           Result := IdHttp.Get(URL);
        except
           Exit;
        end;
     finally
        IdHttp.Free;
     end;
end;

Merci de votre aide

Vérifie le ConnectTimeOut
Tu peux aussi mettre cette récupération en Thread pour que le blocage soit moins gênant

Effectivement, jc'est plus prudent de passer par un Thread !!!

Merci pour la réponse !!!