Hi,
Ich möchte im Voraus sagen dass ich noch nicht so bewandert mit der Programmierung von
XML in Delphi bin. Ich möchte eine Vorhandene
XML-Datei auslesen, die wiefolgt aussieht (als Beispiel):
<?
xml version="1.0" encoding="UTF-8"?>
<Zugabgabe>
<Allgemein/>
<Training/>
<Spiele>
<Spiel id=1>A</Spiel>
<Spiel id=2>B</Spiel>
<Spiel id=3>C</Spiel>
</Spiele>
<Handel/>
</Zugabgabe>
Doch ich komme in meinem Programm nicht zu dem Punkt auf sie zugreifen zu können, da sie nicht richtig ausgelesen wird. Hier mein Quellcode zum Auslesen der Datei:
Delphi-Quellcode:
var
Form1: TForm1;
xmlDoc:IXMLDOMDocument2;
procedure TForm1.LadeXMLDatei(Sender: TObject);
begin
fAppPath:=Extractfilepath(Application.ExeName);
//Der Pfad wird ermittelt und ist auch korrekt
xmlDoc:=CODOMDocument40.Create;
//Ich benutze MSXML4.0 und habe die passende Library und sie auch in der USES anwweisung
if not FileExists(fappPath+Filename)
then begin
xmlDoc.loadxml('
<?xml version="1.0"?><Zugabgabe></Zugabgabe>');
end else
xmlDoc.loadXML(fappPath+Filename);
if xmlDoc.parseError.errorCode<>0
then begin
MessageDLg('
Die XML-Datei ist nicht korrekt!',mtError, [mbOK],0);
Application.Terminate;
//Hier gibt es den Abbruch aufgrund eines Lesefehlers
end;
end;
Ich bin mir nicht sicher ob die Anweisung "if not FileExists..." richtig ist, aber so weit kommt es gar nicht. Das Programm erkennt die Vorhandene Datei, wird aber durch
Delphi-Quellcode:
if xmlDoc.parseError.errorCode<>0
then begin
MessageDLg('
Die XML-Datei ist nicht korrekt!',mtError, [mbOK],0);
Application.Terminate;
abgebrochen weil die Datei fehlerhaft ist. Der Fehlercode ist etwas absurd (-1072896682). Was habe ich da falsch gemacht?
Wenn ich die ParseError-Überprüfugn auslasse liest er die Datei ohne Fehlermeldung aus, aber wenn ich auf einen Node zugreifen will erhalte ich eine Zugriffsverletzung.
Ist womöglich nur die
XML Datei unlesbar?
Ein tutorial zu
XML das ich mir durchgelesen habe hatte den Befehl
xmlDoc.setProperty('Newparser',true);
noch im Quellcode, aber Delphi zeigt mir da einen Fehler an, dass xmlDoc die Eigenschaft "NewParser" nicht besitzt.
Vielen dank im Voraus für eure Hilfe...