Lecture fichier texte sur le net
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:
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
