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

mfg phlux

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

[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.