[Delphi2006] [TidHTTP] Attendre un peu avant de copier le code source
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 :
Code:
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; |
D'avance merci pour votre aide. :D
xenos
