Ouverture d'un fichier html TWebbrowser

**XeGregory** · 03/02/2017, 15h40

Bonjour,

Il y a t'il une méthode pour chargé un fichier dans un "TWebbrowser" sans que sa mouline ?

Exemple pour un fichier html de ~10Mo "TWebbrowser" : Temps de chargement : 28 Secondes , Mozilla Firefox : 5~8 Secondes.

J'ai testé plusieurs méthodes :

1) Chargement directe du code Html dans le "TWebbrowser".

Code :

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

1
2
3
4
5
6
7
8
 
var HtmlDoc: Variant;
{--}
  Webbrowser.Navigate('about:blank');
  HtmlDoc := Webbrowser.Document;
  HtmlDoc.Write(Code html);
  HtmlDoc.Close;
  Webbrowser.Refresh;

2) Créer un fichier temporaire, puis le chargé dans le "TWebbrowser".

Code :

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

WebBrowser.Navigate('file:///Tmp.html');

3) Charger le code source de la page depuis un flux de données (stream)
https://delphi.developpez.com/faq/?p...on-application

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
procedure LoadHTML(AWebBrowser: TWebBrowser; const HTMLCode: string);
var
  ss: TStringStream;
  sa: TStreamAdapter;
begin
  AWebBrowser.Navigate('about:blank');
 
  while AWebBrowser.ReadyState < READYSTATE_INTERACTIVE do
  Application.ProcessMessages;
 
  if Assigned(AWebBrowser.Document) then
  begin
    ss:= TStringStream.Create(HTMLCode);
    try
      sa:= TStreamAdapter.Create(ss);
      (AWebBrowser.Document as IPersistStreamInit).Load(sa);
    finally
      ss.Free;
    end;
  end;
end;

Code :

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

1
2
3
4
5
6
7
8
var
  Fichier: TStringList;
begin
  Fichier:= TStringList.Create;
  Fichier.LoadFromFile('Fichier.html');
  LoadHTML(WebBrowser, Fichier.Text);
  Fichier.Free;
end;

Les 3 méthodes sont identiques sur le temps de chargement.

Merci.

**gbegreg** · 03/02/2017, 16h26

Bonjour,

Tu devrais comparer au temps d'ouverture sous IE plutôt que Firefox car TWebbrowser s'appuie sur IE...

Tu peux modifier la version d'Internet Explorer à utiliser (par défaut, TWebbrowser utilise le mode émulation IE 7). Pour modifier le mode d'émulation, tu peux regarder la discussion suivante :https://www.developpez.net/forums/d1...nt-webbrowser/

J'avais mis un bout de code qui permet de modifier le mode d'émulation d'IE pour TWebbrowser (de IE 7 à IE 11).