Zitat von
sakura:
Schau doch mal nach (parseErrors.ErrorCode o.ä.), ob das Dokument überhaupt korrekt geladen wurde.
Hier eine Hilfsfunktion, die sehr nützlich bei der Fehlerprüfung ist.
Es wird eine
Exception mit hilfreicher Meldung ausgelöst, was in diesem Falle
ja auch völlig korrekt ist, da man ja nicht weiterparsen darf.
Delphi-Quellcode:
procedure CheckDocumentError(
const document:IXMLDOMDocument);
var
msg :
string;
err : IXMLDOMParseError;
begin
err := document.parseError;
if err.errorCode <> 0
then
begin
msg := err.reason + #13#10
+ Format('
Zeile: %d, Position: %d, Text: "%s"',[err.line,err.linepos,err.srcText]);
if err.url <> '
'
then
msg:=msg+#13#10+'
URL: '+err.url;
//raise EXmlError.Create(msg); // wer mag, kann eine eigene Exception-Klasse definieren
raise Exception.Create(msg);
end;
end;