Pad*_*dam 5 xml delphi xml-validation xsd-validation firemonkey
我正在开发一个跨平台的应用程序(适用于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;
Run Code Online (Sandbox Code Playgroud)
显然您需要一个跨平台验证器。
也许Libxml2 ( http://xmlsoft.org/ ) 是一个选择,因为它可以在许多平台上的许多编程语言中使用。
Libxml2 的开源 Pascal 包装器可在http://sourceforge.net/projects/libxml2-pas/上找到
归档时间: |
|
查看次数: |
1255 次 |
最近记录: |