Erreur load XML

**dederfred** · 30/11/2006, 12h31

quand je lance cette Procedure tout mes Tedit se charge du fichier XML

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
 
procedure TFenetre_Principal.Ouvrir(fiche:string);
var
  lexml : IXMLDOMDocument;
  noeuxImDep, noeuxInNum, noeuxImCom, noeuxImAdr, noeuxImSec, noeuxImPar, noeuxImNat, noeuxImEta, noeuxDeNom, noeuxDePre, noeuxDeAdr, noeuxDeCod, noeuxDeCom, noeuxDeQua, noeuxExIde, noeuxExNom, noeuxExPre, noeuxExRai, noeuxExAdr, noeuxExCod, noeuxExCom, noeuxExAss, noeuxExNbp: IXMLDOMNode ;
  nodes,noeuxCoInfo,noeuxCoEnqu ,noeuxCom : IXMLDOMNodeList;
  //noeuxImDep:string;
    d,g: integer;
begin
 
  lexml := CoDOMDocument.Create;
  lexml.async :=false;
  lexml.load(fiche);
 
 
  noeuxInNum := lexml.selectSingleNode('//introduction/NumeroDevis');
 
  noeuxImDep := lexml.selectSingleNode('//immeuble/Departement');
  noeuxImCom := lexml.selectSingleNode('//immeuble/Commune');
  noeuxImAdr := lexml.selectSingleNode('//immeuble/Adresse');
  noeuxImSec := lexml.selectSingleNode('//immeuble/Section');
  noeuxImPar := lexml.selectSingleNode('//immeuble/Numparcelle');
  noeuxImNat := lexml.selectSingleNode('//immeuble/Nature');
  noeuxImEta := lexml.selectSingleNode('//immeuble/Numetage');
 
  noeuxDeNom := lexml.selectSingleNode('//demandeur/Nom');
  noeuxDePre := lexml.selectSingleNode('//demandeur/Prenom');
  noeuxDeAdr := lexml.selectSingleNode('//demandeur/Adresse');
  noeuxDeCod := lexml.selectSingleNode('//demandeur/Codepostal');
  noeuxDeCom := lexml.selectSingleNode('//demandeur/Commune');
  noeuxDeQua := lexml.selectSingleNode('//demandeur/Qualite');
 
  noeuxExIde := lexml.selectSingleNode('//expert/Id_Expert');
  noeuxExNom := lexml.selectSingleNode('//expert/Nom');
  noeuxExPre := lexml.selectSingleNode('//expert/Prenom');
  noeuxExRai := lexml.selectSingleNode('//expert/Raison');
  noeuxExAdr := lexml.selectSingleNode('//expert/Adresse');
  noeuxExCod := lexml.selectSingleNode('//expert/Cp');
  noeuxExCom := lexml.selectSingleNode('//expert/Commune');
  noeuxExAss := lexml.selectSingleNode('//expert/Assurance');
  noeuxExNbp := lexml.selectSingleNode('//expert/Nbpolice');
 
  noeuxCoInfo := lexml.selectNodes('//conclusion/infoNonBati');
  noeuxCoEnqu := lexml.selectNodes('//conclusion/concluEnquete');
 
  noeuxCom := lexml.selectNodes('//introduction/CommentaireDevis');
  EDT_NumDossier.Text  := noeuxInNum.text;
 
  for g:=0 to noeuxCom.length-1 do
    begin
      CommentaireSup.Lines.Add(noeuxCom.item[g].text);
    end;
 
  EDT_Departement_Immeuble.Text := noeuxImDep.Text;
  EDT_Commune_Immeuble.Text := noeuxImCom.Text;
  EDT_Adresse_Immeuble.Text := noeuxImAdr.Text;
  EDT_Section_Immeuble.Text := noeuxImSec.Text;
  EDT_Numparcelle_Immeuble.Text := noeuxImPar.Text;
  EDT_Nature_Immeuble.Text := noeuxImNat.Text;
  EDT_Numetage_Immeuble.Text := noeuxImEta.Text;
 
  EDT_Nom_Demandeur.Text := noeuxDeNom.Text;
  EDT_Prenom_Demandeur.Text := noeuxDePre.Text;
  EDT_Adresse_Demandeur.Text := noeuxDeAdr.Text;
  EDT_Codepostal_Demandeur.Text := noeuxDeCod.Text;
  EDT_Commune_Demandeur.Text := noeuxDeCom.Text;
  EDT_Qualite_Demandeur.Text := noeuxDeQua.Text;
 
  CB_Id_Expert.Text := noeuxExIde.Text;
  EDT_Nom_Expert.Text := noeuxExNom.Text;
  EDT_Prenom_Expert.Text := noeuxExPre.Text;
  EDT_Raison_Expert.Text := noeuxExRai.Text;
  EDT_Adresse_Expert.Text := noeuxExAdr.Text;
  EDT_Cp_Expert.Text := noeuxExCod.Text;
  EDT_Commune_Expert.Text := noeuxExCom.Text;
  EDT_Assurance_Expert.Text := noeuxExAss.Text;
  EDT_Nbpolice_Expert.Text := noeuxExNbp.Text;
 
 
individuel.Checked := TestCheckBox(lexml.selectSingleNode('//introduction/individuel').text) ;
 
Appart.Checked := TestCheckBox(lexml.selectSingleNode('//introduction/Appart').text) ;
 
CuisineEvier.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/CuisineEvier').text) ;
 
CuisineSiphon.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/CuisineSiphon').text) ;
 
CuisinePotable.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/CuisinePotable').text) ;
 
CuisineEauFroide.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/CuisineEauFroide').text) ;
 
CuisineEauChaude.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/CuisineEauChaude').text) ;
 
CuisineEdfGdf.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/CuisineEdfGdf').text) ;
 
CuisineAerationFenetre.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/CuisineAerationFenetre').text) ;
 
CuisineAerationHaute.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/CuisineAerationHaute').text)  ;
 
BainBaignoire.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/BainBaignoire').text)  ;
 
BainLavabo.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/BainLavabo').text)  ;
 
BainDouche.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/BainDouche').text)  ;
 
BainAerationFenetre.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/BainAerationFenetre').text)  ;
 
BainAerationHaute.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/BainAerationHaute').text)  ;
 
 
 
 
WcSituation.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/WcSituation').text)  ;
 
WcSeparee.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/WcSeparee').text)  ;
 
WcSalleDeau.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/WcSalleDeau').text)  ;
 
WcExterieur.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/WcExterieur').text)  ;
 
WcAerationFenetre.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/WcAerationFenetre').text)  ;
 
WcAerationHaute.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/WcAerationHaute').text)  ;
 
 
 
ChauffageCollectif.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/ChauffageCollectif').text)  ;
 
ChauffageIndividuel.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/ChauffageIndividuel').text)  ;
 
ChauffageAutre.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/ChauffageAutre').text)  ;
 
ChauffageEdtAutre.Text := lexml.selectSingleNode('//Conformite/ExterieurCour').text ;
 
CBXInterieur.Text := lexml.selectSingleNode('//Conformite/CBXInterieur').text ;
 
Interieur.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/Interieur').text)  ;
 
CBXExterieurRue.Text := lexml.selectSingleNode('//Conformite/CBXExterieurRue').text ;
 
ExterieurRue.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/ExterieurRue').text)  ;
 
CBXExterieurCour.Text := lexml.selectSingleNode('//Conformite/CBXExterieurCour').text ;
 
ExterieurCour.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/ExterieurCour').text)  ;
 
CBXExterieurCouverture.Text := lexml.selectSingleNode('//Conformite/CBXExterieurCouverture').text  ;
 
ExterieurCouverture.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/ExterieurCouverture').text)  ;
 
 
etencheite.Checked := TestCheckBox(lexml.selectSingleNode('//Conformite/etencheite').text)  ;
 
for g:=0 to lexml.selectNodes('//Conformite/etencheiteMemo').length-1 do
  begin
      etencheiteMemo.Lines.Add(lexml.selectNodes('//Conformite/etencheiteMemo').item[g].text)
  end;
 
 
ConcluSurface.Checked := TestCheckBox(lexml.selectSingleNode('//conclusion/ConcluSurface').text)  ;
 
ConcluHabitabilite.Checked := TestCheckBox(lexml.selectSingleNode('//conclusion/ConcluHabitabilite').text)  ;
 
for g:=0 to lexml.selectNodes('//conclusion/ConcluMemo').length-1 do
    begin
      ConcluMemo.Lines.Add(lexml.selectNodes('//conclusion/ConcluMemo').item[g].text)
    end;
 
 
 
end;

Puis si je lance après cette procedure j'ai cette erreure

Ce qui est bizard c'est que si je lance que la procedure ideChange il y a aucune erreur et si je lance les procedures dans le sens idechange puis ouvrir il y a aucune erreur .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TFenetre_Principal.ideChange(Sender: TObject);
var leNoeud : IXMLDOMNode;
Unexml : IXMLDOMDocument;
begin
  Unexml := CoDOMDocument.Create;
  Unexml.async :=false;
  Unexml.load('../GestionXML/Client.xml');
  leNoeud := Unexml.selectSingleNode('//Client[id="'+Ide.Text+'"]');
 
  if not (Ide.Text = '') then
    begin
      EDT_Nom_Demandeur.Text := leNoeud.childNodes.item[2].text ;
      EDT_Prenom_Demandeur.Text := leNoeud.childNodes.item[3].text ;
      EDT_Adresse_Demandeur.Text := leNoeud.childNodes.item[4].text ;
      EDT_Codepostal_Demandeur.Text := leNoeud.childNodes.item[5].text ;
      EDT_Commune_Demandeur.Text := leNoeud.childNodes.item[6].text ;
    end;
 
end;

**Raylemon** · 30/11/2006, 15h38

Personnellement, je ne comprends pas bien ton problème...
A première vue, tu demandes une opération sur un noeud inexistant.
Ton document XML est-il bien formé ? Tu n'as pas une erreur de casse ? Sinon, tu peux m'envoyer une copie de ton code source, avec le xml, pour que j'y jette un oeil

**Giovanny Temgoua** · 30/11/2006, 15h50

Envoyé par Big

Personnellement, je ne comprends pas bien ton problème...
A première vue, tu demandes une opération sur un noeud inexistant.
Ton document XML est-il bien formé ? Tu n'as pas une erreur de casse ? Sinon, tu peux m'envoyer une copie de ton code source, avec le xml, pour que j'y jette un oeil

Ou mieux, si ce n'est pas à 'usage privé', mettre les fichiers en pièces jointes à ton message

**dederfred** · 30/11/2006, 22h17

je ne peux poster tout le code car c'est pour une entreprise main je vais essayer de faire un petit log utilisant le probleme

**dederfred** · 30/11/2006, 23h01

Je vous joins un fichier très allégé de mon application ou je vous ai mis mon erreur.
J'aurai pu supprimer le message en vérifiant si le noeud était assigné ou pas mais en vérité il n’a aucune raison de ne pas être assigné et vous verrez plus rapidement ou l'erreur se produit.
Merci encore du temps que vous passez a nous aider .

**Raylemon** · 01/12/2006, 01h25

Je n'ai pas bien compris le fonctionnement de ton programme, mais ton erreur est bien due à un pointeur invalide (nil).
Dans ta procedure ideChange, au moment de ton UnXML.load, tu charges simplement un xml inexistant ! Donc forcément, tu fais une requête XPath sur un document xml vide, il n'y a pas de noeud sélectionné, donc un pointeur vers nil.

Fais le test en plaçant la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

showMessage(UnXML.xml);

après le load. Tu verras que ton document est vierge. La seule explication possible, c'est lors de la création de ton IXMLDOMDocument, le contexte est en dehors du répertoire de ton application.

Pour limiter les erreurs, crée un gestionnaire d'erreur ou fais un test avec Assigned sur tes noeuds.

J'ai contourné le problème comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Unxml.load(ExtractFilePath(Application.ExeName)+'/GestionXML/Client.xml');

J'ai pris l'habitude de référencer tous mes XML avec le path complet, pour limiter les risques.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function AppliPath: string;
begin
  result:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
end;

Je met cette petite fonction systématiquement dans ma liste des uses

J'espère que ça réponds à ta question

**dederfred** · 01/12/2006, 12h31

Je comprend pas pourquoi avant quand je lançais dans un sens il reconnaît le chemin du fichier et dans un autre il me créait cette erreur ...

Dans tous les cas merci , cela fonctionne très bien j'utilisais déjà :
ExtractFilePath(Application.ExeName) mais pour mes fichiers word je sais pas pourquoi je l'ai pas fait pour les fichiers xml. Je vais utiliser ta méthode et plutôt créer une fonction qui m'évitera de retaper a chaque fois .

**Raylemon** · 01/12/2006, 14h07

J'ai une petite unité qui reprend quelques fonctions que j'utilise tout le temps, telle que AppliPath, Explode pour convertir un texte en liste de mots, et d'autres petites chôses que j'utilise bien souvent

.

Si ça marche, pense au tag résolu

Erreur load XML

Delphi

Discussions similaires

Partager

Partager