Я занимаюсь разработкой кроссплатформенного приложения (для 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;