(PureBasic) HTTP PUT JSON

Demonstrates how to send a JSON PUT and get the JSON response body.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    ; This example assumes 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

    ; The PUT request to be sent will look like this:

    ; PUT /request HTTP/1.1
    ; Content-Type: application/jsonrequest
    ; Cookie: JSESSIONID=1234
    ; Content-Encoding: identity
    ; Host: json.penzance.org
    ; Accept: application/jsonrequest
    ; Accept-Encoding:
    ; Content-Length: 72
    ; 
    ; {"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...
    CkHttp::ckSetRequestHeader(http,"Cookie","JSESSIONID=1234")

    ; Add the Content-Encoding: identity header.
    CkHttp::ckSetRequestHeader(http,"Content-Encoding","identity")

    ; Modify the default "Accept" header:
    CkHttp::setCkAccept(http, "application/jsonrequest")

    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.

    responseBody.s = CkHttp::ckPutText(http,"http://json.penzance.org/request",jsonText,"utf-8","application/jsonrequest",0,0)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
    Else
        ; Display the JSON response.
        Debug responseBody

    EndIf



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


    ProcedureReturn
EndProcedure