[déplacé VB.NET -> VB6] problème chargement xml VB [Résolu]

louprovencou 6 Messages postés lundi 1 octobre 2007Date d'inscription 25 janvier 2010 Dernière intervention - 24 janv. 2010 à 20:35 - Dernière réponse : louprovencou 6 Messages postés lundi 1 octobre 2007Date d'inscription 25 janvier 2010 Dernière intervention
- 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".

Quelqu'un peut-il m'aider?

Merci d'avance
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 24 janv. 2010 à 23:33
3
Merci
Allez, je te file l'info :

msdn.microsoft.com/en-us/library/ms762632(VS.85).aspx

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.



Renfield - Admin CodeS-SourceS - MVP Visual Basic

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 118 internautes ce mois-ci

Commenter la réponse de Renfield
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 24 janv. 2010 à 20:58
0
Merci
salut,

Dim vntPseudo As Variant ??? en VB.NET c'est pas OBJECT??

Accueil > Forum >VB.NET et VB 2005> Base de données>

problème de classement?
VB6 était difficile d'accès? la scroll ne fonctionne pas??


[hr]
Commenter la réponse de PCPT
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 24 janv. 2010 à 23:20
0
Merci
vu la taille de l'XML, pas forcément top de le loader en async.

de toutes facon, un simple test :

? oDvpDOMDocument.parseError.reason
DTD interdite.

t'aurais épargné cette question sur le forum.

Renfield - Admin CodeS-SourceS - MVP Visual Basic
Commenter la réponse de Renfield
louprovencou 6 Messages postés lundi 1 octobre 2007Date d'inscription 25 janvier 2010 Dernière intervention - 25 janv. 2010 à 21:05
0
Merci
Merci beaucoup.

Désolé pour le mauvais classement, ce n'est pas du tout de la flemme, je débute et je me suis planté;)
Commenter la réponse de louprovencou

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.