(PureBasic) HTTP POST JSON (application/json)

Demonstrates how to send a JSON POST using the application/json content-type.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

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

    ; If any custom headers need to be included with the POST, add them
    ; by calling SetRequestHeader

    ; Note: An application should never explicitly set the Content-Length header.
    ; The Content-Length is automatically computed and added by Chilkat.

    ; Here are some examples of custom headers.  

    ; Perhaps your particular app needs some sort of custom-computed Authorization header...
    CkHttp::ckSetRequestHeader(http,"Authorization","my-custom-computed-auth-value")

    ; Another custom header for some hypothetical app:
    CkHttp::ckSetRequestHeader(http,"X-Pass-Timestamp","my-custom-computed-timestamp-value")

    ; We don't need to set the Content-Type header, becaue it is automatically set by Chilkat
    ; in the PostJson2 call below.

    ; The following "Accept" header may be set, but it really isn't necessary:
    CkHttp::ckSetRequestHeader(http,"Accept","application/json")

    jsonText.s = "{ some JSON text ... }"

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

    resp.i
    resp = CkHttp::ckPostJson2(http,"http://www.someserver.com/someJsonEndpoint","application/json",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