(PureBasic) Example: Http.HttpStr method

Shows how to use the HttpStr method to send an HTTP POST request with the text of a string as the request body. The 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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    success.i = 0

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

    success = 0

    requestBody.s = "{" + Chr(34) + "greeting" + Chr(34) + ":" + Chr(34) + "Hello World" + Chr(34) + "}"

    ; 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 contents of the string in the HTTP request body.
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpStr(http,"POST",url,requestBody,"utf-8","application/json",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        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)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure