我正在开发一个跨平台的应用程序(适用于
Windows,Mac等)以及32位和64位计算机.
我有很多XML文件需要针对他们的XSD进行验证.
我有很多XML文件需要针对他们的XSD进行验证.
在Delphi XE3中有没有办法做到这一点?
我尝试过DTD验证,但我总是遇到“DTD禁止”错误.我也尝试过很多网站上提到的解决方案来解决这个错误,但我没有成功.
提前致谢.
以下是我用过的代码……
function TForm2.ValidateXML(const xmlFile : TFileName) : boolean; var xmlDoc: TXMLDocument; begin result := false; xmlDoc := TXMLDocument.Create(nil) ; try xmlDoc.ParSEOptions := [poResolveExternals,povalidateOnParse]; try xmlDoc.LoadFromFile(xmlFile) ; xmlDoc.Active := true; //this will validate result := true; except on EX : EDOMParseError do begin ShowMessage('Invalid XML: ' + Ex.Message) ; end; end; finally xmlDoc := nil; end; end;
解决方法
显然,您需要一个跨平台的验证器.
也许Libxml2(http://xmlsoft.org/)是一个选项,因为它可以在许多平台上从许多编程语言中使用.
用于Libxml2的开源Pascal包装器在http://sourceforge.net/projects/libxml2-pas/是可用的