xml - Delphi：尝试访问 XMLDocument 时出现 EInvalidPointer

Question

每次我尝试使用XMLDocument.DocumentElement;.

    begin
      XMLDocument := TXMLDocument.Create(nil); // nil since we don't need an owner
      AStream := TStream.Create;  // stream for output as string
      XMLDocument.loadFromXML(xml);// load string
      if NOT (XMLDocument.IsEmptyDoc) then
       begin      
        XMLDocument.Active := true; // actually automatically done by 'loadFromXML'

        // get document root
        HeadNode := XMLDocument.DocumentElement;

        // add <id>-element, set ID as text
        idNode := HeadNode.AddChild(XML_ID_PLAIN);
        idNode.Text := id;

        // ...
     end;
    end;

传递给的字符串“xml”loadFromXML(string)是有效的 XML，但 XMLDocument 的属性“XML”和“DOMDocument”始终是nil，即使对象本身及其“IsEmptyDoc”属性都不是。Delphi 版本仍然是 2007。

有谁知道是什么原因造成的？提前致谢。

Answer 1

请注意，这不会回答您的问题，为什么会发生您所描述的事情，但会尝试为您提供正确的方法，您想要什么。使用LoadXMLData函数而不是自己创建TXMLDocument实例。这是一个示例代码：

uses
  XMLIntf, XMLDoc;

const
  XMLString =
    '<?xml version="1.0" encoding="UTF-8"?>' +
    '<Setup>' +
    '  <FirstNode>First Node Value</FirstNode>' +
    '  <SecondNode>Second Node Value</SecondNode>' +
    '</Setup>';

procedure TForm1.Button1Click(Sender: TObject);
var
  HeadNode: IXMLNode;
  XMLDocument: IXMLDocument;
begin
  try
    XMLDocument := LoadXMLData(XMLString);
    HeadNode := XMLDocument.DocumentElement;
    if Assigned(HeadNode) then
      ShowMessage(HeadNode.NodeName);
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;