Comment créer ce XML avec Delphi?

Je veux écrire un peu de code (en Delphi) pour obtenir ce schéma XML, j'ai essayé, mais sans résultat que je veux, pourriez-vous m'aider !
J'utilise (ou si vous voulez utiliser) IXMLDocument créé au moment de l'exécution, mais je ne peux pas comprendre "Nœuds", "ChildNodes" ... je sais, c'est ridicule !

C'est le schéma de l'exemple que je veux :

<Items>
 <Task id="eec0-47de-91bc-98e2d69d75cd">
   <Title>The title of something</Title>
   <State>Done</State>
   <IdNoHashed>This Is a string</IdNoHashed>
   <CreatedDate>28/12/2011 06:24:57</CreatedDate>
   <Note>Just a note</Note>
 </Task>
 <Task id="e2x5d4-2d45c-98e2d69d75cd">
   <Title>Another title</Title>
   <State>Done</State>
   <IdNoHashed>This Is a string 2</IdNoHashed>
   <CreatedDate>28/12/2011 22:22:22</CreatedDate>
   <Note>Just a note, again !</Note>
 </Task>
</items>

Vous avez une suggestion ?
Merci!!!!

EDIT : j'ai Essayé le code de réponse ci-dessous, Il fonctionne très bien, mais quand je veux ajouter une entrée dans la Racine, il réécrit le déjà-existent élément.

Function WriteData (id, title, state, idNH : String) : Boolean;
 var
   Doc: IXMLDocument;
   Items, Task: IXMLNode;
begin
  Doc := NewXMLDocument;
  Items := Doc.AddChild('Items');

  Task := Items.AddChild('Task');
  Task.Attributes['id'] := id;
  Task.AddChild('Title').Text := title;
  Task.AddChild('State').Text := state;
  Task.AddChild('IdNoHashed').Text := idNH;
  Task.AddChild('CreatedDate').Text := DateTimeToStr(Now);
  Task.AddChild('Note').Text := 'Just a note';
end;

J'ai essayé DocumentElement.ChildNodes.FindNode(id), mais pas de succès !

J'ai créé une fonction que j'appelle à chaque fois pour ajouter/modifier une entrée dans le fichier XML, l'entrée est "".
Une idée de comment puis-je faire cela ?!
Merci!!!!

InformationsquelleAutor djiga4me | 2011-12-28
  1. 8

    Vérifier cet exemple d'application qui utilise le IXMLDocument interface, les commentaires dans le source explique comment les éléments sont ajoutés 

    {$APPTYPE CONSOLE}
{$R *.res}
uses
ActiveX,
XMLIntf,
XMLDoc,
SysUtils;
procedure Test;
Var
XML : IXMLDocument;
RootNode, Node, CNode : IXMLNode;
begin
XML := NewXMLDocument;//initializate the interface
XML.Options := [doNodeAutoIndent];//activate the auto indentation
RootNode := XML.AddChild('Items');//add the root node
Node := RootNode.AddChild('Task');//add the task node
Node.Attributes['id'] := 'eec0-47de-91bc-98e2d69d75cd';//<Task id="eec0-47de-91bc-98e2d69d75cd">
CNode:=Node.AddChild('Title');//add the title node
CNode.Text:='The title of something';//<Title>The title of something</Title>
CNode:=Node.AddChild('State');//add the State node
CNode.Text:='Done'; //<State>Done</State>
CNode:=Node.AddChild('IdNoHashed');//add the IdNoHashed node
CNode.Text:='This Is a string'; //<IdNoHashed>This Is a string</IdNoHashed>
CNode:=Node.AddChild('CreatedDate');//add the CreatedDate node
CNode.Text:=FormatDateTime('dd/mm/yyyy hh:nn:ss',EncodeDate(2011,12,28)+EncodeTime(6,24,57,0));//<CreatedDate>28/12/2011 06:24:57</CreatedDate>
CNode:=Node.AddChild('Note');//Add the Note node
CNode.Text:='Just a note'; //<Note>Just a note</Note>
//repeat the process again for the second task node    
Node := RootNode.AddChild('Task');
Node.Attributes['id'] := 'e2x5d4-2d45c-98e2d69d75cd';
CNode:=Node.AddChild('Title');
CNode.Text:='Another title';
CNode:=Node.AddChild('State');
CNode.Text:='Done';
CNode:=Node.AddChild('IdNoHashed');
CNode.Text:='This Is a string 2';
CNode:=Node.AddChild('CreatedDate');
CNode.Text:=FormatDateTime('dd/mm/yyyy hh:nn:ss',EncodeDate(2011,12,28)+EncodeTime(22,22,22,0));
CNode:=Node.AddChild('Note');
CNode.Text:='Just a note, again !';
Writeln(XML.XML.Text); //Show the output
end;
begin
try
CoInitialize(nil); //use this just in console apps
try
Test;
finally
CoUninitialize;//use this just in console apps
end;
except
on E:Exception do
Writeln(E.Classname, ':', E.Message);
end;
Writeln('Press Enter to exit');
Readln;
end.
    • merci beaucoup pour la précision de trop, et pour le commentaire, j'ai enfin comprendre les choses ! Merci!!!!!
    InformationsquelleAutor RRUZ
  2. 6

    Comme ceci:

    var
Doc: IXMLDocument;
Items, Task: IXMLNode;
begin
Doc := NewXMLDocument;
Items := Doc.AddChild('Items');
Task := Items.AddChild('Task');
Task.Attributes['id'] := 'eec0-47de-91bc-98e2d69d75cd';
Task.AddChild('Title').Text := 'The title of something';
Task.AddChild('State').Text := 'Done';
Task.AddChild('IdNoHashed').Text := 'This Is a string';
Task.AddChild('CreatedDate').Text := DateTimeToStr(Now);
Task.AddChild('Note').Text := 'Just a note';
Task := Items.AddChild('Task');
Task.Attributes['id'] := 'e2x5d4-2d45c-98e2d69d75cd';
Task.AddChild('Title').Text := 'Another title';
Task.AddChild('State').Text := 'Done';
Task.AddChild('IdNoHashed').Text := 'This Is a string 2';
Task.AddChild('CreatedDate').Text := DateTimeToStr(Now);
Task.AddChild('Note').Text := 'Just a note, again!';
//save Doc as needed...
//Doc.SaveToStream(...);
//Doc.SaveToFile(...);
//Doc.SaveToXML(...);
//XML := Doc.XML.Text; 
//etc...

    fin;

    • Merci, c'est simple, (juste ajouter que la Doc.Options:=[doNodeAutoIndent]) pour le Retrait de choses! Je vais l'utiliser pour la facilité !
    InformationsquelleAutor Remy Lebeau