Probleme dans mon code recherche dans un fichier Xml

Bonsoir,
Je viens de faire un code pour cibler un noeux ce code est exécuté lors d'un onChange sur un combobox(CB_Id_Expert).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TFenetre_termite.XMLExpert(); var noeux: IXMLNode; begin noeux := XMLDocument1.DocumentElement; noeux := noeux.ChildNodes['expert'] ; if assigned(noeux) then begin if noeux.Attributes['Id'] = CB_Id_Expert.Text then begin   MiseJourExpert(noeux.ChildNodes['nom'].Text,noeux.ChildNodes['prenom'].Text,noeux.ChildNodes['raison'].Text,noeux.ChildNodes['adresse'].Text,noeux.ChildNodes['codepostal'].Text,noeux.ChildNodes['commune'].Text,noeux.ChildNodes['assurance'].Text,noeux.ChildNodes['NBpolice'].Text);   end else begin noeux := noeux.NextSibling; end; end; end;

---

Dans un premier temps la fonction devrait trouver directement car elle tombe directement sur le bon noeud mais rien ne se passe.
Puis je voulais faire une boucle mais je tombe sur un problème peut ton savoir le nombre de noeux qui existe du nom de expert.

Je vous mets le fichier xml

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

<?xml version="1.0" encoding="ISO-8859-1"?> <root> <Expert id='de'> <nom>deder</nom> <prenom>fred</prenom> <raison>LandRConsultants</raison> <adresse>DS 309 -1,rue de l'arpajonnais</adresse> <codepostal>91160</codepostal> <commune>Saulx les chartreux</commune> <assurance>SIACI</assurance> <NBpolice>0066099</NBpolice> </Expert>   </root>

---

Tu gères ton document XML avec quoi ? OmniXML ou MSXML ?

Néanmoins, je peux répondre à la seconde question. Tu peux récupérer une liste de nodes via Xpath et la fonction SelectNodes.

Code:

---

1 2 3 4 5 6 7 8 9

var nodes : IXMLNodeList; i := Integer; begin //Utilisation de la requête Xpath pour sélectionner le nom de chaque Expert nodes := xmlDoc.SelectNodes('//Expert/nom'); //xmlDoc : IXMLDocument for i:=0 to nodes.Length-1 do cbb1.Items.Add(nodes.Item[i].Text); //cbb1 : TComboBox; end;

---

J'utilise une vieille version de omniXML, il faudra donc adapter un peu en fonction du parser utilisé.

Une pist pour ton premier problème, c'est l'utilisation de la fonction similaire à SelectNodes, mais pour choisir un seul noeud : SelectSingleNode

Code:

---

1 2 3 4 5 6

var node : IXMLNode; begin node := xmlDoc.SelectSingleNode('//Expert/@id="'+cbb1.Text+'"'); ... end;

---

Petite explication : la requête Xpath est du genre 'Expert/@id="de"', qui va donc sélectionner le premier noeud (théoriquement le seul) 'Expert' possédant l'attribut id qui vaut "de" (@ désigne un attribut dans Xpath).

J'espère avoir répondu à tes questions, mais si il y a toujours un problème, n'hésite pas ;)

edit : J'ai été trop vite...
J'ai remarqué après coup que tu voulais lister les ID des experts, et pas leur nom...
La requête Xpath à utiliser dans le SelectNodes n'est pas "//Expert/nom" mais "//Expert/@id", qui va donc lister tous les attributs 'id' des experts

merci beaucoup j'essaie dessuite. A oui j'utilise MSXML car je ne sais pas du tout ou trouver omni xml sinon je serais partant pour l'utiliser

Dans la partie Composants du site, je suppose que omniXML doit s'y trouver.

Sinon, tu pourras t'aider du tuto que j'ai écrit sur MSXML et Delphi ici.

Je trouve personnellement que OmniXML est plus simple d'emploi.

merci beaucoup je regarde , j'essaie et si tout est bon je marque de resolu merci encore

Encore une petite question est t'il possible que mon probleme ne fonctionne pas car j'utilise le composant XMLDocument ?
Car Le SelectNodes est compris comme un identifiant non déclaré ....
dsl d'etre un peu lourd

Juste !
Tu emploies l'objet TXMLDocument, c'est ça ?
Je n'utilise jamais ce composant, je le trouve assez limité. Je passe par les interfaces (IXMLDocument, IXMLDOMDocument).
Si ton fichier XML ne sert que de base de données, à mon avis tu aurais mille fois plus simple d'utiliser les interfaces.

Les fonctions SelectSingleNode et SelectNodes se trouvent sur le IXMLNode (ou IXMLDOMNode)

C'est pour cela que omniXML est simple d'emploi. La création d'un document XML se fait via la fonction CreateDocument, et les fonctions SelectSingleNode et SelectNodes sont aussi disponibles.

J'espère avoir répondu à ta question. Si ça ne va toujours pas, n'hésite pas ;)

encore moi Big alors voila , après avoir repris ce que tu m'as dis et un peu le tutorial que tu as fait.
J'arrive avec un code de ce genre .
Je l'exécute lors que la Form est active.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TFenetre_termite.XMLExpert(); var xml : IXMLDOMDocument; nodes : IXMLDOMNodeList; i: integer; begin showmessage('fonctionne : 1'); xml := CoDOMDocument.Create; xml.async :=false; xml.load('../gestionxml/Expert_info.xml'); nodes := xml.selectNodes('//Expert/nom'); showmessage('fonctionne : 2'); for i:=0 to nodes.length-1 do begin showmessage('fonctionne : 3'); CB_Id_Expert.Items.Add(nodes.Item[i].Text); showmessage(nodes.Item[i].Text); end; end;

---

la hierarchie de mon application donne cela :

dossier principale

Code:

---

1 2 3 4 5 6 7 8

[application]     [Exe] [GestionXML] [Forms] termite.dpr   termite.exe | Expert_info.xml | Interface_Termite.dfm | ____________ | | Interface_Aakey.pas |

---

Le probleme vient du fait que la boucle ne se lance pas , je me demande si le probleme ne vient pas au final, du faite que l'application ne trouverait pas mon fichier ?

je n'ai hélas pas Delphi sur le poste, je te dirai quoi demain certainement. Mais d'apès ce que j'ai vu, ton problème doit être simplement un problème de casse.
En effet, XPath est sensible à la casse. Donc si tu lui donnes un chemin tel que ../gestionxml/Expert_info.xml, ton répertoire doit s'appeller gestionxml, et non gestionXML

Essaies en faisant la modification. Si ça ne va pas, je regarderai demain ton code plus en détails

Encore merci a tes réponses c'est bon j'avais oublier d'enlever un ";"

Une dernière question que contient :
Node := xml.SelectSingleNode('//Expert[@id="'+CB_Id_Expert.Text+'"]');
si xml.SelectSingleNode('//Expert[@id="'+CB_Id_Expert.Text+'"]'); n'existe pas ?
Je veux faire une condition dans le cas ou la nouvelle entrée n’existe pas sa enregistre sur le fichier xml à la suite si possible des anciens des noeux plus vieux.

Le noeud n'existe pas, tout simplement. Tu peux tester l'existence du noeud par Assigned()

Code:

---

1 2	if not Assigned(node) then ...

---

Puis tu utilises DOM pour créer un noeud et ajouter les données dedans. Je te renvoie à mon tutoriel pour plus de détails.

Encore merci pour toutes ces explications