PureBasic

Example: Http.HttpJson method - Send a POST with JSON Body

See more HTTP Examples

Demonstrates how to call the HttpJson method, which sends an HTTP POST with a JSON body. This example sends the following request:

POST /echo_request_body.asp HTTP/1.1
Host: chilkatsoft.com
Accept: */*
Accept-Encoding: gzip
Content-Type: application/json
Content-Length: 26

{"greeting":"Hello World"}

Also see: Chilkat Http Default and Auto-Filled Headers

PureBasic

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

Procedure ChilkatExample()

    success.i = 0

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

    success = 0

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

    ; Build the following JSON:  {"greeting":"Hello World"}
    CkJsonObject::ckUpdateString(json,"greeting","Hello World")

    ; This URL echoes the contents of the request body, letting us view it.
    url.s = "https://chilkatsoft.com/echo_request_body.asp"

    ; Send a POST with the JSON in the HTTP request body.
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpJson(http,"POST",url,json,"application/json",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(json)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    Debug "Response Status Code: " + Str(CkHttpResponse::ckStatusCode(resp))

    ; Examine the request we sent.
    ; The LastHeader property stores the HTTP request header of the most recent request sent,
    ; and in this instance, the response body mirrors the request body.
    Debug CkHttp::ckLastHeader(http)
    Debug CkHttpResponse::ckBodyStr(resp)

    ; Output:

    ; POST /echo_request_body.asp HTTP/1.1
    ; Host: chilkatsoft.com
    ; Accept: */*
    ; Accept-Encoding: gzip
    ; Content-Type: application/json
    ; Content-Length: 26
    ; 
    ; {"greeting":"Hello World"}


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


    ProcedureReturn
EndProcedure