TXMLDocument FindNode ne repond jamais [Résolu]

Messages postés
30
Date d'inscription
mardi 10 mars 2009
Statut
Membre
Dernière intervention
31 octobre 2013
- - Dernière réponse : f0xi
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
- 28 avril 2012 à 04:29
Bonjour,

j'ai un fichier xml que je veux extraire des informations. Le code est contenue dans un Unit a part et est la suivant :

1.   XMLDoc := TXMLDocument.Create(Nil);
2.   try
3.     CoInitialize(nil);
4.     XMLDoc.DOMVendor := GetDOMVendor('MSXML');
5.     XMLDoc.LoadFromFile('C:\text.htm');
6.     CoUninitialize;
7.     StartItemNode := XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
8.     ANode := StartItemNode;
9.   [...]


Bref, mon probleme consiste que la commande FindNode est lancé mais return jamais aucun valeur. En effet, mon program reste supendu a jamais sans jamais aucun reponse et aucun erreur. La ligne 8 ne sera jamais atteint.

Merci pour votre aide.
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
26
3
Merci
var
  XMLDoc : TXMLDocument;
  StartItemNode : IXMLNode;
begin
  if not FileExits('c:\text.htm') then exit;

  XMLDoc := TXMLDocument.Create(Application);
  try
    XMLDoc.LoadFromFile('C:\text.htm');
    StartItemNode := XMLDoc.ChildNodes.First.ChildNodes.FindNode('item'); <<-- humm ... pas trop sur
    ANode := StartItemNode;


________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 218 internautes nous ont dit merci ce mois-ci

Commenter la réponse de f0xi