Limite du WebBrowser.Navigate avec un About: [FAQ]

**Bill14** · 28/03/2005, 17h12

Salut

Tout est dans le titre

Quand je fait

Code :

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

WebBrowser1.navigate('about:' + IciUnCodeHtmlAssezLong');

J'ai une erreur, le webbrowser ne veut pas afficher ma page

Par contre si le texte html n'est pas trop long c'est ok

Code :

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

WebBrowser1.navigate('about:<html><center><b><h2>Hello ça va bien ?</h2></b></center></html>);

Comment puis je faire svp ?

**sjrd** · 28/03/2005, 17h43

Je pense que la taille d'une URL est limitée à 255 caractère, mais sans garantie.
Tu ferais beaucoup mieux de créer un petit fichier .html.

**Bill14** · 28/03/2005, 19h15

j'y avais pensé mais je voulais savoir s'il n'y as pas une façon plus "propre"

**Pierre Castelain** · 29/03/2005, 08h05

Tu peux utiliser l'interface IPersistStreamInit comme indiqué ici : http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/tutorials/webocstream.asp

**Bill14** · 30/03/2005, 05h43

Merci pour ta réponse,

Mis pourrais tu me dire comment utiliser cette methode stp

**Pierre Castelain** · 30/03/2005, 08h12

Comme ç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
30
31
32
 
uses
  ActiveX;
 
procedure LoadHTML(AWebBrowser: TWebBrowser; const HTMLCode: string);
var
  ss: TStringStream;
  sa: TStreamAdapter;
begin
  // Il est nécessaire de réinitialiser la page avec un appel à Navigate
  AWebBrowser.Navigate('about:blank');
 
  // Il faut attendre que le navigateur soit prêt
  while AWebBrowser.ReadyState < READYSTATE_INTERACTIVE do
   Application.ProcessMessages;
 
  if Assigned(AWebBrowser.Document) then
  begin
    // On crée un flux
    ss:= TStringStream.Create(HTMLCode);
    try
      // et un adaptateur IStream
      sa:= TStreamAdapter.Create(ss); // Ne pas libérer
 
      // On appelle la méthode de chargement du WebBrowser
      (AWebBrowser.Document as IPersistStreamInit).Load(sa);
    finally
      // On libère le flux
      ss.Free;
    end;
  end;
end;

**Bill14** · 30/03/2005, 12h41

nickel merci

Limite du WebBrowser.Navigate avec un About: [FAQ]

Composants VCL Delphi

Discussions similaires

Partager

Partager