[BCB6] TXMLDocument - Fichier xml vide!

Version imprimable

Bonjour tout le monde.
Je m'interroge sur le pourquoi de la création d'un fichier xml vide. En gros mon fichier est vide, 0 octet 8O

En scrutant les exemples de créations puis de lecture, j'ai tenter de faire un fichier qui ressemble à ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 <...déclaration...> <RPG> <Talundra> <Concepteur>Elibom</Concepteur> <Date>25/06/2009</Date> </Talundra> <Deolia> <Concepteur>Elibom</Concepteur> <Date>25/06/2009</Date> </Deolia> </RPG>
Bien sur j'ai d'autres "fiches" (noeuds) qui doivent au fur et à la mesure se créer avec un nouveau concepteur.

Pour faire ma tentative, je me suis inspiré des liens: http://www.developpez.net/forums/d36...e-fichier-xml/ et http://www.developpez.net/forums/d26...txmldocumment/

Toutefois j'ai fait ce code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 void __fastcall TForm1::Button1Click(TObject *Sender) { //Créer un fichier xml Form1->XMLDocument1->Active = true; // Activer le document avant d'écrire dedans // Créer un noeud _di_IXMLNode Noeud; Noeud = Form1->XMLDocument1->CreateNode(WideString("RPG")); // Créer un noeud Noeud = Form1->XMLDocument1->CreateNode(WideString("Talundra")); //Enregistre le fichier xml Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"\\TestXml.xml"); //Vider un objet TXMLDocument Form1->XMLDocument1->XML->Clear(); }
Je serais assez content si je pouvais avoir un peu d'aide.
Merci

25/06/2009, 16h39
Crayon
Salut, essaie ceci:
Code:

1 2 3 4 _di_IXMLNode Noeud; Noeud = XMLDocument1->CreateNode(WideString("RPG")); // Créer un noeud Noeud = Noeud->CreateNode(WideString("Talundra"));
PS: J'ai pas tester le code, j'ai jamais écris dans un fichier XML. Par contre j'e suis capable de les lire: http://www.developpez.net/forums/d72...t/#post4228694

Bon et bien j'ai un peu avancé,
J'arrive à faire un fichier qui contient:

Code:

<?xml version="1.0" encoding="UTF-8"?>

mais le reste, j'ai beau essayer, n'apparaît pas!

Voici mon bout de code.
C'est vrai que j'ai retirer le bout de code qui suit car il me provoque des erreurs.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        //Créer un fichier xml
        Form1->XMLDocument1->Active = true;  // Activer le document avant d'écrire dedans
 
        //Crée un déclaratif
        Form1->XMLDocument1->Version = "1.0";
        Form1->XMLDocument1->Encoding = "UTF-8";
 
        //La suite du code que je n'ai pas su faire...
 
 
        //Enregistre le fichier xml
      Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"\\TestXml.xml");
 
        //Vider un objet TXMLDocument
        Form1->XMLDocument1->XML->Clear();
}

Si vous avez une petite idée, une piste.
Merci.

25/06/2009, 16h43
Caxton
Citation:
Envoyé par Crayon

Salut, essaie ceci:

Code:

1 2 3 4 _di_IXMLNode Noeud; Noeud = XMLDocument1->CreateNode(WideString("RPG")); // Créer un noeud Noeud = Noeud->CreateNode(WideString("Talundra"));

PS: J'ai pas tester le code, j'ai jamais écris dans un fichier XML. Par contre j'e suis capable de les lire: http://www.developpez.net/forums/d72...t/#post4228694
J'ai déjà essayer, sans succès!

Fais une exécution pas-à-pas et regarde si c'est possible de d'aller sur le deuxième CreateNode:
Code:

1 2 3 4 5 6 _di_IXMLNode Noeud; Noeud = XMLDocument1->CreateNode(WideString("RPG")); if(Noeud != NULL) { Noeud = Noeud->CreateNode(WideString("Talundra")); }

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
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        //Créer un fichier xml
        Form1->XMLDocument1->Active = true;  // Activer le document avant d'écrire dedans
 
        //Crée un déclaratif
        Form1->XMLDocument1->Version = "1.0";
        Form1->XMLDocument1->Encoding = "UTF-8";
 
        _di_IXMLNode Noeud;
        Noeud = XMLDocument1->CreateNode(WideString("RPG"));
        if(Noeud != NULL)
        {
                Noeud = Noeud->CreateNode(WideString("Talundra"));
        }
 
 
        //Enregistre le fichier xml
        Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"\\TestXml.xml");
 
        //Vider un objet TXMLDocument
        Form1->XMLDocument1->XML->Clear();
 
}

1) Si je tape tel que, je tombe sur le message d'erreur suivant:

Citation:

[C++ Erreur] TestXml.cpp(49): E2316 'CreateNode' n'est pas un membre de 'IXMLNode'

-------------------------------------------------------------------------

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
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        //Créer un fichier xml
        Form1->XMLDocument1->Active = true;  // Activer le document avant d'écrire dedans
 
        //Crée un déclaratif
        Form1->XMLDocument1->Version = "1.0";
        Form1->XMLDocument1->Encoding = "UTF-8";
 
        _di_IXMLNode Noeud;
        Noeud = Form1->XMLDocument1->CreateNode(WideString("RPG"));
        if(Noeud != NULL)
        {
                Noeud = Noeud->CreateNode(WideString("Talundra"));
        }
 
 
        //Enregistre le fichier xml
        Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"\\TestXml.xml");
 
        //Vider un objet TXMLDocument
        Form1->XMLDocument1->XML->Clear();
 
}

2) Si je modifie pour aller à la seconde ligne, j'ai le message suivant:

Citation:

[C++ Erreur] TestXml.cpp(49): E2316 'CreateNode' n'est pas un membre de 'IXMLNode'

Donc cela ne m'avance à ren, si je puis me permettre!
Cordialement.

Salut Elibom
En me basant sur les liens fournis, j'ai teste ceci qui semble ecrire dans le fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        //Créer un fichier xml
        Form1->XMLDocument1->Active = true;  // Activer le document avant d'écrire dedans
        //Crée un déclaratif
        Form1->XMLDocument1->Version = "1.0";
        Form1->XMLDocument1->Encoding = "UTF-8";
 
   // Créer un noeud
   _di_IXMLNode Noeud;
   Noeud = XMLDocument1->CreateNode(WideString("Noeud1"));
   // Ajouter un attribut a ce noeud
   Noeud->SetAttribute(WideString("Attribut1"), WideString("Valeur"));
   // On ajoute le noeud (ici ce sera la racine, sinon
   // tu appels ChildNodes->Add() du noeud auquel tu veux l'ajouter
  XMLDocument1->ChildNodes->Add(Noeud);
        //Enregistre le fichier xml
      Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"<a href="file://\\TestXml.xml" target="_blank">\\TestXml.xml</a>");
        //Vider un objet TXMLDocument
        Form1->XMLDocument1->XML->Clear();
}

25/06/2009, 18h58
Caxton

Et bien ça plante!

Bon et bien tout le monde va être content car j'ai trouver la réponse à mon problème! :ccool:

En fait je suis repartit de 0, relue tout ce que j'avais sous la main et j'en ai déduit les codes suivant avec les résultats suivants:

Pour <JDR Attribut1="Valeur1"/> Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
//Créer un fichier xml
Form1->XMLDocument1->Active = true;  // Activer le document avant d'écrire dedans
 
//Crée un déclaratif
Form1->XMLDocument1->Version = "1.0";
Form1->XMLDocument1->Encoding = "UTF-8";
 
_di_IXMLNode Noeud;
Noeud = Form1->XMLDocument1->CreateNode(WideString("JDR"));
Noeud->SetAttribute(WideString("Attribut1"), WideString("Valeur1"));
Form1->XMLDocument1->ChildNodes->Add(Noeud);
 
//Enregistre le fichier xml
 Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"\\TestXml.xml");
 
//Vider un objet TXMLDocument
Form1->XMLDocument1->XML->Clear();

Pour <JDR>Test</JDR> Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
//Créer un fichier xml
Form1->XMLDocument1->Active = true;  // Activer le document avant d'écrire dedans
 
//Crée un déclaratif
Form1->XMLDocument1->Version = "1.0";
Form1->XMLDocument1->Encoding = "UTF-8";
 
Balise = Form1->XMLDocument1->CreateNode(WideString("JDR"));
Balise->SetText(WideString("Test"));
Form1->XMLDocument1->ChildNodes->Add(Balise);
 
//Enregistre le fichier xml
Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"\\TestXml.xml");
 
//Vider un objet TXMLDocument
Form1->XMLDocument1->XML->Clear();

Pour <JDR Nom="Talundra"/> Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
//Créer un fichier xml
Form1->XMLDocument1->Active = true;  // Activer le document avant d'écrire dedans
 
//Crée un déclaratif
Form1->XMLDocument1->Version = "1.0";
Form1->XMLDocument1->Encoding = "UTF-8";
 
Balise = Form1->XMLDocument1->CreateNode(WideString("JDR"));
Balise->SetAttributeNS(WideString("Nom"), WideString(""), WideString("Talundra"));
Form1->XMLDocument1->ChildNodes->Add(Balise);
 
//Enregistre le fichier xml
Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"\\TestXml.xml");
 
//Vider un objet TXMLDocument
Form1->XMLDocument1->XML->Clear();

Pour <JDR><Jeu/></JDR> Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
//Créer un fichier xml
Form1->XMLDocument1->Active = true;  // Activer le document avant d'écrire dedans
 
//Crée un déclaratif
Form1->XMLDocument1->Version = "1.0";
Form1->XMLDocument1->Encoding = "UTF-8";
 
_di_IXMLNode Balise;
Balise = Form1->XMLDocument1->CreateNode(WideString("JDR"));
Balise->ChildNodes->Add(Form1->XMLDocument1->CreateNode(WideString("Jeu")));
Form1->XMLDocument1->ChildNodes->Add(Balise);
 
//Enregistre le fichier xml
Form1->XMLDocument1->SaveToFile(ExtractFilePath(Application->ExeName)+"\\TestXml.xml");
 
//Vider un objet TXMLDocument
Form1->XMLDocument1->XML->Clear();

Tout ces bouts de codes fonctionnent correctement sur mon application de test et crée un xml.
En vous remerciant quand même pour les aides et indications qui m'ont permis de réaliser un fichier plein et non plus vide.
Cordialement.