FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
procedure TMyForm.MyButtonClick(Sender: TObject); 
var 
  Flags, TargetFrameName, PostData, Headers: OleVariant; 
  sHTML: String; 
begin 
  sHTML := { votre code HTML }; 
  MyWebBrowser.Navigate('about:' + sHTML, Flags, TargetFrameName, PostData,  
Headers); 
end;

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
uses 
  Classes, Forms, ShDocVw, 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;

1
2
3
4
5
{Pour récupérer le contenu du body dans un TMemo : } 
MyMemo.Text := MyWebBrowser.OleObject.Document.Body.InnerHTML; 
  
{Pour récupérer le texte du document dans un TMemo : } 
MyMemo.Text := MyWebBrowser.OleObject.Document.Body.InnerText;

webbrowser1.ExecWB(OLECMDID_SAVEAS , OLECMDEXECOPT_DODEFAULT);

1
2
3
4
5
6
var 
  i : Integer; 
begin 
  for i:=0 to MyWebbrowser.OleObject.Document.Links.Length-1 do 
    MyMemo.Lines.Add(MyWebbrowser.OleObject.Document.Links.Item(i)); 
end;

Webbrowser1.OleObject.Document.Images.Length

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TIexplore.ToolButton5Click(Sender: TObject); 
var 
  i: Word; 
  Largeur, Hauteur: Integer; 
  Infobulle, Poids, URLImage: string; 
begin 
  for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do 
  begin 
    Largeur := WebBrowser1.OleObject.Document.Images.Item(i).Width; 
    Hauteur := WebBrowser1.OleObject.Document.Images.Item(i).Height; 
    Poids := WebBrowser1.OleObject.Document.Images.Item(i).FileSize; 
    URLImage := WebBrowser1.OleObject.Document.Images.Item(i).Href; 
    Infobulle := WebBrowser1.OleObject.Document.Images.Item(i).alt; 
    ListBox1.Items.Add(Format('%s : %d x %d Pixels; %s octets; %s', 
      [URLImage, Largeur, Hauteur, poids, InfoBulle])); 
  end; 
end;

1
2
3
4
5
var 
  nombreframes: integer; 
begin 
  nombreframes := MyWebBrowser.OleObject.Document.Frames.Length; 
end;

Webbrowser1.ExecWB(OLECMDID_PAGESETUP , OLECMDEXECOPT_DODEFAULT);

1
2
3
4
5
var 
  vaIn, vaOut: OleVariant; 
begin 
  MyWebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure PrintIE; 
var 
  CmdTarget : IOleCommandTarget; 
  vaIn, vaOut: OleVariant; 
begin 
  if MyWebBrowser.Document <> nil then 
  try 
    MyWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget); 
    if CmdTarget <> nil then 
    try 
      CmdTarget.Exec( PGuid(nil), OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut); 
    finally 
      CmdTarget.Release; 
    end; 
  except 
    {Rien } 
  end; 
end;

1
2
3
4
procedure TMyForm.MyWebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); 
begin 
  Cancel := True; 
end;

1
2
3
4
5
6
7
{Pour cacher les scrollbars : } 
MyWebBrowser.OleObject.Document.Body.Style.OverflowX := 'hidden'; 
MyWebBrowser.OleObject.Document.Body.Style.OverflowY := 'hidden'; 
  
{Pour réafficher les scroolbars : } 
MyWebBrowser.OleObject.Document.Body.Style.OverflowX := ''; 
MyWebBrowser.OleObject.Document.Body.Style.OverflowY := '';

1
2
3
4
5
// Sélectionner tout 
webbrowser1.ExecWB(OLECMDID_SELECTALL , OLECMDEXECOPT_DODEFAULT); 
  
// Copier 
Webbrowser1.ExecWB(OLECMDID_COPY , OLECMDEXECOPT_DODEFAULT);

Webbrowser1.ExecWB(OLECMDID_PROPERTIES , OLECMDEXECOPT_DODEFAULT);

1
2
3
4
5
procedure RecupererContenu1(CurrentWB: TWebBrowser; var Code: String); 
begin 
     // recuperation du code entier 
     Code := (CurrentWB.Document as IHTMLDocument3).documentElement.outerhtml; 
end;

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
33
34
35
36
37
38
39
function RecupererContenu2(WB: TWebBrowser): String; 
var 
  PersistStream: IPersistStreamInit; 
  Stream: IStream; 
  StrStream: TStringStream; 
begin 
  // S'il n'y a pas de document assigné pour le TWebBrowser 
  if not Assigned(WB.Document) then 
  begin 
    Result := ''; 
    Exit; 
  end; 
  
  // TWebBrowser.Document implémente les fonctionnalités de l'interface 
  // IPersitStream. On en demande l'accès ici. 
  PersistStream := WB.Document as IPersistStreamInit; 
  
  // Création d'un flux de caractères (vide au départ) 
  StrStream := TStringStream.Create(''); 
  try 
    // On crée une instance de TStreamAdapter en demandant les 
    // fonctionnalités de l'interface IStream. Ce sera notre "pont" entre 
    // le stream de caractères et le document HTML. 
    Stream := TStreamAdapter.Create(StrStream, soReference) 
              as IStream; 
    // Essai de sauvegarde du document dans le stream qui vient d'être créé 
    if Failed(PersistStream.Save(Stream, True)) then 
      Result := '' 
    else 
    begin 
      // Si ça s'est bien passé, on remet le stream de caractères au début 
      StrStream.Position := 0; 
      // Et on renvoie ce qu'il contient 
      Result := StrStream.Read(StrStream.Size); 
    end; 
  finally 
    StrStream.Free; 
  end; 
end;

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Memo1.Lines.Text := RecupererContenu(WebBrowser1); 
end;

1
2
3
4
procedure TWebBrowserHelper.ActiveEdition(Activer: Boolean);
begin
  (Document as IHTMLDocument2).designMode := IfThen(Activer, 'on', 'off');
end;

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
procedure TWebBrowserHelper.SetSelectionGras;
var
  elemstrong : IHTMLElement;
  styl : IHTMLStyle;
  Sel  : IHTMLSelectionObject;
  range: IHTMLTxtRange;
  Doc  : IHTMLDocument2;
begin

  Doc := (Document as IHTMLDocument2);
  Sel := Doc.selection;
  if Assigned(Sel) then
  begin
    if (Sel.type_ = 'Text') then
    begin
      range := Sel.createRange as IHTMLTxtRange;

      elemstrong := Doc.createElement('strong');
      elemstrong.style.fontWeight := 'bold';
      elemstrong.innerText := Range.text;

      Sel.clear;
      range.pasteHTML(elemstrong.outerHTML);
    end;
  end;

end;