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?