B4X

HTTP POST JSON

See more HTTP Examples

Demonstrates how to send a JSON POST and get the JSON response. B4X

Dim success As Boolean = False

'  This requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code

Dim http As ChilkatHttp
http.Initialize("http")

Dim jsonText As String = "{" & Chr(34) & "user" & Chr(34) & ":" & Chr(34) & "doctoravatar@penzance.com" & Chr(34) & "," & Chr(34) & "forecast" & Chr(34) & ":7," & Chr(34) & "t" & Chr(34) & ":" & Chr(34) & "vlIj" & Chr(34) & "," & Chr(34) & "zip" & Chr(34) & ":94089}"

'  IMPORTANT: Make sure to change the URL, JSON text,
'  and other data items to your own values.  The URL used
'  in this example will not actually work.

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("POST", "https://json.penzance.org/request", jsonText, "utf-8", "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  Display the JSON response.
Log(resp.BodyStr)