[TWebbrowser] Probléme pour récupérer la source [FAQ]

**Gauth** · 08/04/2005, 21h24

salut à tous
j'utilise:

Code :

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

MyMemo.Text := MyWebBrowser.OleObject.Document.Body.InnerHTML;

pour recuperer la source, cependant cela ne recuprer que la source du <body>, j'ai testé:

Code :

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

1
2
 
MyMemo.Text := MyWebBrowser.OleObject.Document.HTML.InnerHTML;

mais cela ne marche pas .
Comment recuperer le code source entier et non pas selement le <body> ?
merci d'avance

**Bestiol** · 08/04/2005, 22h58

salut !

J'avais trouvé la réponse à cette question sur delphi.about.com.
Il y a une histoire de stream à utiliser, avec une interface etc.

Dès que je retrouve le lien je te le fais savoir.

[edit : voici le lien, jette un oeil à la fonction WB_SaveAs_HTML il y a tout ce qu'il faut !
http://delphi.about.com/od/internetintranet/l/aa062904a.htm ]

**Gauth** · 08/04/2005, 23h07

merci, mais comment faire pour recuperer le code source pour qu'ensuite le code source soit traité avec des regex? de plus j'ai trouvé des regex en delphi avec
Borland.Vcl.Types,
System.Text, // StringBuilder
System.Text.RegularExpressions; // RegEx
mais sa ne marche pas

je suis sous delphi 7
il trouve pas les deux .dcu

**Bestiol** · 08/04/2005, 23h26

Ah je vois qu etu viens d'ajouter des infos lol !

Sans trop m'avancer, vu la manière dont tu donnes les noms "d'unités", ça doit être du .NET non ?
Si quelqu'un qui connait .NET pouvait confirmer ?

En tout cas sous Delphi7, il n'y a rien de natif pour utiliser des expressions régulières.
Cherche sur google une unité qui te permette d'en avoir le support. Eventuellement va voir ici :
http://sjrd.developpez.com
Il me semble que dans une de ses unités, SJRD a de quoi utiliser les expressions régulières.

Sinon pour récupérer le code source de ta page, fais comme suit :

Tu commences par utiliser le code vers lequel je t'ai donné un lien :

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
uses ActiveX;
...
procedure RecupererContenu(WB:TWebBrowser; Lines: TStrings);
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  MemStream: TMemoryStream;
begin
  if not Assigned(WB.Document) then
  begin
    ShowMessage('Document not loaded!');
    Exit;
  end;
 
  PersistStream := WB.Document as IPersistStreamInit;
  MemStream:= TMemoryStream.Create;
  try
    Stream := TStreamAdapter.Create(MemStream, soReference)
              as IStream;
    if Failed(PersistStream.Save(Stream, True)) then
      ShowMessage('Echec de la sauvegarde')
    else
      Lines.LoadFromStream(MemStream);
  finally
    MemStream.Free;
  end;
end;

J'ai modifié le code pour que tu puisses passer en paramètre un TStringList, par exemple, ce qui te permettra de récupérer sous forme de string la source de ta page.

Tu appelles cette procédure ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var Lines: TStringList;
begin
  Lines := TStringList.Create;
 
  RecupererContenu(WebBrowser1, Lines);
 
  ShowMessage('Source de la page : ' + String(Lines.GetText));
end;

Le "ShowMessage(...)" est pour l'exemple, tu sais tout ainsi :
Créer le TStringList, appeler la procédure, récupérer le contenu qui a été mis dans le TStringList.

**Gauth** · 09/04/2005, 11h24

j'ai bien mis comme tu m'a dit mais cela ne marche pas, quand j'appuis sur le bouton, çà marque "source de la page :" et rien d'autre

j'ai testé sur google.com et developpez.com

**Pierre Castelain** · 09/04/2005, 12h22

Il y a un petit bug dans le code de Bestiol : Il a oublié qu'il faut remettre le TMemoryStream au début après avoir sauvegardé le code :

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
 
procedure RecupererContenu(WB:TWebBrowser; Lines: TStrings);
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  MemStream: TMemoryStream;
begin
  if not Assigned(WB.Document) then
  begin
    ShowMessage('Document not loaded!');
    Exit;
  end;
 
  PersistStream := WB.Document as IPersistStreamInit;
  MemStream:= TMemoryStream.Create;
  try
    Stream := TStreamAdapter.Create(MemStream, soReference)
              as IStream;
    if Failed(PersistStream.Save(Stream, True)) then
      ShowMessage('Echec de la sauvegarde')
    else
    begin
      MemStream.Seek(0, soFromBeginning);
      Lines.LoadFromStream(MemStream);
    end;
  finally
    MemStream.Free;
  end;
end;

**Gauth** · 09/04/2005, 12h32

Envoyé par Pierre Castelain

Il y a un petit bug dans le code de Bestiol : Il a oublié qu'il faut remettre le TMemoryStream au début après avoir sauvegardé le code :

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
 
procedure RecupererContenu(WB:TWebBrowser; Lines: TStrings);
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  MemStream: TMemoryStream;
begin
  if not Assigned(WB.Document) then
  begin
    ShowMessage('Document not loaded!');
    Exit;
  end;
 
  PersistStream := WB.Document as IPersistStreamInit;
  MemStream:= TMemoryStream.Create;
  try
    Stream := TStreamAdapter.Create(MemStream, soReference)
              as IStream;
    if Failed(PersistStream.Save(Stream, True)) then
      ShowMessage('Echec de la sauvegarde')
    else
    begin
      MemStream.Seek(0, soFromBeginning);
      Lines.LoadFromStream(MemStream);
    end;
  finally
    MemStream.Free;
  end;
end;

sa marche ! merci beaucoup !!!

**Bestiol** · 09/04/2005, 12h48

oups désolé !
J'ai fait ça sans tester et j'ai effectivement oublié ce détail

Bonne continuation, et merci Pierre ^^
Bestiol.

**phenixauthor** · 09/04/2005, 15h57

salut,

Pour récupérer l'ensemble du code HTML, header compris, on peut utiliser simplement ce code :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.HtmlTmpDocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
var CurrentWB: IWebBrowser;
     CurrentWB := pDisp as IWebBrowser;
         // recuperation du code entier
     htmlcode.text:=(CurrentWB.Document as IHTMLDocument3).documentElement.outerhtml;

J'ai eu quelques soucis avec la méthode utilisant les streams, de plus la fonction est fournie directement avec IE en utilisant l'objet IHTMlDocument3 ( voir aide sur le site msdn )

ne pas oublier le MSHTML_TLB dans les uses..

[TWebbrowser] Probléme pour récupérer la source [FAQ]

Web & réseau Delphi

Discussions similaires

Partager

Partager