5

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

1 回答 1

2

显然你需要一个跨平台的验证器。

也许Libxml2 ( http://xmlsoft.org/ ) 是一种选择,因为它可以在许多平台上的许多编程语言中使用。

Libxml2 的开源 Pascal 包装器可在http://sourceforge.net/projects/libxml2-pas/上获得

于 2013-06-28T09:56:18.647 回答