Validierung von XML-Dateien gegen XSD in FireMonkey
Ich entwickle eine plattformübergreifende Anwendung (für Windows, Mac usw.) sowie für 32-Bit- und 64-Bit-Computer. Ich habe viele XML-Dateien, die ich anhand ihrer validieren mussXSD.
Gibt es eine Möglichkeit, dies in Delphi XE3 zu tun?
Ich habe versucht, eine DTD-Überprüfung durchzuführen, erhalte jedoch immer den Fehler "DTD verboten". Ich habe auch Lösungen ausprobiert, die auf vielen Websites erwähnt wurden, um diesen Fehler zu beheben, aber ich hatte keinen Erfolg.
Danke im Voraus.
Unten ist der Code, den ich verwendet habe ...
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;