Probleme de lecture d'un fichier XML

**chleuh** · 30/08/2005, 10h47

Bonjour a tous,

J'ai un petit souci avec mon application:
En fait j'ai un fichier XML (ou figure bon nombre d'information) et de temps en temps la lecture de ce fichier occasione des Violation d'acces?

Sur des passages a priori sans risques :
Voici par exemple la derniere fonction qui a engendré une violation d'acces:

Code :

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

1
2
3
4
5
6
7
8
9
 
function Get_Nom: WideString;
begin
 try
  Result := AttributeNodes['nom'].Text;
 except
  Result := '';
 end;
end;

malgré le try except j'ai réussi à avoir une violation d'acces pas mal non?

Merci beaucoup

**MD Software** · 30/08/2005, 10h51

Tu dois avoir la notification d'exception du débuggueur, non ?

**NoisetteProd** · 30/08/2005, 11h06

Il me semble que le mieux pour eviter les violations d'accès, est de verifier s'il y a quelque chose derrière le pointeur... par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function Tform1.Get_Nom(Noeud : IXMLNode) : WideString;
begin
  try
    if assigned(noeud.AttributeNodes['nom']) then
      Result := noeud.AttributeNodes['nom'].Text
    else
      result := '';
  except
    Result := '';
  end;
end;

Dis moi si ca solutionne le problème

**chleuh** · 30/08/2005, 11h09

pardon mais c'est une notification d'exception du débugueur?
En fait ca arrive occasionnelement du coup lorsque je lance mon application en mode débug j'arrive pas à générer la VA, par contre j'ai utilisé un composant qui me renvoie :
le rapport de l'erreur
l'état de la pile
les informations générales du PC
et bien sur l'endroit ou se produit l'erreur.
Du coup si la question est: quel est le message de l'erreur ? La réponse est:

Violation d'accès à l'adresse 004F47BA dans le module MonApplication Lecture de l'adresse 0000001C

Si c'est pas ca la question désolé mais vu les informations dont je dispose je peux quasiment tout vous dire sur cette erreur

Merci beaucoup

**chleuh** · 30/08/2005, 11h17

Ok merci beaucoup noisette je vais essayer par contre je ne serais pas en mesure de dire si ca marche tout de suite etant donné que ca me génére l'erreur de temps en temps.

J'aurais aimé savoir le try except n'aurais pas du relevé la Violation d'acces?

**NoisetteProd** · 30/08/2005, 11h26

j'ai constaté que non, mais c'est empirique, je ne peux pas te donner de reponse plus precise.

Ce qui est sur, c'est que dès que tu utilise des nodes (TreeView, XML etc etc) il vaut mieux abuser de "if assigned", ca evite beaucoup de problème !

Pour ton cas, le problème ne viens pas du faut que tu veilles recupérer le text de ton Node, mais que ce même Node n'existe pas probablement. Du coup, tu essaye d'atteindre une propriété d'un objet inexistant, ce qui créé la violation d'accès, l'exeption elle, serait renvoyée s'il y avait un problème lors de l'execution de la propriété .text

Voilà ce que j'ai compris... Si c'est faux, n'hésitez pas à me reprendre !
A+

**Tardiff Jean-François** · 30/08/2005, 11h37

Bonjour,

Personellemnt j'utilise le code suivant pour lire les String d'un IXMLNode

Code :

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

1
2
3
4
5
6
7
8
 
function XMLStringValue(node: IXMLNode; const Default: string = ''): string;
begin
  Result := Default;
  if Assigned(node) then
    if node.NodeValue <> Null then
      Result := node.NodeValue;
end;