PureBasic

QuickGetObj Example

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

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

Procedure ChilkatExample()

    success.i = 0

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

    success = CkHttp::ckHttpNoBody(http,"GET","https://www.chilkatsoft.com/hello.pdf",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        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 = 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



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


    ProcedureReturn
EndProcedure