使用MSXML 6中的SAX进行DTD验证 - Delphi XE5

Question

以下代码输出＆＃34; EOleException：验证期间出错＆＃34;。这是错误： 0xC00CE225 XMLOM_VALIDATE_INVALID 验证失败。

如果我添加错误处理程序，确切的错误消息是＆＃34; XML既不是有效也不是无效，因为没有找到架构＆＃34;。

MSXML 6 SAX解析器是否支持嵌入DTD？

program TestSAXValidation;

{$APPTYPE CONSOLE}

{$R *.res}

uses
    ActiveX, System.SysUtils, Winapi.msxml;

var
    R: IVBSAXXMLReader;
begin
    CoInitialize(nil);

  try
    R := CoSAXXMLReader60.Create;
    R.putFeature('use-inline-schema', True);
    R.putFeature('schema-validation', True);
    R.putFeature('exhaustive-errors', True);
    R.putFeature('prohibit-dtd', False);
    R.parse('<!DOCTYPE a[<!ELEMENT a (#PCDATA)>]> <a></a>');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.