Détections avec WebBrowser

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

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:

1. OnBeforeNavigate2
2. OnNavigateComplete2
3. 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. :wink:

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

Wazo

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:

---

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:

---

1 2 3 4 5

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

---

ou

Code:

---

1 2 3 4 5

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

---

ou... F1 (Pour des cas particuliers)

Pour naviguer vers l'adresse indiquée dans un Edit,

Code:

---

WebBrowser1.Navigate(Edit1.Text);

---

Merci pour les info.

Cordialement

Wazo