Syntax Question when using Alpha Anywhere

[skurimski]

This is not an issue rather a request for some assistance on the syntax required to write a value to a Pin on the Pi using Alpha Anywhere and passing a URL to it.

I have the Pi-GPIO-Server running on a RPi 3 and everything is running as it should be. I can hit the default webpage and turn my LED on and off. I am now trying to use my existing application Alpha Anywhere to "talk" to the server using the API and need help with the URL syntax.

In the examples below you will see I can pass an URL's via http_get command and get data back from the Pi-GPIO-Server on the pins I have setup. Now I would like to turn pin 18 on and off by passing a URL and need help constructing the proper URL syntax.

Any suggestion, ideas and examples are welcome. This is an awesome project and I can't wait to get a better understand of how I can interact with it through my application.

If interested in Alpha Anywhere, the doc for the HTTP_GET can be found here ...https://www.alphasoftware.com/documentation/pages/Ref/Api/Functions/System/HTTP%20Functions/HTTP_GET%20Function.xml

Example #1 (Get all pin status)
URL Sent....
http_get("http://10.10.17.11:5000/api/v1/pin")

Response....
= body = [{"event": null, "num": 18, "name": "Test", "initial": null, "bounce": 0, "resistor": null, "value": 0, "mode": "OUT"}, {"event": "RISING", "num": 23, "name": "", "initial": null, "bounce": 200, "resistor": "PUD_DOWN", "value": 0, "mode": "IN"}]

Example #2 (Get Pin 18 data)
URL Sent...
http_get("http://10.10.17.11:5000/api/v1/pin/18")

Response....
= body = {"event": null, "num": 18, "name": "Test", "initial": null, "bounce": 0, "resistor": null, "value": 0, "mode": "OUT"}

[skurimski]

Using the default installation of Pi-GPIO-Server you can "Talk" to Alpha Anywhere utilizing the example code below. It is easy to test using the interactive viewer. In the example below if the "value" is 1, output 18 is on, if it is 0 the output is off. This is just an example so keep in mind the vSettings.method can be changed to support anything the Pi-GPIO-Server will respond to. I hope this helps a few others.

dim vSettings as P
dim vSettings.host as C = "10.10.17.11"
dim vSettings.page as C = "/api/v1/pin/18"
dim vSettings.port as N = 5000
dim vSettings.method as C = "PATCH"
dim vSettings.header as C = "Content-Type: application/json"
dim vSettings.body as C = "{"value": 1}"
dim vResult as P
vResult = http_fetch(vSettings)

If you want to see the result...
msgbox(vResult.body)

The result should look like this...
{"event": null, "num": 18, "name": "", "initial": null, "bounce": 0, "resistor": null, "value": 1, "mode": "OUT"}