Einzelnen Beitrag anzeigen

Urmel

Registriert seit: 23. Mai 2004
Ort: Titiwu
28 Beiträge
 
#5

Re: Einen Wert aus XML auslesen

  Alt 6. Okt 2004, 10:56
So, ich habe es geschaft! Danke euch beiden.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  xmlfile: string;
  Viewer: IXMLDOMNodeList;
begin
  xmlFile := 'PADSRuntime.xml';
  xmlDoc := CoDOMDocument40.Create;
  xmlDoc.setProperty('NewParser', true);
  if not FileExists(fAppPath + xmlFile) then
  begin
    ShowMessage('XML-Datei nicht gefunden');
  end
  else
  begin
    xmlDoc.load(fAppPath + xmlFile);
  end;
  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');
  Label1.Caption := viewer.item[0].text; // Monitorstatus im Label anzeigen
end;
Ich hoffe das ist XML-Technich richtig?
Urmel aus dem Eis
  Mit Zitat antworten Zitat