17370845950

Delphi中TXMLDocument需设Active=True才可用，支持MSXML/OpenXML；可加载文件/字符串/流，解析用DocumentElement遍历，生成节点须用OwnerDocument创建，保存时注意UTF-8编码处理。

Delphi 中使用 TXMLDocument 解析和生成 XML 是常见需求，但要注意它在不同版本中的行为差异（尤其是 Delphi 7 到 XE 系列），以及底层依赖（MSXML 或 OpenXML）。核心在于正确创建、加载、遍历和保存文档。

创建和初始化 TXMLDocument

TXMLDocument 是一个封装类，本身不直接持有 XML 数据，而是代理到底层 DOM 对象。必须显式启用 Active 属性才能使用：

• 设计时：在窗体上拖入 TXMLDocument，将 Active 属性设为 True；或代码中调用 XMLDoc.Active := True;
• 若需指定解析器（如避免 MSXML 依赖），可设置 DOMVendor 属性，例如：XMLDoc.DOMVendor := GetDOMVendor('OpenXML');（需引用 Xml.XMLDoc 和 Xml.xmldom）
• 新建空文档：调用 XMLDoc.LoadFromXML(''); 或先 XMLDoc.Active := False; 再 XMLDoc.XML.Text := '';，最后激活

加载外部 XML 文件或字符串

支持从文件、流、字符串加载：

• 从文件：XMLDoc.LoadFromFile('data.xml');
• 从字符串：XMLDoc.LoadFromXML('Alice30');
• 从流（如 TStringStream）：XMLDoc.LoadFromStream(Stream);
• 加载后建议检查 XMLDoc.ParseError.ErrorCode = 0 判断是否成功，否则读取 ParseError.Reason 获取错误信息

解析 XML（读取节点与属性）

通过 DocumentElement 开始遍历，常用方法有：

• 获取根节点：Root := XMLDoc.DocumentElement;
• 查找子节点：NameNode := Root.ChildNodes.FindNode('name'); 或 Root.ChildNodes[0] 按索引访问
• 读取文本内容：NameNode.Text（注意：会自动合并所有子文本节点）
• 读取属性值：Root.Attributes['version'] 或 Root.GetAttribute('version')
• 遍历所有同名子节点：for i := 0 to Root.ChildNodes.Count - 1 do begin Node := Root.ChildNodes[i]; ... end;

生成和修改 XML（添加/更新节点）

所有节点操作需通过 OwnerDocument 创建，确保归属正确：

• 创建新元素：NewNode := XMLDoc.CreateElement('phone');
• 设置文本内容：NewNode.Text := '13800138000';
• 添加属性：NewNode.SetAttribute('type', 'mobile');
• 追加到父节点：Root.ChildNodes.Add(NewNode); 或 Root.ChildNodes.Insert(0, NewNode);
• 修改现有节点：Node.Text := 'New Value'; 或 Node.SetAttribute('id', '2');
• 删除节点：Node.ParentNode.ChildNodes.Remove(Node);

保存结果：调用 XMLDoc.SaveToFile('output.xml'); 或读取 XMLDoc.XML.Text 获取字符串。注意编码问题——默认 UTF-16，如需 UTF-8 可用 TStringStream 配合 SaveToStream 并指定编码。