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

Version imprimable

08/04/2005, 21h24
Gauth

[TWebbrowser] Probléme pour récupérer la source
salut à tous
j'utilise:

Code:

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

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

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
08/04/2005, 22h58
Bestiol

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 ]
08/04/2005, 23h07
Gauth

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

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:

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:

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.

09/04/2005, 11h24
Gauth

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

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:

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;

Citation:

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:

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 !!! :)

09/04/2005, 12h48
Bestiol

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

Bonne continuation, et merci Pierre ^^
Bestiol.

salut,

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

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