[Delphi 6] XML - Plantage lors de l'appel à "ChildNodes.FindNode"

Version imprimable

Hello,

J'ai un crash sévère de mon appli au moment où je fais un "XMLDoc.DocumentElement.ChildNodes.FindNode('Nom');", et je ne comprends pas du tout d'où celà peut venir ?

Ci-joint le code (simplifié pour le source principal)

fichier test.xml

<Root>
<Nom>DUPONT</Nom>
<Prenom>Robert</Prenom>
</Root>

Appli principale :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
.
.
uses xmlfunction;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
   P_read_XML_file ('C:\_dev\xml\test.xml');
end;

Unité :

Code:

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
unit xmlfunction;
 
interface
 
uses xmldom, XMLIntf, msxmldom, XMLDoc,Dialogs, SysUtils;
 
function P_read_XML_file (filename : string) : string;
 
implementation
 
function P_read_XML_file (filename : string) : string;
var  XMLDoc: TXMLDocument;
     Node  : IXMLNode;
begin
 
  try
    XMLDoc           := TXMLDocument.Create(nil);
    XMLDoc.DOMVendor := DOMVendors.Find ('MSXML') ;
    XMLDoc.Options   := [doNodeAutoIndent, doAttrNull];
    XMLDoc.Active    := true;
 
    If FileExists(filename) then
    begin
      XMLdoc.LoadFromFile(filename);
 
      ShowMessage('Jusqu''ici tout va bien');
 
      Node := XMLDoc.DocumentElement.ChildNodes.FindNode('Nom'); // PLANTAGE !
    end;
  finally
    XMLDoc.Free;
  end;
 
  Result := 'Fin_procedure';
end;
 
end.

Essai ca :

Citation:

[QR] Comment récupérer un noeud par son nom ?

La procédure ci-dessous permet de recupérer un noeud d'un document XML grâce à son nom

Code:

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
 
function GetNode(XmlNode : IXmlNode;NodeName : String) : IXmlNode;
var
 i : integer;
begin
  Result := nil;
 
//Les noeuds internes sont traités récursivement
  if XMLNode.NodeType <> ntElement then
    Exit;
 
  //S'il s'agit d'une feuille
  if XMLNode.IsTextElement then
    if UpperCase(XmlNode.NodeName) = UpperCase(NodeName) then
    begin
      Result := XmlNode;
      Exit;
    end;
  // S'il s'agit d'un attribut
  for i := 0 to XMLNode.AttributeNodes.Count - 1 do
    if UpperCase(XMLNode.AttributeNodes.Nodes[I].NodeName) = Uppercase(NodeName) then
    begin
      Result := XMLNode.AttributeNodes.Nodes[I];
      Exit;
    end;
 
  // Si le noeud a des enfants on recherche dedans.
  if XMLNode.HasChildNodes then
    for I := 0 to XMLNode.ChildNodes.Count - 1 do
    begin
      Result := GetNode(XmlNode.ChildNodes.Nodes[I],NodeName);
      // si on a un resultat on quitte car c'est celui qu'on recherche
      if Result <> nil then
        Exit;
    end;
end;

Pour l'appel de la fonction :

Code:

1
2
3
4
5
6
7
8
 
var
  Noeud : IXmlNode;
begin
  Noeud := GetNode(XmlDoc,'MonNoeud');
  if Assigned(Noeud) then
    Showmessage(La valeur de ' + Noeud.NodeName + ' est de ' + Noeud.Text);
end;

25/07/2006, 20h03
wizdom

Malheureusement le résultat est le même...crash de l'appli.

En revanche il y a une petite erreur dans ton code. Quand tu appel la fonction GetNode :

Code:

Noeud := GetNode(XmlDoc,'MonNoeud');

XmlDoc est du type TXMLDocument alors que la fonction GetNode attends un IXMLNode.

J'ai essayé XMLDoc.DocumentList à la place et meme un XMLDoc.DocumentList.ParentNode, mais rien n'y fait ?

J'ai l'impression que mon objet XMLDoc est mal paramétré ? En effet, le même code utilisé directement dans l'application principale avec un composant XMLDocument déposé sur la fiche et renommé 'XMLDoc' fonctionne parfaitement !!!?
25/07/2006, 21h52
NoisetteProd

Salut,
essaye peut être de remplacer :

Code:

XMLDoc := TXMLDocument.Create(nil);

par

Code:

XMLDoc := TXMLDocument.Create(self);

;)
25/07/2006, 22h27
slimjoe
Je viens tout juste d'avoir un problème semblable qui a été réglé grâce à cet article :

http://bdn.borland.com/article/0,1410,29241,00.html

En gros, ça dit que TXMLDocument.Create ne retourne pas un objet TXMLDocument mais une interface IXMLDocument. J'ai du changer ça dans mon code pour que ça marche :
Code:

1 2 3 var //XMLDoc: TXMLDocument; Ancienne déclaration XMLDoc: IXMLDocument; //Nouvelle déclaration

Bien vu Slimjoe !

En revanche, certaines méthodes/propriétés ne sont du coup plus accessibles. Ainsi, ma procédure deviendra :

Code:

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
function P_read_XML_file (filename : string) : string;
var  XMLDoc: IXMLDocument;
     Node  : IXMLNode;
begin

  try
    XMLDoc           := TXMLDocument.Create(nil); // 
     // XMLDoc.DOMVendor := DOMVendors.Find ('MSXML') ; // Non supporté supported
    XMLDoc.Options   := [doNodeAutoIndent, doAttrNull];
    XMLDoc.Active    := true;

    If FileExists(filename) then
    begin
      XMLdoc.LoadFromFile(filename);

      ShowMessage('Jusqu''ici tout va bien');

      Node := XMLDoc.DocumentElement.ChildNodes.FindNode('Nom'); // Plus de plantage :D
  end;
  finally
    // XMLDoc.Free; // Non supporté
  end;

  Result := 'Fin_procedure';
end;

Merci beaucoup !