(PureBasic) QuickGetObj Example

The QuickGetObj method is called to send a GET request and receive the response as an HttpResponse object.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

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

    ; Send a GET request to download a PDF into an HTTP response object.
    resp.i = CkHttp::ckQuickGetObj(http,"https://www.chilkatsoft.com/hello.pdf")
    If CkHttp::ckLastMethodSuccess(http) = 0
        ; This will happen if the request could not be sent, or if no response was received.
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; Get the response status
    statusCode.i = CkHttpResponse::ckStatusCode(resp)
    Debug "Response status: " + Str(statusCode)

    ; In this example, we want a 200 status code.
    If statusCode = 200
        ; Save the response body to a file.
        ; Note: This is only for the sake of this example.
        ; It's better to call the Download method to download directly to a file.
        success.i = CkHttpResponse::ckSaveBodyBinary(resp,"qa_output/hello.pdf")
        If success = 0
            Debug "Failed to write output file."
        Else
            Debug "Wrote hello.pdf"
        EndIf

    Else
        ; Perhaps we have response body with an error message..
        Debug CkHttpResponse::ckBodyStr(resp)

    EndIf

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure