5

特定のスキーマに対してXMLを検証するために、MSDNでJScriptの例を書き直そうとしました。

最初の試みとして、例で使用されているように、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検証OK」が表示されます。誰かがこれを見たことがありますか？上記のコードとJScriptの例http://msdn.microsoft.com/en-us/library/ms764717%28VS.85%29.aspxの基本的な違いは何ですか？

4

1 に答える 1

8

これを試して

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）。

さよなら。

于 2009-10-01T00:26:48.763 に答える