RÉCUPÉRER LE SOURCE (HTML) D' UNE PAGE INTERNET CHARGÉE DANS UN TWEBBROWSER

cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 18 déc. 2006 à 16:45
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 11 févr. 2008 à 10:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/40773-recuperer-le-source-html-d-une-page-internet-chargee-dans-un-twebbrowser

cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
11 févr. 2008 à 10:14
Merci à tous pour vos commentaires!
J' ai fait du chemin et je métrise assez bien le TWebBrowser maintenant.
A+
tartave Messages postés 15 Date d'inscription vendredi 5 octobre 2007 Statut Membre Dernière intervention 1 mars 2009
10 févr. 2008 à 14:14
super ta source merci
cs_denis1 Messages postés 1 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 5 janvier 2007
5 janv. 2007 à 20:28
Je voudrais pouvoir commander une camera IP Axis 211 avec delphi.
Pouvez vous me donner un coup de main.
DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015
19 déc. 2006 à 21:28
Salut,

ç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)
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és 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
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és 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
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;

Bon Noël à toi aussi.
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és 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
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)
Rejoignez-nous