如何用Delphi打开一个XML文档并在文档中加入新的内容

uses msxmldom, XMLDoc, XMLIntf

// 注意节点名 属性名大小写

procedure TForm1.Button1Click(Sender: TObject)

var

// Xml 容器

XMLDoc: TXMLDocument

IXMLDoc: IXMLDocument

// Xml节点

Root_Node: IXMLNode

Parent_Node: IXMLNode

Child_Node: IXMLNode

begin

XMLDoc:= TXMLDocument.Create(nil)

IXMLDoc:= XMLDoc

try

XMLDoc.LoadFromFile('d:\Test.xml')

XMLDoc.Active:= True

XMLDoc.Encoding:= 'UTF-8'

Root_Node:= XMLDoc.DocumentElement

if Root_Node = nil then

Exit

if Root_Node.NodeName <>'map' then

Exit

Parent_Node:= Root_Node.ChildNodes.First

if Parent_Node = nil then

Exit

if Parent_Node.NodeName = 'point' then

begin

Memo1.Lines.Add('point type = "' + Parent_Node.Attributes['type'] + '"')

Child_Node:= Parent_Node.ChildNodes.First

while Child_Node <>nil do

begin

Memo1.Lines.Add(Child_Node.NodeName +

' ' + VarToStr(Child_Node.NodeValue) +

' x = ' + VarToStr(Child_Node.Attributes['X']) +

' y = ' + VarToStr(Child_Node.Attributes['Y']))

Child_Node:= Child_Node.NextSibling

end

end

finally

IXMLDOC:= nil

XMLDoc:= nil

XMLDoc.Free

end

end

用这个试试

[delphi中如何将XML保存到数据库中?]这要看你要保存到数据库的XML规范文件，而规范文件又分简单和复杂的,可以根据数据库管理员提供的标准XML，做XML文本文件。XML的每一行中每一个节点哪些可以更改，哪些不能更改。。。如Dim sRoot As MSXML2.IXMLDOMElement ，sRoot.setAttribute "COMPATIBLE_REV", "" 你要需要看XML的编写方法的书籍，电脑装个接口引擎，再调传网数据。。。。。。 我自己以前刚做这些也用了好几天才搞定。 例子我用VB写的，只说明如何定义IXMLDOMElement，怎样做节点。

---