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.
Est-il possible d'obtenir à chaque lecture du fichier le contenu actualisé ???
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;
Merci à tous
Partager