Wieder prob. mit auslesen. (laden?!)

[citybreaker]

Hallo,

also ich bekomme wieder einmal eine Fehlermeldung wenn ich etwas auslesen bzw. eine Xml
Datei einlesen will.

Unzwar hab ich zum laden folgende Source verwendet.

Delphi-Quellcode:

procedure TMainFrm.FormCreate(Sender: TObject);
begin
  // Xml Datei auslesem
  XmlDoc := CoDOMDocument40.Create;
  XmlDoc.setProperty('NewParser', true);

  if not fileexists(AppDir + XmlFile) then begin
    XmlDoc.loadXML('<?xml version="1.0"?><shout></shout>')
  end else begin
    XmlDoc.loadXML(AppDir + XmlFile);
  end;

  if XmlDoc.parseError.errorCode <> 0 then begin
    MessageDlg(Format('Fehler %s in Zeile %d, Position %d:' + #13#10 +
      '%s',[xmldoc.parseError.reason,xmldoc.parseError.line,
      xmldoc.parseError.linepos,xmldoc.parseError.srcText]),
      mtError,[mbok],0);
  end;
end;

Jetzt sagt mir die Fehlermeldung immer:
"Fehlerhafter Syntax in einem Dokument.
in Zeile 1, Position 1"

Jetzt ist die erste Reihe bei mir: <?xml version="1.0" encoding="iso-8859-1" ?>
Also wäre das Zeichen < ungültig?! O.o

[phlux]

Hi! :hi:
Ich schließe mich hier mal an, hatte den Parsefehler mal sporadisch :gruebel: und hänge dann weiter beim Node auslesen, erst sagt er mir sie existieren und wenn ich drauf zugreifen will hagelt es exceptions :mrgreen:
Weiß jemand rat? Liegts vllt daran das wir die XML Datei aus dem Netz laden?

mfg phlux :hi:

edit:@ citybreaker hast du es einfach mal mit load probiert? so klappts bei mir :)

[citybreaker]

Naja, ich lade die XML File ja auch ausm netz. Kann es sein das wir von der selben XML sprechen?
Falls ja, hätten wir ja quasi das selbe problem.

[phlux]

a haben wir bzw. ich kann das File noch parsen, aber ich find keine ChildNodes ;) bzw kann nicht drauf zugreifen :shock:

[citybreaker]

Ups, hatte mich verschrieben und das Problem in den Griff bekommen, alerdins wird nix in meiner listbox angezeigt.

Delphi-Quellcode:

procedure TMainFrm.UpdateList;
const
  Liste: Array[0..1] Of String = ('name', 'id');
var
  movies: IXMLDomNodeList;
  subNode: IXMLDomNode;
  i: integer;
begin
  // Auslesen
  ListBox1.Items.Clear;
  ListBox1.Items.BeginUpdate;

  movies := XmlDoc.documentElement.selectNodes('movie');
  for i := 0 to movies.length -1 do begin
    subNode := movies.item[i].selectSingleNode('id');
    ListBox1.Items.Add(subNode.Text);
  end;

  ListBox1.Items.EndUpdate;
end;

--- Edit ---

Problem gelöst.