Bonjour,
J'aimerais enregistrer le code source d'une page internet via un TidHTTP. Le problème est qu'il y a du JavaScript sur la page et qu'il lui faut quelques secondes pour générer les informations.
L'idéal serait de charger la page, attendre 5 secondes et ensuite copier le code source. Cependant je ne vois pas comment faire ça avec un TidHTTP.
En lançant le code suivant, il me renvoi évidemment une erreur, cependant je ne vois pas comment faire pour obtenir ce dont j'ai besoin :
D'avance merci pour votre aide.
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 procedure TForm1.Button1Click(Sender: TObject); var temps : Cardinal; test : TSTringlist; begin test := TStringlist.Create; test.Add(idHTTP1.Get('http://www.google.be'); temps := GetTickCount; repeat sleep(10); until ((GetTickCount - 5000) > temps); test.Add(idHTTP1); memo_texte.Text := test.Text; end;
xenos
Partager