B4R Question Httpjob PUT request in B4R

[sasetcolombia]

I am trying to send data to Thingtia.cloud.(an implementation of the Sentilo platform)
https://sentilo.readthedocs.io/en/latest/
The platform operators are the HTTP protocol methods.
In general, the operation associated with the operations used by Sentilo are:

• GET: Request information.
• POST: Send new data.
• PUT: Update existing data.
• DELETE: Erase data.

To update the value of a sensor you need to send a PUT request

In B4A it works correctly...

Sub enviardatosThingtia
    'TEST
    Dim datos As String
    'Formato Json=> {"observations":[{    "value":"35"}]}
   datos="{"&Chr(34)&"observations"&Chr(34)&":[{"&Chr(34)&"value"&Chr(34)&":"&Chr(34)&luminosidad&Chr(34)&"}]}"
    jobSentilo.Initialize("JobPutThingtia", Me)'inicializar objeto conexión Server
    jobSentilo.[B]PutString[/B]("http://api.thingtia.cloud/data/<usuario>/light/", datos)
    jobSentilo.GetRequest.SetHeader("IDENTITY_KEY","[B]4d8999174................[/B]")
    jobSentilo.GetRequest.SetContentType("application/json")
End Sub

How to implement the PUT request in B4R?
HttpJob only implements POST
Sending the data through the POST request does not work. This is only useful if you are going to add new data, not to update

'formato json=>{"observations":[{" value":"14"}]}
....
    WriteBytes(raf, "{""observations"":[{ ""value"":""")
    WriteBytes(raf, S1)
    WriteBytes(raf, """}]}")
    HttpJob.AddHeader("IDENTITY_KEY", ID_KEY)
    HttpJob.AddHeader("Content-Type", "application/json")
    HttpJob.Post("http://api.thingtia.cloud/data/usuario/light/", bc.SubString2(buffer, 0, raf.CurrentPosition)) '[B]How implement PutString?[/B]

Response with POST :
Error:
Status: 405
{"code":405,"message":"HTTP POST method not allowed for the requested resource"}

 

[bdunkleysmith]

I'm no expert in this area, but just an observation, are you initializing HttpJob eg.:

       HttpJob.Initialize("JobPutThingtia")

elsewhere because it's not shown in your B4R code.

 

[sasetcolombia]

I'm no expert in this area, but just an observation, are you initializing HttpJob eg.:

       HttpJob.Initialize("JobPutThingtia")

elsewhere because it's not shown in your B4R code.

yes,HttpJob initialization is done in AppStart.

 

[Erel]

Unzip rHttpUtils.b4xlib and add HttpJob module to your project.

Add this sub to the module:

Public Sub Put (Link() As Byte, Payload() As Byte)
    ParseLink(Link, Payload)
    bc.ArrayCopy("PUT", mVerb)
    SendRequest(0)
End Sub

 

[sasetcolombia]

???

Unzip rHttpUtils.b4xlib and add HttpJob module to your project.

Add this sub to the module:

Public Sub Put (Link() As Byte, Payload() As Byte)
    ParseLink(Link, Payload)
    bc.ArrayCopy("PUT", mVerb)
    SendRequest(0)
End Sub