modifier code HTML avant affichage dans TWebBrowser

Version imprimable

20/07/2010, 19h32
iznogoud_23

modifier code HTML avant affichage dans TWebBrowser

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:

<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 ê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:

<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 êtes là</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

Utilise OnDocumentComplete pour lire les objets du TWebBrowser

Si tu as des violations d'accès sur

Code:

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:

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;

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:

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:

WBReplace(WebBrowser1,'la') ;

quand je clique sur un bouton

21/07/2010, 13h33
BuzzLeclaire

@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...
21/07/2010, 14h28
ShaiLeTroll

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 :mouarf:
21/07/2010, 15h27
iznogoud_23

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