Bonjour à tous,

Le procédure suivante me permet de lire un fichier texte sur le net, la réponse retournée n'est pas toujours actualisée avant qq minutes et plusieurs lecture.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function Get_Page (URL : String) : String;
Var  Http : TIdHttp;
Begin
     Http := TIdHttp.Create (Nil);
     HTTP.ReadTimeout    := 3000;
     HTTP.ConnectTimeout := 4000;
     Try
        Result := HTTP.Get(URL);
     Except
     End;
     Http.Free;
End;
Est-il possible d'obtenir à chaque lecture du fichier le contenu actualisé ???

Merci à tous