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;