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('Alice 30 - 从流（如
TStringStream）：XMLDoc.LoadFromStream(Stream); - 加载后建议检查
XMLDoc.ParseError.ErrorCode = 0判断是否成功，否则读取ParseError.Reason获取错误信息
解析 XML（读取节点与属性）
通过 DocumentElement 开始遍历，常用方法有：
使用JSON进行网络数据交换传输 中文WORD版
下载
本文档主要讲述的是使用JSON进行网络数据交换传输；JSON（JavaScript ObjectNotation）是一种轻量级的数据交换格式，易于阅读和编写，同时也易于机器解析和生成，非常适合于服务器与客户端的交互。JSON采用与编程语言无关的文本格式，但是也使用了类C语言的习惯，这些特性使JSON成为理想的数据交换格式。 和 XML 一样，JSON 也是基于纯文本的数据格式。由于 JSON 天生是为 JavaScript 准备的，因此，JSON的数据格式非常简单，您可以用 JSON 传输一个简单的 St
- 获取根节点：
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 并指定编码。
