我正在开发一个跨平台应用程序(适用于 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;