(Visual Basic 6.0) HTTP POST JSON

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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim success As Long
success = 0

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

Dim http As New ChilkatHttp

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 New ChilkatHttpResponse
success = http.HttpStr("POST","https://json.penzance.org/request",jsonText,"utf-8","application/json",resp)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' Display the JSON response.
Debug.Print resp.BodyStr