Проверка XML-файлов по XSD в 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;