Trucs et astuces du TWebBrowser

Delphi vous permet de créer facilement un navigateur personnalisé à partir de l'applet d'Internet Explorer. Commencez par ajouter le composant TWebBrowser de l'onglet Internet. Après avoir installé le composant sur la fiche, vous devrez implémenter les fonctions de base du navigateur qui permettront à l'utilisateur d'ouvrir une page, de revenir à la page précédente ou passer à la page suivante...

Vous trouverez le composant dans l'onglet Internet.

Vous trouverez également sur cette fiche les codes des fonctions plus avancées telles que l'impression, l'enregistrement d'une page, voir sa source HTML, copier/coller dans la page...

Fonctions de base du navigateur

// Ouvrir une page dans le composant
try WebBrowser1.Navigate('http://www.conseil-creation.com/index.php',
    EmptyParam,EmptyParam,EmptyParam,EmptyParam); except end;

try WebBrowser1.GoBack except end;    // afficher la page précédente
try WebBrowser1.GoForward except end; // afficher la page suivante
// Astuce : activer / désactiver le bouton en fonction de l'historique

try WebBrowser1.Stop except end;      // Stopper le chargement de la page
try WebBrowser1.Refresh except end;   // Recharger la page
try WebBrowser1.GoHome except end;    // afficher la page d'accueil
try WebBrowser1.GoSearch except end;  // pour faire une recherche sur le Web

Notez qu'il y a certaines astuces à connaître pour ce composant. Il y a par exemple du code à ajouter à vos programmes pour que le TWebBrowser accepte la touche entrée, ou pour l'utilisation des combinaisons de touches pour couper, copier et coller... voir toutes les astuces ci-dessous.

Astuces pour le composant TWebBrowser

// Modifier les marges du document chargé
WebBrowser.OleObject.Document.Body.TopMargin := 0;
WebBrowser.OleObject.Document.Body.LeftMargin := 0;

// Empêcher l'affichage des scrollbar dans le composant TWebBrowser
WebBrowser.OleObject.Document.Body.Style.OverflowX := 'hidden';
WebBrowser.OleObject.Document.Body.Style.OverflowY := 'hidden';

// Récupérer le code html de la page en cours
Memo1.Text := WebBrowser1.OleObject.Document.body.innerHTML

// Récupérer tout le texte de la page en cours
Memo1.Text := WebBrowser1.OleObject.Document.body.innerText

// Récupérer tous les liens de la page en cours
try For i:=0 to Webbrowser1.OleObject.Document.links.length-1 Do Begin
  RichEdit1.lines.add(Webbrowser1.OleObject.Document.links.item(i));
end; Except end;

// Ecrire dans le composant (créer une page avec Delphi)
CodeHTML := '<p>&nbsp;</p><p align="center"><b>Votre page HTML</b></p>';
WebBrowser1.Navigate('about:' + CodeHTML, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam);

Des questions ? Rejoignez nous sur le forum...