En fait la propriété OleObject permet d'accéder directement à l'interface DOM du parseur de Microsoft. Donc les deux solutions sont quasi pareilles.
De la même façon (j'ai pas testé) il serait aussi possible de faire (WebBrowserSniff.Document AS IHTMLDocument2).all.toString
@Mauricio: oui, si tu as déjà la page dans un TWebBrowser, ce serait pas très malin de la re-létécharger ...
Tiens, au fait, pourquoi le nom des balises est en majuscules: <HTML> <HEAD> au lieu de <html> <head> comme cela l'est dans le document d'origine ?
A+
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 19 déc. 2006 à 10:55
Merci Florenth,
la question que l' on m' avait posé était de récupérer le code à partir d' un TWebBrowser avec une page chargée...
Salut Japee,
he bien merci pour cette soluce bien plus simple, je ne connaissais pas du tout!!!
J' espère que ça va aider certains membres ...
A+
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 18 déc. 2006 à 21:15
Salut Mauricio.
Et ça tu connais ?
procedure TFrmPrin.BtnGetCodeClick(Sender: TObject);
begin
if WebBrowserSniff.Document <> nil then
MemoSource.Text := WebBrowserSniff.OleObject.Document.Body.InnerHTML;
end;
Héééé, j'le connaissais pas celui là, le mshtml !
Ben voila une belle rencontre tiens ! ça va m'être utile, j'èspère qu'il y a de la doc derrière pour s'en servir mais ça m'a lair "gros" comme truc...
Merci bien Mauricio !
Mais si c'est juste pour récupérer le source, pourquoi s'embetter avec un TWebBrowser ? Un TIdHTTPClient et un MemoSource.Text := Get('http://www.delphi.com/') suffiraient amplement non ? (bon, ok, c'est un socket bloquant, et alors ....).
Allez, joyeux Noël (ahhh, c'est dans bientôt pas longtemps !!!),
A+
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 18 déc. 2006 à 16:45
Une dernière chose: la partie interessante n' est pas de moi.
Elle vient d' un site internet sur Delphi dont je ne me rappelle malheureusement pas...
Joyeux Noel à tous!!!
Bom Natal a todos!!! (Version Portugaise lol)
11 févr. 2008 à 10:14
J' ai fait du chemin et je métrise assez bien le TWebBrowser maintenant.
A+
10 févr. 2008 à 14:14
5 janv. 2007 à 20:28
Pouvez vous me donner un coup de main.
19 déc. 2006 à 21:28
ça me rappelle ça : http://phidels.com/php/forum/forum.php3?forumtable=posts&mode=showpost&postid=95834
swissdelphicenter as dû le citer aussi quelque part
drjerome (JROD)
19 déc. 2006 à 11:15
De la même façon (j'ai pas testé) il serait aussi possible de faire (WebBrowserSniff.Document AS IHTMLDocument2).all.toString
@Mauricio: oui, si tu as déjà la page dans un TWebBrowser, ce serait pas très malin de la re-létécharger ...
Tiens, au fait, pourquoi le nom des balises est en majuscules: <HTML> <HEAD> au lieu de <html> <head> comme cela l'est dans le document d'origine ?
A+
19 déc. 2006 à 10:55
la question que l' on m' avait posé était de récupérer le code à partir d' un TWebBrowser avec une page chargée...
Salut Japee,
he bien merci pour cette soluce bien plus simple, je ne connaissais pas du tout!!!
J' espère que ça va aider certains membres ...
A+
18 déc. 2006 à 21:15
Et ça tu connais ?
procedure TFrmPrin.BtnGetCodeClick(Sender: TObject);
begin
if WebBrowserSniff.Document <> nil then
MemoSource.Text := WebBrowserSniff.OleObject.Document.Body.InnerHTML;
end;
Bon Noël à toi aussi.
18 déc. 2006 à 18:59
Ben voila une belle rencontre tiens ! ça va m'être utile, j'èspère qu'il y a de la doc derrière pour s'en servir mais ça m'a lair "gros" comme truc...
Merci bien Mauricio !
Mais si c'est juste pour récupérer le source, pourquoi s'embetter avec un TWebBrowser ? Un TIdHTTPClient et un MemoSource.Text := Get('http://www.delphi.com/') suffiraient amplement non ? (bon, ok, c'est un socket bloquant, et alors ....).
Allez, joyeux Noël (ahhh, c'est dans bientôt pas longtemps !!!),
A+
18 déc. 2006 à 16:45
Elle vient d' un site internet sur Delphi dont je ne me rappelle malheureusement pas...
Joyeux Noel à tous!!!
Bom Natal a todos!!! (Version Portugaise lol)