Discussion :

[koul]

Bonjour à toute et tous,

Je voudrai calculer et mesruer le temps d'une dizaine de website , pour cela j'utilise un memo dont je charge la liste des URL et puis je charge un par un dans un composant TWebBrowser dont j'utilse les functions suisvantes :

WebBrowser1DownloadBegin
WebBrowser1DownloadComplete
WebBrowser1DocumentComplete
WebBrowser1NavigateComplete2


Normalement pour un seul site y a aucun probleme je peux avoir toutes les mesures que je veux en passant par les 4 functions mentionées .
mais dès que je commence à charger plus d'1 site je rencontre de probleme cad que le code charge directement la dernière ligne dans le memo .

Y a t-il qlq'1 qui pourrait me dire ou il est le hic ?

Voici le code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
 
   ListBox1.Items.Add('Download Begin for ' + edit1.Text + ' , ' + WebBrowser1.LocationURL );
  ListBox1.Refresh;
  StatusBar1.SimpleText:='Ouverture de '+ WebBrowser1.LocationName;
end;
 
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
var diff : DWORD ;
begin
  ListBox1.Items.Add('Download Completed for ' + edit1.Text + ' , ' + WebBrowser1.LocationName );
 ListBox1.Refresh;
 StatusBar1.SimpleText:='Terminé';
 
end;
 
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
  var diff : DWORD;
begin
 ListBox1.Items.Add('Document Completed for ' +  WebBrowser1.LocationURL );
 ListBox1.Refresh;
 if (pDisp = CurDispatch) then
  begin
    Beep; {the document is loaded, not just a frame }
    CurDispatch := nil; {clear the global variable }
  end;
end;
 
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var diff : DWORD ;
begin
  ListBox1.Items.Add('Navigate Complete ,'+ '('+ inttostr(diff)+')');
  ListBox1.Refresh;
  if CurDispatch = nil then
    CurDispatch := pDisp; { save for comparison }
 
end;
 
 
procedure TForm1.Button6Click(Sender: TObject);
var i:integer;
begin
  if Memo1.Lines.Count <> 0 then
  begin
    listbox1.Clear;
    for i:=0 to memo.lines.count -1 do
    begin
       edit1.Text := Memo1.Lines.Strings[0] ;
       edit1.Refresh;
       repeat 
               sleep(10);
       until CurDispatch <> nil;
       WebBrowser1.Navigate(Edit1.Text);
    end;
 end
  else Showmessage('Execute what !!!') ;
end;

Merci de votre aide.
koul

[ShaiLeTroll]

Oublie le TWebBrowser pour les calculs de temps, certains évènements ne sont vraiement déclenchés que si le composant a vraiement été affiché ! Donc tu auras le temps de téléchargement+le temps de création des interfaces (dans les deux sens du terme)

prend plutôt un composant Indy genre TIdHTTP !

Sinon dans le Button6Click essaye ce genre de code ... j'ai bricolé ça en 2004, c'est bien foireux, me cela a stabilisé un programme qui se connectait sur un site et parsait les pages pour lancer des requêtes (test de sécurité/robutesse du site sous IE) ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
      AntiBoucle := 0;
      while VarIsEmpty(WebBrowser1.OleObject.Document) and (AntiBoucle < 10000) do begin
         Inc(AntiBoucle);
         if AntiBoucle < 1000 then
            Sleep(1); // Le WebBrowser fonctionne en mode Asynchrone ... 
         Application.ProcessMessages();
      end;
      Antiboucle := 0;
      while VarIsEmpty(WebBrowser1.OleObject.Document.Body) and (AntiBoucle < 10000) do begin
         Inc(AntiBoucle);
         if AntiBoucle < 1000 then
            Sleep(1); // Le WebBrowser fonctionne en mode Asynchrone ...
         Application.ProcessMessages();
      end;

Et faut savoir qu'il fonctionne en mode Asynchrone, tu ferais mieux de créer à la volée un TWebBrowser par site (des onglets par exemple) et de veiller à bien l'afficher même à vide au moins une fois ... et puis sleep(10) c'est peu de temps, 10ms pour charger le site ... c'est court !

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
procedure TFrmShowURL.BtnNewClick(Sender: TObject);
var
   NewPage: TTabSheet;
   NewNet: TWebBrowser;
   NewMemo: TMemo;
   NewSplitter: TSplitter;
 
   Url, Flags, TargetFrameName, PostData, Headers: OleVariant;
   Login, PW: string;
begin
   Login := ComboBoxLogin.Items[ComboBoxLogin.ItemIndex];
   PW := ComboBoxPW.Items[ComboBoxLogin.ItemIndex];
 
   Url := Format(STR_URL_Planetium_Login, [Login, PW]);
 
   NewPage := TTabSheet.Create(PageControlMain);
   NewPage.PageControl := PageControlMain;
   NewPage.Caption := ComboBoxLogin.Items[ComboBoxLogin.ItemIndex];
 
   NewMemo := TMemo.Create(NewPage);
   NewMemo.Parent := NewPage;
   NewMemo.Align := alBottom;
 
   NewSplitter := TSplitter.Create(NewPage);
   NewSplitter.Parent := NewPage;
   NewSplitter.Align := alBottom;
 
   NewNet := TWebBrowser.Create(NewPage);
   NewPage.InsertControl(NewNet); // Parent
   NewNet.Hint := Login;
   NewNet.Visible := True;
   NewNet.Align := alClient;
   NewNet.Tag := Integer(NewMemo);
   // NewNet.BringToFront();
   LabelNavigate.Caption := Login + ' ...';
   NewNet.OnNavigateComplete2 := WebBrowserCommonNavigateComplete2;
   NewNet.OnBeforeNavigate2 := WebBrowserCommonBeforeNavigate2;
   NewNet.OnProgressChange := WebBrowserCommonProgressChange;
   NewNet.OnDocumentComplete := WebBrowserCommonDocumentComplete;
   NewNet.Navigate2(Url, Flags, TargetFrameName, PostData, Headers);
end;