louprovencou
Messages postés6Date d'inscriptionlundi 1 octobre 2007StatutMembreDernière intervention25 janvier 2010
-
24 janv. 2010 à 20:35
louprovencou
Messages postés6Date d'inscriptionlundi 1 octobre 2007StatutMembreDernière intervention25 janvier 2010
-
25 janv. 2010 à 21:05
Bonjour à tous.
J'essaie de charger un fichier xml, mais le chargement est incorrect :
Dim vntPseudo As Variant
Dim oDvpDOMDocument As DOMDocument
Dim oMembreDvp As IXMLDOMElement
Set oDvpDOMDocument = New DOMDocument
' Chargement du document XML
oDvpDOMDocument.async = False
If oDvpDOMDocument.Load("http://xml.pinnaclesports.com/xmlfeed.asp") Then
MsgBox "Document XML correctement chargé"
Else
MsgBox "Erreur de lecture du document XML"
End
End If
C'est donc le message "Erreur de lecture du document XML" qui s'affiche.. Je ne comprend pas, celà fonctionne bien par contre avec le même code et le flux "xml.pinnaclesports.com/pinnacleFeed.asp".
Par défault, pour eviter des attaues de type Xss, par exemple, les DTD sont bloquées.
J'ai testé, même en les autorisant, le DTD de ton flux est incomplet et il ne validera pas le flux (manque la définition de contestantnum, entre autres)
Tu pourras donc faire :
Dim oDvpDOMDocument As DOMDocument60
Dim oMembreDvp As IXMLDOMElement
Set oDvpDOMDocument = New DOMDocument60
oDvpDOMDocument.async = False
oDvpDOMDocument.setProperty "ProhibitDTD", False
oDvpDOMDocument.validateOnParse = False
If oDvpDOMDocument.Load("http://xml.pinnaclesports.com/xmlfeed.asp") Then
MsgBox "Document XML correctement chargé"
Else
MsgBox "Erreur de lecture du document XML"
End
End If
et pense a me virer ce Async = False, le document est lourd à télécharger...
laisse en synchrone, et greffe une fenetre d'attente.