如何在 Delphi 中读取 XML 文件？

Question

这是我想做的事情。 我的程序运行良好：

XMLText =  '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>' +
'<book xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">' +
  '<title>Harry Potter</title>' +
  '<author>J. K. Rowling.</author>' +
  '<length>400</length>' +
'</book>';


procedure TForm1.Button1Click(Sender: TObject);
var
XMLDoc: IXMLDOMDocument;
Node, SibNode: IXMLDOMNode;
begin
  Memo1.Clear;
  XMLDoc := CoDOMDocument.Create;
  XMLDoc.loadXML(XMLText);
end;

现在我想从项目所在的同一文件夹中导入包含 6000 本书 (books.xml) 的 XML 文件，而不是 const XMLText。我该怎么做？

谢谢！ :)

Answer 1

选项 1：直接从磁盘加载

IXMLDomDocument 有一个接受文件名的load 方法。您可以使用该方法代替您当前使用的loadXML。

选项2：首先将文件加载到字符串中

或者，您可以先将文件加载到字符串中。在这种情况下，我几乎找不到任何理由这样做，但知道它永远不会有害。 :)

看看TStringStream，它有一个LoadFromFile 方法从磁盘加载文件。您可以使用它将整个books.xml 加载到内存中。加载文件后，您可以将字符串流的DataString 属性传递给loadXML 方法。此属性将流的全部内容（包含 XML）作为字符串返回。

Answer 2

为此使用 Delphi XML Data Binding Wizard。

它将在您的 XML 文件周围生成一个带有 Delphi 包装对象的单元（或者如果您有一个描述 XML 的 XSD 文件）。

这些包装器基于IXMLDocument，它与您现在使用的IXMLDOMDocument 非常相似，并在其周围添加一个层，使您可以在Delphi 编译器的更多支持下访问您的数据通常使该过程处理 XML 中的数据比使用普通的 IXMLDocument 或 IXMLDOMDocument 容易得多。

该单元包含从文件或字符串加载 XML 的方法。

有一个good tutorial 和一个nice video 使用这个向导。

Answer 3

只需将loadXML 更改为load('YourFileName.xml')：

procedure TForm1.Button1Click(Sender: TObject);
var
  XMLDoc: IXMLDOMDocument;
begin
  XMLDoc := CoDOMDocument.Create;
  XMLDoc.load('MyBooks.xml');
  Memo1.Lines.Text := XMLDoc.xml;
end;