modifier code HTML avant affichage dans TWebBrowser

**iznogoud_23** · 20/07/2010, 19h32

Bonsoir à tous

Une petite question de néophyte.
Est-il possible de modifier le code html d'une page en cours de reception avant son affichage dans un TWebBrowser?

Par exemple, supposons que l'URL demandée soit "www.perdu.com"
Le site renvoie ce code html :

Code :

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

<html><head><title>Vous Etes Perdu ?</title></head><body><h1>Perdu sur l'Internet ?</h1><h2>Pas de panique, on va vous aider</h2><strong><pre>    * <----- vous &ecirc;tes ici</pre></strong></body></html>

Je voudrais modifier à la volée le "ici" en "là" afin qu'au finale le TWebBrowser recoive et affiche ceci

Code :

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

<html><head><title>Vous Etes Perdu ?</title></head><body><h1>Perdu sur l'Internet ?</h1><h2>Pas de panique, on va vous aider</h2><strong><pre>    * <----- vous &ecirc;tes l&agrave;</pre></strong></body></html>

Pour info, je demande ceci afin de pouvoir remettre en forme une page web avant de l'afficher dans mon programme.

Merci d'avance

**ShaiLeTroll** · 21/07/2010, 10h55

Utilise OnDocumentComplete pour lire les objets du TWebBrowser

Si tu as des violations d'accès sur

Code :

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

WebBrowser.OleObject.Document.Body.InnerHTML := NouveauTexteHTML;

C'est que les objets ne sont pas tous chargés, voici une fonction pour attendre que les objets soient tous prêt ce qui arrive parfois une à deux secondes APRES le OnComplete !

Tu peux modifier le HTML mais pas le JavaScript qui lui est déjà chargé !

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
// -----------------------------------------------------------------------------
procedure WaitWebAssigned(const WebBrowser: TWebBrowser; TimeOut: Cardinal);
var
   StartTime, PointTime(*, DiffTime*): Cardinal;
begin
     try
        StartTime := GetTickCount();
        repeat
          Sleep(1); // Il laisse une Milliseconde Entière aux Autres Processus
          Application.ProcessMessages();
          PointTime := GetTickCount();
        // Continue tant que l'Objet est vide ou que le Délai Maximum soit écoulé
        until not VarIsEmpty(WebBrowser.OleObject.Document) or (PointTime >= StartTime+TimeOut);
 
        if not VarIsEmpty(WebBrowser.OleObject.Document) then begin
           StartTime := GetTickCount();
           repeat
             Sleep(1); // Il laisse une Milliseconde Entière aux Autres Processus
             Application.ProcessMessages();
             PointTime := GetTickCount();
           until not VarIsEmpty(WebBrowser.OleObject.Document.Body) or (PointTime >= StartTime+TimeOut);
        end;
     except
        ShowMessage('L''Affichage HTML ne sera pas disponible avant quelques secondes !');
     end;
end;

**iznogoud_23** · 21/07/2010, 12h32

Merci pour l'info

J'avais aussi trouvé un truc basé sur un IHTMLBodyElement

Cependant, je suis ennuyé car justement, comme le nom l'indique, je ne peux modifier que ce qui appartien à la section >body></body>

Comment faire pour pouvoir modifier TOUS les élements d'une page (head, body, bouton, javascript,...)

Merci d'avance

Pour info, voila ce que j'avais trouvé et fait :

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
uses mshtml;
 
procedure WBReplace(WB: TWebBrowser; Text: string) ;
const
   newcode = 'ici';
var
   tr: IHTMLTxtRange;
begin
   if Assigned(WB.Document) then
   begin
     tr := ((wb.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
     while tr.findText(Text, 1, 0) do
     begin
       tr.pasteHTML(newcode) ;
       tr.scrollIntoView(True) ;
     end;
   end;
end;

avec un appel à

Code :

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

WBReplace(WebBrowser1,'la') ;

quand je clique sur un bouton

**BuzzLeclaire** · 21/07/2010, 13h33

@Salut,

Ne peux tu pas simplement prendre ta page html la mettre dans ou transformer en format text classique ?
traité le fichier text et au final afficher ce fichier en html ?

A ce que je sache 90% des pages de navigation peuvent être vue dans un notepad, modifié et réaffiché.

T'utilise la méthode de Shail pour patienté et puis tu tranforme...

**ShaiLeTroll** · 21/07/2010, 14h28

D'accord avec Buzz, j'utilisais pour ma part, stringreplace pour remplacer du code HTML par un autre (retiré les images) ou injecter des POST, des boutons en plus ... je parsais un jeu comme ça, un programme jouait à ma place

**iznogoud_23** · 21/07/2010, 15h27

Pourquoi pas, mais en procedant ainsi, cela va-t-il garder les formulaires (balises input) fonctionnels (basé sur des cookies)

modifier code HTML avant affichage dans TWebBrowser

Composants VCL Delphi

Discussions similaires

Partager

Partager