Discussion :

[WebPac]

Bonjour tout le monde, voici la partie de code qui me porte soucis.

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
var
  i: Integer;
  mrXMLDoc: TXMLDocument;
begin
  if not FileExists(aNomFichier) then
    Exit;
 
  mrXMLDoc := TXMLDocument.Create(nil);
  mrXMLDoc.DOMVendor := GetDOMVendor('MSXML');
  mrXMLDoc.Active := True;
  mrXMLDoc.LoadFromFile(aNomFichier);
 
  if mrXMLDoc.DocumentElement.HasChildNodes then
    for i := 0 to mrXMLDoc.DocumentElement.ChildNodes.Count - 1 do
    begin

Je teste si le fichier existe, je teste si le document XML possède des noeuds et c'est lors du if ... HasChildNodes qu'il me dit :

Violation d'accès à l'adresse 0000000000. Lecture de l'adresse 000000000.

Le composant est pourtant bien créé et il ne bugue pas lors de la lecture du fichier. Je ne comprends pas ce qu'il se passe, pouvez vous m'aider svp ?

[Castagnems]

J'avais aussi eu des problèmes avec le TXmlDocument. Mais pour finir cela fonctionne en le créant ainsi - n'oublie pas de faire le uses :
[ Si ca ne fonctionne pas, dis le moi ].

Code :

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

aXMLParser := TXMLDocument.Create(application) ;

C'est grave si tu n'assignes pas le Filename ??

Code :

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

aXMLParser.FileName := aFileName ;

[WebPac]

Je viens de lire l'aide sur le FileName, il est automatiquement initialisé quand on fait un LaodFromFile.

Je vais essayer de le créer avec l'appli comme Owner et je te tiens au courant.

[WebPac]

Je crois que cela vient du fait que je n'initialise pas DocumentElement.
Quand on fait la méthode inverse pour sauver un document XML, je crées le DocumentElement ainsi :

Code :

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

mrXMLDoc.DocumentElement := mrXMLDoc.CreateElement(ClassName, '');

Mais quand je lis, je ne peux pas l'initialiser en créant un nouveau, il faut qu'il pointe vers la racine du document XML.

J'ai du mal à voir ce qu'il faut faire en fait.
Je vais chercher un document exemple la dessus.

[Castagnems]

sois un peu plus explicite sur ce que tu veux faire ...

Normalement, pas besoin d'initialiser le DocumentElement, car il est connu automatiquement.

[WebPac]

J'ai un fichier au format XML, je souhaite l'ouvrir et accéder à son arborescence afin de pouvoir créer des objets à partir d'elle mais ceci est une autre affaire. Je souhaite donc créer un charger.

J'ai fait la semaine un Sauver qui faisait la fonction inverse, j'initialisait un XMLDocument à partir d'objets pour par la suite faire un SaveToFile, il fallait que je crée le XMLDocument mais aussi affecter le DocumentElement à un noued créé.

Je me demande si mon problème est que le DocumentElement ne serrait pas initialisé.

Je suis en train d'essayer avec ceci :

Code :

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

mrXMLDoc.DocumentElement := mrXMLDoc.ChildNodes[0];

Mais j'ai des bugs à corriger et on va voir si ça donne ce qu'il faut.

[WebPac]

Je n'avais pas en fait tout lu.
Je ne sais pas si c'est ça mais maintenant il ne fait plus de violations d'accés sur le DocumentElement.

Je te tiens au courant si tout marche ou non.

[WebPac]

J'ai rajouté le paramètre application dans le create du XMLDocument et ça marche bien mieux, ce n'est pas parfait mais ça avance.

Ce qui est étrange, c'est que le terme Application ne soit pas reconnu dans toutes les fiches, j'ai mis des XMLDocument dans un certain nombre de fiches, certaines acceptent le terme Application et d'autres non, donc j'ai dû mettre Self parfois qui est un Composant hérité de TComponent.

Je continues à chercher.

Si j'initialise :

Code :

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

mrXMLDoc.DocumentElement := mrXMLDoc.ChildNodes[0];

Je n'obtiens pas la même chose que si je ne l'initialise pas.

[Castagnems]

Tu veux bien mettre la sutie de ton code, j'ai peut-être une idée de la raison pour laquelle ca plante ?

[WebPac]

Finalement ça marche, j'ai enlevé l'initialisation du DocumentElement au ChildNodes[0] du document XML.
J'ai mis l'application en Owner et si elle n'était pas reconnue, j'ai mis je composant dérivant d'un TComponent en Owner.
J'ai recherché le code et je ne sais plus pour quel objet il buguait.

Merci pour tout, je veux bien finalement connaitre ton idée.

PS : voici tout de même une partie de code que je fais :

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
var
  mrXMLDoc: TXMLDocument;
  Temp: string;
begin
  if not FileExists(aNomFichier) then
    Exit;
 
  mrXMLDoc := TXMLDocument.Create(Application);
  mrXMLDoc.DOMVendor := GetDOMVendor('MSXML');
  mrXMLDoc.Active := True;
  mrXMLDoc.LoadFromFile(aNomFichier);
 
// CheminFichier
  try
    FCheminFichier := mrXMLDoc.DocumentElement.ChildNodes['CheminFichier'].Text;
  except
    MessageDlg(Format(rs_ImpLireChemFichierMod, [FNom]), mtInformation, [mbOk], 0);
    FCheminFichier := '';
  end;

[Castagnems]

Je pense qu'en fait, tu ne peux pas directement travailler sur le tXMLDocument, mais que tu dois instancier un noeud, puis travailler à partir de là. (Que les pros du Delphi me corrigent) ...

Ca donnerait un truc du genre :

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
 
 
var 
  mrXMLDoc : TXMLDocument; 
  aNode      : iXMLNode ;  
  Temp        : string;  
 
begin
  if not FileExists(aNomFichier) then 
    Exit; 
 
  mrXMLDoc := TXMLDocument.Create(Application); 
  mrXMLDoc.DOMVendor := GetDOMVendor('MSXML'); 
  mrXMLDoc.Active := True; 
  mrXMLDoc.LoadFromFile(aNomFichier); 
 
  aNode := mrXMLDoc.DocumentElement ; 
 
  // tu peux rajouter un test ici c plus 'propre' qu'avec un try
  FCheminFichier  := aNode.ChildNodes['CheminFichier'].Text; 
 
end ;

[Pierre Castelain]

Je pense qu'en fait, tu ne peux pas directement travailler sur le tXMLDocument, mais que tu dois instancier un noeud, puis travailler à partir de là. (Que les pros du Delphi me corrigent) ...

Il n'y a pas d'instanciation suplémentaire dans ton code, juste une variable intermédiaire. Cela ne change rien à priori.
Le problème est vraiment lié à l'instanciation d'un TXMLDocument en passant nil comme Owner. Je me suis déjà heurté à ce problème et un fil de discussion assez récent en parle : http://www.developpez.net/forums/viewtopic.php?t=279667

[Castagnems]

Merci bien ...

Le composant Delphi est donc légèrement 'buggué' ?

Tiens, ce ne serait pas intéressant de créer un post-it reprenant tous les bugs du genre ? :-D

[WebPac]

Merci, en fait bosser sur un noeud initialisé à XMLDoc.DocumentElement ou direct sur XMLDoc.DocumentElement n'a rien changé, c'était le Owner à nil qui posait problème, exactement comme ce qui est écrit dans les sujets mis par Pierrot.

[Nono40]

Tiens, ce ne serait pas intéressant de créer un post-it reprenant tous les bugs du genre ? :-D

Ou de les ajouter à la FAQ