Aktuelle Zeit: 26.01.2021 06:53

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 
Autor Nachricht
 Betreff des Beitrags: Steuerung einer Hue Bridge
BeitragVerfasst: 01.11.2020 16:48 
Offline

Registriert: 16.03.2006 11:20
Ich habe seit kurzem ein paar Zigbee-Leuchten im Einsatz (und ärgere mich ein wenig, wie mein gar nicht so "smartes" Haus damit zurechtkommt), also habe ich einmal begonnen, mit Purebasic ein wenig herumzuspielen...
...falls jemand eine Hue-Bridge hat, kann er vielleicht Erfahrungen einbringen - oder diesen Code verwenden, um die ersten Schritte damit zu machen.

Dazu muss als erstes die richtige IP-Adresse eingesetzt werden und als zweites ein "User" angelegt werden, um an einen Schlüssel zu kommen. Dazu das Programm mit der korrekten Adresse starten, auf der Hue-Bridge den Knopf drücken und das Programm nochmals ausführen. Im Debug-Fenster findet sich dann der richtige Schlüssel, der als BridgeKey in den Source-Text kopiert gehört.

Etwas umständlich, aber dann ist alles bereit und je nach Wunsch könnt ihr verschiedene Kommandos ausprobieren (immer nur bei einem den Strichpunkt für die Bemerkung entfernen)...


Code:
; Define

   Global BridgeIP.s=   "10.0.0.*"; <--- richtige IP-Adresse einsetzen
   Global BridgeUser.s=   "PureBasic#Board"
   Global BridgeKey.s=   "---hier den Schlüssel einsetzen---"


   Structure WebStatusType
      Code.i
      Name.s
      Description.s
   EndStructure

   Global NewMap Status.WebStatusType()


   Macro BridgeURL()

      "http://"+BridgeIP+"/api"

   EndMacro
   Macro BridgeURLKey()

      BridgeURL()+"/"+BridgeKey

   EndMacro
   Macro Request(type,URL,Message="")

      rid=HTTPRequest(#PB_HTTP_#type,URL,Message)

      If rid
         ShowStatus(rid)
         ShowResult(rid)
         FinishHTTP(rid)
      Else
         Debug "/!\ Request creation failed."
      EndIf

   EndMacro
   Procedure ShowStatus(id)

      Protected val.s

      val=HTTPInfo(id,#PB_HTTP_StatusCode)

      If FindMapElement(Status(),val)
         Debug Status()\name
      Else
         Debug "Unknown Return Status ("+val+")"
      EndIf

   EndProcedure
   Procedure ShowResult(id)

      Protected s.s

      s=HTTPInfo(id,#PB_HTTP_Response)
      If ParseJSON(#Null,s)
         Debug ComposeJSON(0,#PB_JSON_PrettyPrint)
      Else
         Debug s
      EndIf

   EndProcedure

   DataSection
      Data.s ~"100|Continue|The server has received the request headers and the client should proceed to send the request body (in the case of a request for which a body needs to be sent; for example, a POST request). Sending a large request body to a server after a request has been rejected for inappropriate headers would be inefficient. To have a server check the request's headers, a client must send Expect: 100-continue as a header in its initial request and receive a 100 Continue status code in response before sending the body. If the client receives an error code such as 403 (Forbidden) or 405 (Method Not Allowed) then it should not send the request's body. The response 417 Expectation Failed indicates that the request should be repeated without the Expect header as it indicates that the server does not support expectations (this is the case, for example, of HTTP/1.0 servers)"
      Data.s ~"101|Switching Protocols|The requester has asked the server to switch protocols and the server has agreed to do so"
      Data.s ~"102|Processing|A WebDAV request may contain many sub-requests involving file operations, requiring a long time to complete the request. This code indicates that the server has received and is processing the request, but no response is available yet. This prevents the client from timing out and assuming the request was lost"
      Data.s ~"103|Early Hints|Used to return some response headers before final HTTP message"
      Data.s ~"200|OK|Standard response for successful HTTP requests. The actual response will depend on the request method used. In a GET request, the response will contain an entity corresponding to the requested resource. In a POST request, the response will contain an entity describing or containing the result of the action"
      Data.s ~"201|Created|The request has been fulfilled, resulting in the creation of a new resource"
      Data.s ~"202|Accepted|The request has been accepted for processing, but the processing has not been completed. The request might or might not be eventually acted upon, and may be disallowed when processing occurs"
      Data.s ~"203|Non-Authoritative Information|The server is a transforming proxy (e.g. a Web accelerator) that received a 200 OK from its origin, but is returning a modified version of the origin's response"
      Data.s ~"204|No Content|The server successfully processed the request, and is not returning any content"
      Data.s ~"205|Reset Content|The server successfully processed the request, asks that the requester reset its document view, and is not returning any content"
      Data.s ~"206|Partial Content|The server is delivering only part of the resource (byte serving) due to a range header sent by the client. The range header is used by HTTP clients to enable resuming of interrupted downloads, or split a download into multiple simultaneous streams"
      Data.s ~"207|Multi-Status|The message body that follows is by default an XML message and can contain a number of separate response codes, depending on how many sub-requests were made"
      Data.s ~"208|Already Reported|The members of a DAV binding have already been enumerated in a preceding part of the (multistatus) response, and are not being included again."
      Data.s ~"226|IM Used|The server has fulfilled a request for the resource, and the response is a representation of the result of one or more instance-manipulations applied to the current instance"
      Data.s ~"300|Multiple Choices|Indicates multiple options for the resource from which the client may choose (via agent-driven content negotiation). For example, this code could be used to present multiple video format options, to list files with different filename extensions, or to suggest word-sense disambiguation"
      Data.s ~"301|Moved Permanently|This and all future requests should be directed to the given URI"
      Data.s ~"302|Found (Previously \"Moved temporarily\")|Tells the client to look at (browse to) another URL. 302 has been superseded by 303 and 307. This is an example of industry practice contradicting the standard. The HTTP/1.0 specification required the client to perform a temporary redirect (the original describing phrase was \"Moved Temporarily\"), but popular browsers implemented 302 with the functionality of a 303 See Other. Therefore, HTTP/1.1 added status codes 303 and 307 to distinguish between the two behaviours. However, some Web applications and frameworks use the 302 status code as if it were the 303"
      Data.s ~"303|See Other|The response to the request can be found under another URI using the GET method. When received in response to a POST (or PUT/DELETE), the client should presume that the server has received the data and should issue a new GET request to the given URI"
      Data.s ~"304|Not Modified|Indicates that the resource has not been modified since the version specified by the request headers If-Modified-Since or If-None-Match. In such case, there is no need to retransmit the resource since the client still has a previously-downloaded copy"
      Data.s ~"305 Use Proxy|The requested resource is available only through a proxy, the address for which is provided in the response. For security reasons, many HTTP clients (such as Mozilla Firefox and Internet Explorer) do not obey this status code"
      Data.s ~"306 Switch Proxy|No longer used. Originally meant \"Subsequent requests should use the specified proxy.\""
      Data.s ~"307|Temporary Redirect|In this case, the request should be repeated with another URI; however, future requests should still use the original URI. In contrast to how 302 was historically implemented, the request method is not allowed to be changed when reissuing the original request. For example, a POST request should be repeated using another POST request"
      Data.s ~"308|Permanent Redirect|The request and all future requests should be repeated using another URI. 307 and 308 parallel the behaviors of 302 and 301, but do not allow the HTTP method to change. So, for example, submitting a form to a permanently redirected resource may continue smoothly"
      Data.s ~"400|Bad Request|The server cannot or will not process the request due to an apparent client error (e.g., malformed request syntax, size too large, invalid request message framing, or deceptive request routing)"
      Data.s ~"401|Unauthorized|Similar to 403 Forbidden, but specifically for use when authentication is required and has failed or has not yet been provided. The response must include a WWW-Authenticate header field containing a challenge applicable to the requested resource. See Basic access authentication and Digest access authentication. 401 semantically means \"unauthorised\" the user does not have valid authentication credentials for the target resource."
      Data.s ~"402|Payment Required|Reserved for future use. The original intention was that this code might be used as part of some form of digital cash or micropayment scheme, as proposed, for example, by GNU Taler, but that has not yet happened, and this code is not widely used. Google Developers API uses this status if a particular developer has exceeded the daily limit on requests. Sipgate uses this code if an account does not have sufficient funds to start a call. Shopify uses this code when the store has not paid their fees and is temporarily disabled. Stripe uses this code for failed payments where parameters were correct, for example blocked fraudulent payments"
      Data.s ~"403|Forbidden|The request contained valid data and was understood by the server, but the server is refusing action. This may be due to the user not having the necessary permissions for a resource or needing an account of some sort, or attempting a prohibited action (e.g. creating a duplicate record where only one is allowed). This code is also typically used if the request provided authentication by answering the WWW-Authenticate header field challenge, but the server did not accept that authentication. The request should not be repeated."
      Data.s ~"404|Not Found|The requested resource could not be found but may be available in the future. Subsequent requests by the client are permissible."
      Data.s ~"405|Method Not Allowed|A request method is not supported for the requested resource; for example, a GET request on a form that requires data to be presented via POST, or a PUT request on a read-only resource."
      Data.s ~"406|Not Acceptable|The requested resource is capable of generating only content not acceptable according to the Accept headers sent in the request. See Content negotiation."
      Data.s ~"407|Proxy Authentication Required|The client must first authenticate itself with the proxy."
      Data.s ~"408|Request Timeout|The server timed out waiting for the request. According to HTTP specifications: \"The client did not produce a request within the time that the server was prepared to wait. The client MAY repeat the request without modifications at any later time.\""
      Data.s ~"409|onflict|Indicates that the request could not be processed because of conflict in the current state of the resource, such as an edit conflict between multiple simultaneous updates."
      Data.s ~"410|Gone|Indicates that the resource requested is no longer available and will not be available again. This should be used when a resource has been intentionally removed and the resource should be purged. Upon receiving a 410 status code, the client should not request the resource in the future. Clients such as search engines should remove the resource from their indices. Most use cases do not require clients and search engines to purge the resource, and a \"404 Not Found\" may be used instead."
      Data.s ~"411|Length Required|The request did not specify the length of its content, which is required by the requested resource."
      Data.s ~"412|Precondition Failed|The server does not meet one of the preconditions that the requester put on the request header fields"
      Data.s ~"413|Payload Too Large|The request is larger than the server is willing or able to process. Previously called \"Request Entity Too Large\""
      Data.s ~"414|URI Too Long|The URI provided was too long for the server to process. Often the result of too much data being encoded as a query-string of a GET request, in which case it should be converted to a POST request. Called \"Request-URI Too Long\" previously."
      Data.s ~"415|Unsupported Media Type|The request entity has a media type which the server or resource does not support. For example, the client uploads an image as image/svg+xml, but the server requires that images use a different format."
      Data.s ~"416|Range Not Satisfiable|The client has asked for a portion of the file (byte serving), but the server cannot supply that portion. For example, if the client asked for a part of the file that lies beyond the end of the file. Called \"Requested Range Not Satisfiable\" previously."
      Data.s ~"417|Expectation Failed|The server cannot meet the requirements of the Expect request-header field."
      Data.s ~"418|I'm a teapot|This code was defined in 1998 as one of the traditional IETF April Fools' jokes, in RFC 2324, Hyper Text Coffee Pot Control Protocol, and is not expected to be implemented by actual HTTP servers. The RFC specifies this code should be returned by teapots requested to brew coffee. This HTTP status is used as an Easter egg in some websites, such as Google.com's I'm a teapot easter egg."
      Data.s ~"421|Misdirected Request|The request was directed at a server that is not able to produce a response (for example because of connection reuse)."
      Data.s ~"422|Unprocessable Entity|The request was well-formed but was unable to be followed due to semantic errors."
      Data.s ~"423|Locked|The resource that is being accessed is locked."
      Data.s ~"424|Failed Dependency|The request failed because it depended on another request and that request failed (e.g., a PROPPATCH)."
      Data.s ~"425|Too Early|Indicates that the server is unwilling to risk processing a request that might be replayed."
      Data.s ~"426|Upgrade Required|The client should switch to a different protocol such as TLS/1.0, given in the Upgrade header field."
      Data.s ~"428|Precondition Required|The origin server requires the request to be conditional. Intended to prevent the 'lost update' problem, where a client GETs a resource's state, modifies it, and PUTs it back to the server, when meanwhile a third party has modified the state on the server, leading to a conflict."
      Data.s ~"429|Too Many Requests|The user has sent too many requests in a given amount of time. Intended for use with rate-limiting schemes."
      Data.s ~"431|Request Header Fields Too Large|The server is unwilling to process the request because either an individual header field, or all the header fields collectively, are too large."
      Data.s ~"451|Unavailable For Legal Reasons|A server operator has received a legal demand to deny access to a resource or to a set of resources that includes the requested resource. The code 451 was chosen as a reference to the novel Fahrenheit 451 (see the Acknowledgements in the RFC)."
      Data.s ~"500|Internal Server Error|A generic error message, given when an unexpected condition was encountered and no more specific message is suitable."
      Data.s ~"501|Not Implemented|The server either does not recognize the request method, or it lacks the ability to fulfil the request. Usually this implies future availability (e.g., a new feature of a web-service API)."
      Data.s ~"502|Bad Gateway|The server was acting as a gateway or proxy and received an invalid response from the upstream server."
      Data.s ~"503|Service Unavailable|The server cannot handle the request (because it is overloaded or down for maintenance). Generally, this is a temporary state."
      Data.s ~"504|Gateway Timeout|The server was acting as a gateway or proxy and did not receive a timely response from the upstream server."
      Data.s ~"505|HTTP Version Not Supported|The server does not support the HTTP protocol version used in the request."
      Data.s ~"506|Variant Also Negotiates|Transparent content negotiation for the request results in a circular reference."
      Data.s ~"507|Insufficient Storage|The server is unable to store the representation needed to complete the request."
      Data.s ~"508|Loop Detected|The server detected an infinite loop while processing the request (sent instead of 208 Already Reported)."
      Data.s ~"510|Not Extended|Further extensions to the request are required for the server to fulfil it."
      Data.s ~"511|Network Authentication Required|The client needs to authenticate to gain network access. Intended for use by intercepting proxies used to control access to the network (e.g., \"captive portals\" used to require agreement to Terms of Service before granting full Internet access via a Wi-Fi hotspot)"
      Data.s ""
   EndDataSection
   
   Procedure InitMap()

      Protected s.s
      Protected code


      Repeat
         Read.s s

         If s=""
            Break
         EndIf

         code=Val(StringField(s,1,"|"))
         Status(Str(code))\Code=code
         Status()\Name=      StringField(s,2,"|")
         status()\Description=   StringField(s,3,"|")

      ForEver

   EndProcedure

; EndDefine
   
   
; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


InitMap()
InitNetwork()

; Neuen Benutzer mit Bridge koppeln (Antwort beim ersten Versuch: link button not pressed. Danach den Bridge-Knopf drücken und nochmalss ausführen - in der Antwort steht der Benutzerschlüssel)
Request(Post,BridgeURL(),~"{\"devicetype\":\""+BridgeUser+~"\"}")

; Konfiguration
; Request(Get,BridgeURLKey()+"/config")

; Alle Lampen-Informationen...
; Request(Get,BridgeURLKey()+"/lights")

; Alle Gruppen-Informationen (Räume)...
; Request(Get,BridgeURLKey()+"/groups/")

; Regeln
; Request(Get,BridgeURLKey()+"/rules/")

; Szenen
; Request(Get,BridgeURLKey()+"/scenes/")

; Sensoren
; Request(Get,BridgeURLKey()+"/sensors/")

; Zeitsteuerungen
; Request(Get,BridgeURLKey()+"/schedules/")

; Status einer Lampe...
; Request(Get,BridgeURLKey()+"/lights/5")

; Lampe ein/aus
; Request(Put,BridgeURLKey()+"/lights/5/state",~"{\"on\":false}")
; Request(Put,BridgeURLKey()+"/lights/5/state",~"{\"on\":true}")

; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 22 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye