Probleme d'utilisation de TWebBrowser avec un fichier html local

**Gouyon** · 06/09/2024, 11h48

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 :

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

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 :

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

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 &agrave; faire des blagues d&eacute;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?

**ShaiLeTroll** · 06/09/2024, 12h16

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) + ...

**Gouyon** · 06/09/2024, 12h27

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

Code :

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

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

**ShaiLeTroll** · 06/09/2024, 14h04

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

**Gouyon** · 06/09/2024, 14h21

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 :

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

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é

Du coup j'ai ajouté un test sur l'existence du fichier et quand bien même fileExists renvoie true l'erreur persiste

**ShaiLeTroll** · 06/09/2024, 15h14

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 :

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

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 ?

**Gouyon** · 06/09/2024, 16h22

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

**Papy214** · 06/09/2024, 17h58

En VCL c'est ça :

Code :

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

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;

Probleme d'utilisation de TWebBrowser avec un fichier html local

Delphi

Discussions similaires

Partager

Partager