Delphi:无效的XML通过MSXML验证
发布时间:2020-12-15 09:33:06 所属栏目:大数据 来源:网络整理
导读:我试图在MSDN上重新编写一个JScript示例,以便针对某些模式验证 XML. 作为第一个attmempt,我使用了示例中使用的sl-valid.xml,sl-notValid.xml和sl.xsd文件. 我的代码如下: procedure BasicValidation(FileName: string);var XML: IXMLDOMDocument2;begin //
我试图在MSDN上重新编写一个JScript示例,以便针对某些模式验证
XML.
作为第一个attmempt,我使用了示例中使用的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之间的根本区别是什么? 解决方法
试试这个
procedure BasicValidation(FileName: string); var XML: IXMLDOMDocument2; begin XML := CoDOMDocument40.Create; XML.async := False; XML.validateOnParse := True; XML.resolveExternals := True; XML.setProperty('SelectionLanguage','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). 再见. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |