Einer bestehenden XML Datei einen Eintrag hinzufügen

[niko022]

Hallo,
ich hätte eine Frage weis jemand wie man bei einer bestehenden xml-Datei Einträge hinzufügen kann.

Meine XML Datei soll den folgenden Aufbau erhalten. Das heißt cContact soll immer hinzugefügt
werden können

Code:

<?xml version="1.0" encoding="UTF-8"?>
<RootNode>
  <cContact>
    <ContactNo>EXTERN_01</ContactNo>
    <iActive>Text2</iActive>
  </cContact>

  <cContact>
    <ContactNo>EXTERN_01</ContactNo>
    <iActive>Text2</iActive>
  </cContact>

  ...

</RootNode>

In Delphi schreibe ich das ganze wie folgt in eine Date:

Delphi-Quellcode:

Stream := TFileStream.Create('Test.xml', fmOpenReadWrite);
Stream.Seek(0, soFromEnd);
DomToXmlParser1.WriteToStream(FDoc, 'UTF-8', Stream);
Stream.Free;

Das Problem dabei ich bekomme natürlich immer den Kopf <?xml version="1.0" encoding="UTF-8"?>
und den <RootNode> mit. Kann man die irgendwie ausschalten.

Der Inhalt der Datei sieht dann so aus:

Code:

<?xml version="1.0" encoding="UTF-8"?>
<RootNode><cContact><ContactNo>EXTERN_01</ContactNo><iActive>Text2</iActive></cContact></RootNode>
<?xml version="1.0" encoding="UTF-8"?>
<RootNode><cContact><ContactNo>EXTERN_02</ContactNo><iActive>Text3</iActive></cContact></RootNode>
<?xml version="1.0" encoding="UTF-8"?>
<RootNode><cContact><ContactNo>EXTERN_03</ContactNo><iActive>Text4</iActive></cContact></RootNode>

Müßte aber eigentlich dann so aussehen?

Code:

<?xml version="1.0" encoding="UTF-8"?>
<RootNode>
<cContact><ContactNo>EXTERN_01</ContactNo><iActive>Text2</iActive></cContact>
<cContact><ContactNo>EXTERN_02</ContactNo><iActive>Text3</iActive></cContact>
<cContact><ContactNo>EXTERN_03</ContactNo><iActive>Text4</iActive></cContact>
</RootNode>

Wie kann ich Datensätze in eine bestehende XML - Datei hinzufügen?


Vielen Dank.