PureBasic

Example: Http.HttpSReq method

Demonstrates how to call the HttpSReq method. PureBasic

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

Procedure ChilkatExample()

    success.i = 0

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

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

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

    ; Specify the details of the HTTP request.
    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkContentType(req, "application/json")
    CkHttpRequest::setCkPath(req, "/echo_request_body.asp")

    requestBody.s = "{" + Chr(34) + "greeting" + Chr(34) + ":" + Chr(34) + "Hello World" + Chr(34) + "}"
    CkHttpRequest::ckLoadBodyFromString(req,requestBody,"utf-8")

    ; Send a POST to https://chilkatsoft.com/echo_request_body.asp with a JSON request body.
    success = CkHttp::ckHttpSReq(http,"chilkatsoft.com",443,1,req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        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
    ; Content-Type: application/json
    ; Content-Length: 26
    ; 
    ; {"greeting":"Hello World"}


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


    ProcedureReturn
EndProcedure