Ich hab hier eine Anwendung die eine
XML Datei erstellen/speichern soll.
Jedoch klappt das irgendwie nicht Knoten hinzu zufügen bzw. beim Speichern
der Datei am Ende wird eine 0 Byte große Datei erstellt.
Irgendwie bin ich ratlos, was ich machen muß um den Root Knoten zuerstellen
und dann weitere Unterknoten.
Zur Erstellung benutze ich die Komponente TXMLDocument von Delphi 2007 Prof. für
Win32
Delphi-Quellcode:
XMLDoc := TXMLDocument.Create(Application);
try
XMLDoc.Active := True;
XMLDoc.Version := '
1.0';
XMLDoc.Encoding := '
UFT-8';
//Root Node
RootNode := XMLDoc.AddChild('
tables');
for Idx := 0
to High(Tables)
do begin
ItemNode := RootNode.AddChild('
tab'+IntToStr(Idx));
ItemNode.Attributes['
name'] := Tables[Idx].
Name;
end;
{for}
XMLDoc.Active := True;
//Node := XMLDoc.AddChild('tables');
Writeln(XMLDoc.XML.Text);
//XML Dokument formatieren
XMLDoc.XML.Text := FormatXMLData(XMLDoc.XML.Text);
XMLDoc.Active := True;
//XML Dokument speichern
XMLDoc.SaveToFile('
tables.xml');
finally
XMLDoc.Free;
end;