2013-06-28 27 views
5

我正在开发跨平台应用程序(用于Windows,Mac等)以及32位和64位机器。 我有很多XML文件,我需要验证他们的XSD在FireMonkey中针对XSD验证XML文件

在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; 

回答

2

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

也许Libxml2http://xmlsoft.org/)是一个选项,因为它可以在很多平台上使用许多编程语言。

一个开源的Pascal包装的libxml2的是http://sourceforge.net/projects/libxml2-pas/

+0

感谢avalaible为response.i试图在上述网站,但似乎还有德尔福没有例子。 –

+0

@ user2531352使用Google - 请参阅我的编辑 – mjn

+0

Thanks.I已使用该功能,但在启动时出现访问冲突。 –