Hallo, ich will von einem Programm die
XML auslesen und in ein Label schreiben, aber ich finde den Fehler nicht
. Vielleicht könnt ihr mir Helfen ?
Delphi-Quellcode:
procedure TForm1.Sah;
Var Sah_res:IXMLDOMnodeList; Sah_sub:IXMLDOMnode; Sah_path:
string;
Begin
BOINC_path:=Edit1.Text;
Sah_path:=BOINC_path+'
slots\0\state.sah';
//BOINC_path=D:\BOINC\ ; musste die state.sah in xml
//umbennen, da beim Hochladen nicht akzeptiert
{if not FileExists(Sah_path) then Application.Terminate;} //bringt erst später was ;-)
xmlDoc:=CoDomDocument40.Create;
xmlDoc.setProperty('
NewParser',true);
//Laden der Sah XML
xmlDoc.load(Sah_path) ;
if xmlDoc.parseError.errorCode <> 0
then Button1.Caption:='
Fehler'
else Begin
Sah_res:=xmldoc.documentElement.selectNodes('
spike') ;
Sah_sub:=Sah_res.item[0].selectSingleNode('
peak_power');
Label1.Caption := Sah_sub.text;
End;
End;
Die
XML befindet sich im Anhang!
Hoffe, dass ich nur einen dummen Fehler gemacht habe
.