(Xojo Plugin) HTTP POST JSON

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM

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

Dim http As New Chilkat.Http

Dim success As Boolean

Dim jsonText As String
jsonText = "{""user"":""doctoravatar@penzance.com"",""forecast"":7,""t"":""vlIj"",""zip"":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 Chilkat.HttpResponse
resp = http.PostJson("https://json.penzance.org/request",jsonText)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
Else
    // Display the JSON response.
    System.DebugLog(resp.BodyStr)

End If