Problème d'écriture dans un xml depuis Delphi

Version imprimable

Bonjour

je suis débutant en xml et je souhaite modifier un fichier XML quand l'utilisateur clique sur un bouton :

Voici le fichier xml :

Code:

1
2
3
4
5
6
7
8
 
<?xml version="1.0" encoding="UTF-8" ?>
<Utilisateurs>
  <Utilisateur id="1">
  <Surnom> Kaki </Surnom>
  <Score> 0 </Score>
  </Utilisateur>
</Utilisateurs>

Voici le source du code-behind de la WebForm1.aspx où se trouve un TextBox nommé Surnom et un bouton :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var UtilXml:XMLDocument;
    VieuxNoeud,objRoot:XMLNode;
    objElmtParent,objElmtChild:XMLElement;
begin
     UtilXML:=XMLDocument.Create;
     UtilXML.Load('UtilisateursTetris.xml');
     VieuxNoeud:=UtilXML.GetElementById('1');
     objRoot:= UtilXML.DocumentElement;
     objElmtParent:= UtilXML.CreateElement('Utilisateur');
     objElmtChild:=UtilXML.CreateElement('Surnom');
     objElmtChild.InnerText:=Surnom.Text;
     objElmtParent.AppendChild(objElmtChild);
     objElmtChild:=UtilXML.CreateElement('Score');
     objElmtChild.InnerText:= '0';
     objElmtParent.AppendChild(objElmtChild);
     objRoot.ReplaceChild(objElmtParent,VieuxNoeud);
     UtilXML.Save('UtilisateursTetris.xml');
end;

Le problème est qu'à l'éxécution un message d'erreur apparaît pour la ligne

Code:

1
2
3
    La référence d'objet n'est pas définie à une instance d'un objet. 
     objRoot.ReplaceChild(objElmtParent,VieuxNoeud);

merci pour toute aide

05/05/2006, 11h06
ALWEBER

Quelle version de delphi utilises tu ?
05/05/2006, 19h19
MABB

Delphi 2005 Personnal

Je ne suis pas un expert du xml mais j'ai déjà un peu cherché. voici quelques petits bouts de code pour comprendre.

Code:

1
2
3
4
5
6
7
8
//création de XMLDocument
Self.XMLDocument1.DocumentElement := XMLDocument1.CreateElement('PROJECT','');
 
//appel procédure écriture dans un objet défini   
Self.Project.WriteToXMLDocument(XMLDocument1.DocumentElement);
 
//sauvegarde du fichier XML
Self.XMLDocument1.SaveToFile(NomFichier);

Dans l'objet "Project" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TProject.WriteToXMLDocument(Objet : IXMLNode);
var
  ObjectChild1, ObjectChild2 : IXMLNode;
  i : integer;
 
begin
     WriteIntegerInXMLFile(Objet, 'Active_Model', FActiveModel);
 
    if GetNumberOfModels > 0 then
    begin
      ObjectChild1 := SetXMLChildObject(Objet, 'Models');
      for i := 0 to GetNumberOfModels - 1 do
      begin
        ObjectChild2 := SetXMLChildObject(ObjectChild1, 'Model', i);
        Self.GetModel(i).WriteToXMLDocument(ObjectChild2);  
//procédure comparable à celle-ci mais pour un objet enfant
      end;
    end;
 
 end;

Dans cette dernière procédure, j'utilise deux procédures que voici :

Code:

1
2
3
4
5
6
7
8
9
10
function WriteIntegerInXMLFile(ParentObject : IXMLNode; Reference : string; val : integer; Index : integer = -1) : IXMLNode;
begin
  result := ParentObject.AddChild(UpperCase(Reference), index);
  result.NodeValue := val;
end;
 
function SetXMLChildObject(parentObject : IXMLNode; Reference : string; Index : integer = -1) : IXMLNode;
begin
  result := ParentObject.AddChild(UpperCase(Reference), index);
end;

On peut écrire des procédures comparables pour d'autres types que des integer. J'ai aussi écrit des procédures pour la lecture :

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
38
39
function ReadIntegerInXMLFile(parentObject : IXMLNode; Reference : string; DefaultValue : integer; Index : integer = -1) : integer;
var
  ObjetChild : IXMLNode;
begin
  if index > -1 then
    ObjetChild := ParentObject.ChildNodes.Nodes[index]
  else
    ObjetChild := ParentObject.ChildNodes.Nodes[UpperCase(Reference)];
 
  try
    if ObjetChild.Text <> '' then
      result := ObjetChild.NodeValue
    else
      result := DefaultValue;
  except
    result := DefaultValue;
  end;
end;
 
 
function GetXMLChildObject(parentObject : IXMLNode; Reference : string; var found : boolean) : IXMLNode;
begin
  result := parentObject.ChildNodes.FindNode(UpperCase(Reference));
  try
    found := not (result.NodeName = '');
  except
    found := false;
  end;
end;
 
function GetXMLChildObjectWithIndex(parentObject : IXMLNode; index : integer; var found : boolean) : IXMLNode;
begin
  result := parentObject.ChildNodes.Nodes[index];
  try
    found := not (result.NodeName = '');
  except
    found := false;
  end;
end;

J'espère que cela pourra aider

Emmanuel