ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

2 moyens d'obtenir le contenu d'une page Web   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation

2 moyens d'obtenir le contenu d'une page Web
# 0000000123
ajouté le 22/12/2004 21:38:04 et modifié le 22/12/2004
consulté 8519 fois
Niveau initié

Version(s) Foxpro :
VFP 7.0

Description

Code source :
Solution #1  && Requiert Microsoft XML parser http://www.microsoft.com/downloads/details.aspx?FamilyID=3144b72b-b4f2-46da-b4b6-c5d7485f2b42&displaylang=en

CREATE CURSOR myWebPage (content m)
url="http://www.microsoft.com"
objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open("GET", url,.f.)
objHTTP.Send()
Insert into myWebPage (content) VALUES (objHTTP.ResponseText)
MODIFY MEMO myWebPage.content

Solution #2

1. Sans les tags HTML

oIE = createobject('internetexplorer.application')
oIE.Navigate('www.tek-tips.com')
lcStr=oIe.Document.body.innertext
?lcStr

2. Avec les tags HTML

oIE = createobject('internetexplorer.application')
oIE.Navigate('www.tek-tips.com')
lcStr=oIe.Document.body.innerHTML
?lcStr


Commentaires
Aucun commentaire enregistré ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3