AutoIT, XML und Homematic

xcrazy

Hallo Zusammen,

ich versuche aktuell über die XML-Schnittstelle des Homematic-Systems den aktuellen Status eines Gerätes auszulesen ("Value"). Und bekomme es einfach nicht hin. Es muss doch so simpel sein

XML

<state>
<datapoint ise_id="1471" value="true"/>
</state>

AutoIt

#Include "_XMLDomWrapper.au3"
#Include <Array.au3>
main()
func main()
    Local $sFile = "http://10.20.200.3/config/xmlapi/state.cgi?datapoint_id=1471"
    If FileExists($sFile) Then
        $ret = _XMLFileOpen ($sFile)
        if @error then MsgBox(1, "", @error)
        $wert = _XMLGetValue('/state/datapoint/value')
		_ArrayDisplay($wert)
		MsgBox(4096, "Error", _XMLError ())
Else
    MsgBox(4096, "fehler", "not found")
EndIf
EndFunc

Alles anzeigen

Die Messagebox zeit immer "fehler", "not found"
Eine Idee wie ich das mache?

Gruß Crazy

**autoBert**

Versuch es einnal mit:

Code

`#Include "_XMLDomWrapper.au3"
#Include <Array.au3>
main()
func main()
    Local $sFile = @ScriptDir&'\HomeMatic.txt'
	InetGet("http://10.20.200.3/config/xmlapi/state.cgi?datapoint_id=1471",$sFile,1,1)
    If FileExists($sFile) Then
        $ret = _XMLFileOpen ($sFile)
        if @error then MsgBox(1, "", @error)
        $wert = _XMLGetValue('/state/datapoint/value')
		_ArrayDisplay($wert)
		MsgBox(4096, "Error", _XMLError ())
Else
    MsgBox(4096, "fehler", "not found")
EndIf
EndFunc

Alles anzeigen

du hast ja in deinem Skript $sFile eine URL zugeordnet. Ich habe jetzt das Ergebnis des URL-Aufrufs in die Datei gfespeichert.

xcrazy

Schon mal danke für die schnelle Antwort.

Habe es versucht und 1 Punkt weiter bin ich schonmal.
Bekomme beim ersten Starten des Programms "not found"
Beim 2. mal starten bekomme ich zumindest die MsgBox mit dem "Error" im Titel angezeigt. Allerdings auch keine Fehlermeldung darin.

Habe ich vielleicht im restlichen Script was falsch?

Es reicht eigentlich auch wenn ich den einzelnen wert bekomme. Muss nicht im Array angezeigt werden.

**autoBert**

Ich habe den _XMLDomWrapper noch nie benutzt und obiges Skript auch nicht getestet.

Poste mal den Inhalt von der erstellten HomeMatic.txt und das erwartete Ergebnis.

xcrazy

Inhalt der txt Datei:

XML

<?xml version="1.0" encoding="ISO-8859-1" ?><state><datapoint ise_id='1471' value='false'/></state>

Mein erwartetes Ergebnis wäre je nach Status das "True" oder "False" ausgegeben wird. 1 oder 0 würde auch gehen.

Wenn du einen anderen Weg kennst um XML auszulesen ggf. auch einfacher habe ich immer ein offenes Ohr.

**autoBert**

Die Version mit InetGet:

C

#Include <Array.au3>
#include <String.au3>
main()
func main()
    Local $sFile = @ScriptDir&'\HomeMatic.txt'
    InetGet("http://10.20.200.3/config/xmlapi/state.cgi?datapoint_id=1471",$sFile,1,1)
    If FileExists($sFile) Then
        $sXML=FileRead($sFile)
        if @error then MsgBox(1, "", @error)
          $wert=_StringBetween($sXML,'<datapoint ise_id="1471" value="','<datapoint ise_id="1471" value="')
        If @error Then
            MsgBox(1, "", @error)
        Else
            _ArrayDisplay($wert)
        EndIf
Else
    MsgBox(4096, "fehler", "not found")
EndIf
EndFunc

Alles anzeigen

Version mit InetRead:

C

#include <Array.au3>
#include <String.au3>
main()
Func main()
    $sXML = BinaryToString(InetRead("http://10.20.200.3/config/xmlapi/state.cgi?datapoint_id=1471"))
    $wert = _StringBetween($sXML, '<datapoint ise_id="1471" value="', '<datapoint ise_id="1471" value="')
    If @error Then
        MsgBox(1, "", @error)
    Else
        _ArrayDisplay($wert)
    EndIf
EndFunc   ;==>main

Alles anzeigen

Ich würde INetRead vorziehen da kein Umweg über Datei notwendig.

xcrazy

Du bist schnell

Hab mich für die InetRead Variante Entschieden. Und deinen Code mal versucht. Bekomme leider die MsgBox mit dem Inhalt 1.

Hab anschließend den Code von die mal angepasst. Ich habe mir mal Funktion "_StringBetween" angeschaut. Diese gibt den Wert zwischen Start und Ende aus.

AutoIt

#include <Array.au3>
#include <String.au3>
main()
Func main()
    $sXML = BinaryToString(InetRead("http://10.20.200.3/config/xmlapi/state.cgi?datapoint_id=1471"))
    $wert = _StringBetween($sXML, '<datapoint ise_id="1471" value="', '"/>')
    If @error Then
        MsgBox(1, "", @error)
    Else
        _ArrayDisplay($wert)
    EndIf
EndFunc   ;==>main

Alles anzeigen

Leider klappt das immer noch nicht wie gewünscht

**autoBert**

so sollte es jetzt klappen:

C

#include <Array.au3>
#include <String.au3>
main()
Func main()
	$sXML = StringReplace(BinaryToString(InetRead("http://10.20.200.3/config/xmlapi/state.cgi?datapoint_id=1471")),'"',"'")
	MsgBox(0,'XML Inhalt',$sXML)
	;$sXML="?xml version='1.0' encoding='ISO-8859-1' ?><state><datapoint ise_id='1471' value='false'/></state>"
	;zu Testzwecken da ich ja kein Zugriff auf die URL habe
	$davor="<datapoint ise_id='1471' value='"
	$danach="/></state>"
	$wert = _StringBetween($sXML, $davor, $danach)
	If @error Then
		MsgBox(1, "", @error)
	Else
		_ArrayDisplay($wert)
	EndIf
EndFunc   ;==>main

Alles anzeigen

xcrazy

Einfach nur Top

Danke dir. Bekomme nun true oder false je nach status ausgegeben.

Wenn mann 1x die Lösung hat merkt man es sich für die Zukunft

Falls ich aber dennoch nochmals auf schwierigkeiten stoßen sollte, komme ich nochmal auf dich zurück.

**autoBert**

Zitat von xcrazy

Einfach nur Top

Danke dir. Bekomme nun true oder false je nach status ausgegeben.

Wenn mann 1x die Lösung hat merkt man es sich für die Zukunft

Falls ich aber dennoch nochmals auf schwierigkeiten stoßen sollte, komme ich nochmal auf dich zurück.

Zitat von xcrazy

Falls ich aber dennoch nochmals auf schwierigkeiten stoßen sollte, komme ich nochmal auf dich zurück.

Kein Problem. du solltest aber die XMLDomWrapper.au3 einmal hochladen. Die die ich gefunden habe ist aus 2008 und nicht vollständig
Ich werde dann versuchen die dir vorliegende Version dahin zu erweitern dass sie auch direkt mit URL's benutzt werden kann.

xcrazy

Datei hängt im Anhang.
Den Link wo ich die Datei her habe findest du Hier
Über diese XMLDomWrapper wäre es denke ich einfacher wenn man weis wie

Aber wie alt die Datei ist wo ich habe weis ich auch nicht