xml - 如何在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加载到内存中。加载文件后，可以将stringstreams的DataString属性传递给loadXML方法。此属性以字符串形式返回流的所有内容（包含XML）。