xml - Delphi：无效的 XML 通过 MSXML 验证

Question

我试图在 MSDN 上重写一个 JScript 示例，以便针对某些模式验证 XML。

作为第一次尝试，我使用了示例中使用的 sl-valid.xml、sl-notValid.xml 和 sl.xsd 文件。

我的代码如下：

procedure BasicValidation(FileName: string);
var
  XML: IXMLDOMDocument2;
begin
  // Load XML and resolve externals
  XML := ComsDOMDocument.Create;
  XML.async := False;
  XML.validateOnParse := True;
  XML.resolveExternals := True;
  XML.setProperty('SelectionLanguage', 'XPath');
  XML.setProperty('SelectionNamespaces', 'xmlns:x=''urn:book''');
  XML.load(FileName);
  if XML.parseError.errorCode <> 0 then
    ShowMessage('Error parsing. Reason: ' + XML.parseError.reason)
  else
    ShowMessage('XML validation OK.');
end;

当我尝试 sl-notValid.xml 文件时，我仍然得到“XML 验证正常”。有没有人见过这个？上述代码与 JScript 示例http://msdn.microsoft.com/en-us/library/ms764717%28VS.85%29.aspx之间的根本区别是什么？

Answer 1

尝试这个

procedure BasicValidation(FileName: string);
var
  XML: IXMLDOMDocument2;
begin
  XML := CoDOMDocument40.Create;
  XML.async := False;
  XML.validateOnParse := True;
  XML.resolveExternals := True;
  XML.setProperty('SelectionLanguage', 'XPath');
  XML.setProperty('SelectionNamespaces', 'xmlns:x=''urn:book''');
  XML.load(FileName);
  if XML.parseError.errorCode <> 0 then
    ShowMessage('Error parsing. Reason: ' + XML.parseError.reason)
  else
    ShowMessage('XML validation OK.');
end;

说明，您必须显式调用支持 XSD 架构验证 (MSXML>= 4) 的版本的构造函数。

再见。