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 : Sélectionner tout - Visualiser dans une fenêtre à part
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