Lire fichier XML

**freestyler** · 22/09/2006, 15h12

j'ai écrit ce code là..
je n'arrive pas à accéder à aucun noeud de mon fichier XML, pourtant j'utilise un composant XMLDoc qui est apparemment un des meilleurs sur le marché!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
begin
  nameXML := 'C:\test.xml';
  objXML := TXMLDocument.Create(nil);
  try
    objXML.LoadFromFile(nameXML);
    objXML.Active;
    try
    Noeud := ObjXML.DocumentElement.ChildNodes.First;
    except
    on e : Exception do
    ShowMessage(e.Message);
 
    end;

est ce qu'il y a un ordre particulier à suivre??
ya pas d'erreurs de compilation dans le code, mais j'ai une exception : opération de variant incorrecte au niveau de la ligne qui suit le try..

Merci de m'éclairer SVP

**Rayek** · 22/09/2006, 15h18

Ca focntionnera mieux comme çà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin
  nameXML := 'C:\test.xml';
  objXML := TXMLDocument.Create(nil);
  try
    objXML.FileName := nameXML;
    objXML.Active;
    try
    Noeud := ObjXML.DocumentElement.ChildNodes.First;
    except
    on e : Exception do
    ShowMessage(e.Message);

    end;

Sinon regarde la :
http://www.developpez.net/forums/sho...d.php?t=213059

j'ai mis un code pour rechercher un noeud par son nom.

**freestyler** · 22/09/2006, 15h36

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
 
procedure TFormFicheMembre.Button2Click(Sender: TObject);
var
  Noeud : IXmlNode;
  XmlDoc : TXMLDocument;
  nameXML : string;
 
begin
    nameXML := 'C:\test.xml';
    XmlDoc := TXMLDocument.Create(nil);
    XMLDoc.Active := False;
    XMLDoc.FileName := nameXML; 
    XMLDoc.Active := True;
    Noeud := GetNode(XmlDoc.DocumentElement,'Memo');
 
  if Assigned(Noeud) then
    Showmessage('La valeur de ' + Noeud.NodeName + ' est de : ' + Noeud.Text);
end;

ça ne marche toujours pas...

le XmlDOc.. c quoi?? c un TXMLDocument?? un IXMLDocument??? il lui faut un create ou pas??
ça me renvoie toujours la même exception..

Merci

**freestyler** · 22/09/2006, 15h48

c là que ça provoque l'exception

Code :

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

XmlDoc.DocumentElement;

--> opération de pointeur incorrecte

comment je fais l'appel alors??

comment j'accède au noeud??

en gros, comment je peux lui dire: je veux le noeud qui porte le nom X du fichier Y (surtout que ta fonction getNode demande un IXMLNode en paramètre!!)

Merci

**Rayek** · 22/09/2006, 16h16

Essai en posant le composant sur la fiche, sans faire de création dynamique.

**slimjoe** · 22/09/2006, 16h54

Salut!

Dans l'aide de mon Delhpi 7 (désolé c'est en anglais) :

When TXMLDocument is created without an Owner, it behaves like an interfaced object. That is, when all references to its interface are released, the TXMLDocument instance is automatically freed. When TXMLDocument is created with an Owner, however, it behaves like any other component, and is freed by its Owner. When you add a TXMLDocument component from the component palette to a form or data module, it is automatically created with an Owner. When the TXMLDocument component is created using the global LoadXMLDocument function (or by a function that the XML Data Binding wizard generates to return the root node of the document), the function creates a TXMLDocument instance without an Owner.

En gros ça dit que TXMLDocument.Create ne retourne pas un TXMLDocument quand on ne spécifie pas de propriétaire mais un IXMLDocument

. Aussi, si tu passes nil en paramêtre, je crois que tu dois initialiser la propriété DOMVendor (à vérifier).

Bon dev!

**slimjoe** · 22/09/2006, 16h57

Envoyé par Malatar

Essai en posant le composant sur la fiche, sans faire de création dynamique.

En posant le composant sur la fiche, ça devrait marcher (puisque le propriétaire sera initialisé). Si tu veux continuer à créer l'objet dynamiquement, la référence sur l'objet sera une interface de type IXMLDocument et non un objet de type TXMLDocument.

**WebPac** · 22/09/2006, 17h05

Salut, il faut toujours mettre un objet en paramètre du Create, sinon ça bugue, on ne peut pas mettre nil.

Ensuite, il faut renseiger le DOMVendor, voici comment je fais :

Code :

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

1
2
3
  Result := TXMLDocument.Create( Application );
  Result.DOMVendor := GetDOMVendor( 'MSXML' );
  Result.Active := True;

Result étant un TXMLDocument.

**slimjoe** · 22/09/2006, 17h14

Envoyé par WebPac

Salut, il faut toujours mettre un objet en paramètre du Create, sinon ça bugue, on ne peut pas mettre nil.

Désolé de te contredire mais chez moi ça fonctionne très bien

. Il suffit de savoir comment fonctionnent les objets COM (CoInitialize, IXMLDocument, DOMVendor, etc.).

**slimjoe** · 22/09/2006, 17h24

Je viens de tester ceci avec succès :

Fichier XML ("C:\test.xml"):

Code :

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

1
2
3
<TEST>
  <MEMO>Salut</MEMO> 
</TEST>

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
var
  Noeud : IXmlNode;
  XmlDoc : IXMLDocument;
  nameXML : string;
 
begin
    nameXML := 'C:\test.xml';
    XmlDoc := TXMLDocument.Create(nil);
    XMLDoc.FileName := nameXML;
    XMLDoc.Active := True;
 
    Noeud := XMLDoc.DocumentElement.ChildNodes.FindNode('MEMO');
 
  if Assigned(Noeud) then
    Showmessage('La valeur de ' + Noeud.NodeName + ' est de : ' + Noeud.Text);
end;

**WebPac** · 22/09/2006, 17h28

Envoyé par slimjoe

Désolé de te contredire mais chez moi ça fonctionne très bien

. Il suffit de savoir comment fonctionnent les objets COM (CoInitialize, IXMLDocument, DOMVendor, etc.).

http://www.developpez.net/forums/sho...ocument+Create

**slimjoe** · 22/09/2006, 17h35

Envoyé par WebPac

http://www.developpez.net/forums/sho...ocument+Create

Salut!

Je viens de lire le post et le code ne fonctionne pas justement parce que tu travailles avec un TXMLDocument et non un IXMLDocument. Change la variable pour un IXMLDocument et tu vas voir ça fonctionne très bien (faut aussi enlever la ligne du DOMVendor qui appartient à TXMLDocument).

**WebPac** · 22/09/2006, 17h38

Envoyé par slimjoe

Salut!

Je viens de lire le post et le code ne fonctionne pas justement parce que tu travailles avec un TXMLDocument et non un IXMLDocument. Change la variable pour un IXMLDocument et tu vas voir ça fonctionne très bien (faut aussi enlever la ligne du DOMVendor qui appartient à TXMLDocument).

Je suis content de l'apprendre 1 an et demi après.

Quand j'aurai le courage, je le changerai dans les sources.
Est-ce que ça change niveau performances ? Parce que pour l'instant, c'est pas très rapide.

PS : désolé freestyler, je n'avais pas prévu de polluer ton topic.

**slimjoe** · 22/09/2006, 18h30

Envoyé par WebPac

Est-ce que ça change niveau performances ? Parce que pour l'instant, c'est pas très rapide.

Je ne connais pas les documents XML assez pour répondre à cette question. J'ai appris à travailler avec les IXMLDocument il y a quelques mois seulement et je n'ai jamais utilisé le composant directement. Mais j'imagine que si on utilise directement l'objet COM sans passer par la VCL ça doit être plus rapide. De là à ce que ça soit significatif est une autre histoire

**freestyler** · 26/09/2006, 11h56

merci les gars..
c t effectivemon une histoire de IXML vs TXML ...

j'ai testé.. ça marche super bien!

Lire fichier XML

Delphi

Discussions similaires

Partager

Partager