BlueGEEK Journal

Accueil > Programmes > Delphi > WebBrowser > Afficher une page locale à partir d’un code HTML

DELPHI

Afficher une page locale à partir d’un code HTML

Web

dimanche 11 septembre 2011, par bluegyn_spip

- Par sa propriété navigate, le WebBrowser affiche implicitement une page Web appelée par son URL
- On peut également afficher un fichier local en remplaçant le protocole

HTTP ://

- par le protocole

FILE ://

- Le souci vient, si je veux afficher directement une page de code HTML.


MANIP


- Utiliser le sous-protocole

ABOUT :

WebBrowser.Navigate(’about :’ + CodeHTML, EmptyParam, EmptyParam, EmptyParam, EmptyParam) ;

Exemple :

////////////////////////////////////////////////////////////////////////////////
{ Affiche un Code HTML dans le Browser }
////////////////////////////////////////////////////////////////////////////////
Procedure WebBrowser_DISPLAY ( WebBrowser: TWebBrowser; CodeHTML: string );
Begin

Try

WebBrowser.Navigate('about:' + CodeHTML, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

Except
 On E:Exception Do
 ShowMessage('ERR:JC_WEB|WebBrowser_DISPLAY =>'+E.Message);
 end;

End;

USES


unit jc_WEB;

interface

uses
        ShDocVw {WebBrowser} ,
        variants {EmptyParam},
       SysUtils,
       Dialogs
 ;