PureBasic

HTTP POST JSON

See more HTTP Examples

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

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

Procedure ChilkatExample()

    success.i = 0

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

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

    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}"

    ; 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 = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpStr(http,"POST","https://json.penzance.org/request",jsonText,"utf-8","application/json",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    ; Display the JSON response.
    Debug CkHttpResponse::ckBodyStr(resp)


    CkHttp::ckDispose(http)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure