Moin jetzt hab ich es geschaft
XML auszulesen und in eine Datenbank zu speichern, nun will ich aber in eine schon bestehende
XML-Datei reinschreiben. (von OpenOFfice)
Die ist folgendermaßen aufgebaut:
XML-Code:
<block-list:block-list>
-<block-list:block block-list:abbreviated-name="(c)" block-list:name="©"/>
-<block-list:block block-list:abbreviated-name="(r)" block-list:name="®"/>
-<block-list:block block-list:abbreviated-name="Accesoir" block-list:name="Accesoire"/>
Ich habe mir das folgendermaßen gedacht:
Delphi-Quellcode:
procedure WriteOOAutoKorrekt(AOwner:TComponent);
var
kn, knSequ : integer;
knoten, element : IDOMNode; //atname, cardAtName//SequKnoten, //cardElement,
value1, value2 : string;
stream : TStream;
XMLDoc : TXMLDocument;
newChild, newNode : IDOMNode;
begin
XMLDoc := TXMLDocument.Create(AOwner);
newChild.???
newChild.nodeName := 'neuerTest';
newNode.nodeValue := 'neuerTest222';
XMLDoc.LoadFromFile('c:\test.xml');
XMLDoc.DocumentElement.DOMNode.ChildNodes.length;
XMLDoc.DocumentElement.DOMNode.insertBefore(newNode,newChild);
XMLDoc.AddChild('test','test');
XMLDoc.SaveToFile('c:\test2.xml');
end;
Aber so richtig weiter komm ich nicht...
Wie gehts weiter wenn ich da einen neuen Eintrag reinschreiben will.
danke für alle Gedanken
euer Andreas
PS: es geht darum die Autokorrektur von OpenOffice auszulesen
und serverbasierend zu speichern.
