delphi - MSXML 6 の SAX による DTD 検証 - Delphi XE5

Question

次のコードは、「EOleException: 検証中のエラー」を出力します。次のエラーです: 0xC00CE225 XMLOM_VALIDATE_INVALID 検証に失敗しました。

エラーハンドラーを追加すると、正確なエラーメッセージは「スキーマが見つからなかったため、XML は有効でも無効でもありません」です。

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.