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 : 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;
D'avance merci pour votre aide.



xenos