Probleme d'utilisation de TWebBrowser avec un fichier html local

Version imprimable

Bonjour

Je voulais utiliser le composant TWebBrowser pour afficher des pages HTML sur mon application. Ces pages sont dans un fichier qui est dans le même répertoire que l’exécutable mais je n'arrive pas à les afficher.
Sur ma fiche j'ai juste un bouton qui quand je clique dessus foit m'afficher la page aide.html
Code:

1 2 3 4 5 procedure TForm2.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('file://aide.html'); end;
Au cas ou le contenu de la page
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html><head><meta content="text/html; charset=ISO-8859-1" http-equiv="content-type"><title>aide</title><style type="text/css"> h1 { border-color: #6600cc; border-width: 1px; opacity: 0.507; background-color: #3366ff; color: #ffcc00; } </style></head><body> <h1>Aide du jeu toto</h1> <h2>Introduction</h2> Toto est un jeu qui consiste à faire des blagues débiles<br> <br> </body></html>
Si je mets une URL du style www.google.com ça fonctionne

Du coup y a t'il une syntaxe particulière pour définir le chemin vers le fichier html?

06/09/2024, 12h16
ShaiLeTroll

ce n'est pas file:/// ?

Et le chemin courant, je ne lui ferait pas confiance, j'utiliserais le chemin complet file:///C:/Dossier/Fichier.ext produit par un ExtractFilePath(Application.ExeName) + ...

file:/// ne fonctionne pas
Par contre j'ai essayé avec le chemin complet et ça marche
Code:

1 2 3 4 5 6 7 8 procedure TForm2.Button1Click(Sender: TObject); var chem: String; begin chem:=ExtractFilePath(Application.ExeName); WebBrowser1.Navigate('file:///'+chem+'aide.html'); end;
Merci

06/09/2024, 14h04
ShaiLeTroll

Tu sais que tu peux utiliser l'afficheur de CHM : Delphi 11] Ajouter un fichier d'aide au programme, regarde la classe TSLTHtmlHelpManager qui utilise HH.exe

Ainsi tu peux mettre un helpfile pour chaque form, la touche F1 affichera la page correspondante automatiquement

Moi, je l'ai conçu pour afficher des fichiers Word, un wiki en HTTP, un vieux CHM au besoin

Il te suffit de modifier HelpEventHandler pour gérer un if StartsText('file:///', CurrentHelpFile) then FindHTMLHelpWindowHandles ... qui ouvrira ton fichier dans le viewer de CHM actif

Oui sauf que ça doit pouvoir tourner sur différents OS et pas sur que le chm fonctionne sur android
Par contre chose amusante ce que j'ai fait ne fonctionne pas en fmx.
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Button1Click(Sender: TObject); var nfic,chem: String; begin chem:=ExtractFilePath(ParamStr(0)); nfic:=chem+'aide.html'; if fileExists(nfic) then WebBrowser1.Navigate('file:///'+nfic); end;
Il me sort l'erreur impossible de trouver le fichier spécifié:aie:
Du coup j'ai ajouté un test sur l'existence du fichier et quand bien même fileExists renvoie true l'erreur persiste:weird:

Alors justement, l'idée c'est d'utiliser le moteur d'aide de Delphi HtmlHelpViewer mais de remplacer le CHM et un fichier HTML (dans mon cas une page wiki, autant que de TForm)
Cela afficher dans le Viewer d'aide HH.Exe pour Windows,
HtmlHelpViewer est strictement VCL !

Mais comme TApplication.HelpFile ni TForm.HelpFile en FMX n'existe pas, je n'ai pas la moindre idée ce qui existe en FMX mais le sujet que j'ai mentionné
Pense à préciser que tu bosses en FMX au début du sujet voire dans le titre préfixé par [FMX], cela ciblera plus rapidement les bonnes questions et réponses

Le TWebBrowser de la VCL doit être différent du TWebBrowser de FMX
Surement des privilèges à prévoir pour accéder aux fichiers !
et ouvrir un fichier local dans le WebBrowser, la syntaxe "file:///" c'est un truc standard ou typique de Windows ?

Sinon, tu peux injecter directement le contenu dans le DOM du Document, suffit de faire un Navigate(about:blank) et de modifier le contenu ... encore une fois, je ne sais le faire qu'avec le DOM Microsoft (voir plus bas)

As-tu pensé à ne pas être dépendant du navigateur de l'OS avec un outil intégré comme https://github.com/digao-dalpiaz/DzHTMLText

Comme, je le disais, afficher le HMTL sans fichier, dans mon cas, c'est du texte en MarkDown qui est utilisé, j'ai un convertisseur MD->HTML et j'affiche le HMTL directement dans une TFormHint (au survol de la souris) ou dans un TForm classique en cas de double-clic.
Code:

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 //------------------------------------------------------------------------------ class procedure TMarkdownViewer.ShowAsHTML(const AContent: string; AShowMDComment: Boolean); var WebBrowser: TWebBrowser; Doc: IHTMLDocument2; Body: PSafeArray; // https://www.developpez.net/forums/d464072/environnements-developpement/delphi/web-reseau/afficher-page-html-delphi/#post2794797 begin WebBrowser := TWebBrowser(FForm.FindComponent('WebBrowser')); if Assigned(WebBrowser) then FreeAndNil(WebBrowser); WebBrowser := TWebBrowser.Create(FForm); TComponent(WebBrowser).Name := 'WebBrowser'; WebBrowser.Navigate('about:blank'); WebBrowser.Align := alClient; WebBrowser.SetParentComponent(FForm); WebBrowser.Offline := True; WebBrowser.OnBeforeNavigate2 := SeizureNavigation; WebBrowser.OnBeforeScriptExecute := SeizureScript; WebBrowser.OnFileDownload := SeizureFileDownload; Body := PSafeArray(TVarData(VarArrayOf([ShapeAsHTML(AContent, AShowMDComment)])).VArray); Doc := WebBrowser.Document as IHTMLDocument2; Doc.Write(Body); end;
C'était si la version simpliste ne fonctionnait pas : FAQ Delphi - Comment afficher une page construite dans son application ?

06/09/2024, 16h22
Gouyon

En fait les 2 m'intéressent (VCL et fmx).

En VCL c'est ça :

Code:

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
uses Vcl.OleCtrls, MSHTML, SHDocVw, ActiveX;
 
TwebBrowserHelper = class helper for TWebBrowser
  procedure Affiche(Html: string);
end;
 
procedure TwebBrowserHelper.Affiche(Html: string);
var
  Doc : HTMLDocument;
  Elem: IHTMLElement;
begin
  Visible := True;
  begin
    if not Assigned(Document) then
    begin
      Navigate('about:blank');
      while ReadyState <> SHDocVw.READYSTATE_COMPLETE do
        Vcl.Forms.Application.ProcessMessages;
    end;
    Doc := Document as HTMLDocument;
    with Doc do
    begin
      Clear;
      write(Html);
      Close;
    end;
    BringToFront;
  end;
end;