(PureBasic) HTTP POST JSON

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

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

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ; This example duplicates the HTTP POST shown at
    ; http://json.org/JSONRequest.html

    ; Specifically, the request to be sent looks like this:

    ; POST /request HTTP/1.1
    ; Accept: application/jsonrequest
    ; Content-Encoding: identity
    ; Content-Length: 72
    ; Content-Type: application/jsonrequest
    ; Host: json.penzance.org
    ; 
    ; {"user":"doctoravatar@penzance.com","forecast":7,"t":"vlIj","zip":94089}

    ; First, remove default header fields that would be automatically
    ; sent.  (These headers are harmless, and shouldn't need to 
    ; be suppressed, but just in case...)
    CkHttp::setCkAcceptCharset(http, "")
    CkHttp::setCkUserAgent(http, "")
    CkHttp::setCkAcceptLanguage(http, "")
    ; Suppress the Accept-Encoding header by disallowing 
    ; a gzip response:
    CkHttp::setCkAllowGzip(http, 0)

    ; If a Cookie needs to be added, it may be added by calling
    ; AddQuickHeader:
    success = CkHttp::ckAddQuickHeader(http,"Cookie","JSESSIONID=1234")

    jsonText.s = "{" + 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}"

    ; To use SSL/TLS, simply use "https://" in the URL.

    ; 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.

    resp.i
    resp = CkHttp::ckPostJson(http,"http://json.penzance.org/request",jsonText)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
    Else
        ; Display the JSON response.
        Debug CkHttpResponse::ckBodyStr(resp)
        CkHttpResponse::ckDispose(resp)

    EndIf



    CkHttpRequest::ckDispose(req)
    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure