Einen Wert aus XML auslesen

[MathiasSimmack]

Ich weiß nicht, was das hier

Zitat von Urmel:

xmlDoc.setProperty('NewParser', true);

immer soll. Das ist jetzt nicht gegen dich, @Urmel, sondern allgemein. Man kann es auch weglassen. Ich müsste erst im PSDK bzw. XML-SDK nachschlagen, wozu man diese Eigenschaft eigentlich braucht. Aber in irgendeiner Situation (DTD? ) gab es Probleme damit. Abgesehen davon hätte ich es so gelöst:

Delphi-Quellcode:

  if not FileExists(fAppPath + xmlFile) then
  begin
    ShowMessage('XML-Datei nicht gefunden');
    exit;
  end;

  xmlFile := 'PADSRuntime.xml';
  xmlDoc := CoDOMDocument40.Create;
  if(xmlDoc <> nil) then
  try
    xmlDoc.load(fAppPath + xmlFile);
    if xmlDoc.parseError.errorCode <> 0 then
    begin
      MessageDlg('Die XML-Datei ist nicht korrekt!' + #13#10
        + 'Das Programm wird nun beendet.', mtError, [mbOK], 0);
      Application.Terminate;
    end;

    viewer := xmlDoc.documentElement.selectNodes('PADSRuntime/MonitorStatus');
    if(viewer <> nil) then
      Label1.Caption := viewer.item[0].text;  // Monitorstatus im Label anzeigen
  finally
    xmlDoc := nil;
  end;