Détections avec WebBrowser

**Wazo_Sportive** · 11/08/2002, 02h23

Bonjour à vous,

Voilà, je me demande comment le programme detecte si la page a étè modifié??? Et comment voir l'adresse Internet??? Avec le composant TWebBrowser.

Merci de me fournir les exemples de codes ou information.

Cordialement

Wazo

**Ctrl+F2** · 11/08/2002, 03h32

Tout dépendant des cas et de la manière dont tu veux les traiter,
tu peux utiliser les événements suivants et leur paramètre URL:

OnBeforeNavigate2
OnNavigateComplete2
OnDocumentComplete

Évidemment, je te conseille très fortement de jeter un coup d'oeil
à l'ensemble des rubriques d'aide portant sur le TWebBrowser.
Tout y est et, quel bonheur, si joliment expliqué.
Si des questions subsistent, n'hésite pas.

**Wazo_Sportive** · 11/08/2002, 13h23

Merci, mais comment prendre l'adresse internet???? ex: http://www.essai.com/cgi/index.php?i=123

Wazo

**Ctrl+F2** · 11/08/2002, 18h13

Si tu as un Edit dans lequel tu veux inscrire l'adresse de la page courante,
tu utilises l'événement approprié pour détecter le changement de page,
tu récupères son paramètre URL (qui te donne l'adresse),
tu l'affectes à la propriété Text du Edit.

Code :

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

1
2
3
4
5
6
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
    Edit1.Text := URL;
end;

ou

Code :

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

1
2
3
4
5
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
    Edit2.Text := URL;
end;

ou

Code :

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

1
2
3
4
5
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
    Edit3.Text := URL;
end;