我正在开发一个跨平台应用程序(适用于 Windows、Mac 等)以及 32 位和 64 位机器。
我有很多 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;
显然您需要一个跨平台验证器。
Maybe Libxml2 (http://xmlsoft.org/)是一个选项,因为它可以在许多平台上的许多编程语言中使用。
Libxml2 的开源 Pascal 包装器可在http://sourceforge.net/projects/libxml2-pas/
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)