(PureBasic) QuickGetBd Example

The QuickGetBd method is called to send a GET request to download a binary target, such as PDF, zip, image file, etc. into a Chilkat BinData object.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.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

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

    ; Download the contents of a PDF file into the bd object.
    success.i = CkHttp::ckQuickGetBd(http,"https://www.chilkatsoft.com/hello.pdf",bd)
    If success = 0
        ; This will happen if the response status code was 400 or greater,
        ; or if the request could not be sent, or if no response was received.
        ; 
        ; In other words, success will only be 1 if bd contains the desired content at the URL (not an error response).
        statusCode.i = CkHttp::ckLastStatus(http)
        Debug "Response status: " + Str(statusCode)

        If statusCode = 0
            ; There was an error in communications.  
            Debug CkHttp::ckLastErrorText(http)
        Else
            ; We received a response status code indicating failure.
            ; Examine the response body.
            Debug CkHttp::ckLastResponseBody(http)
        EndIf

        CkHttp::ckDispose(http)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf

    ; Save the contents of bd 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 = CkBinData::ckWriteFile(bd,"qa_output/hello.pdf")
    If success = 0
        Debug "Failed to write output file."
    Else
        Debug "Wrote hello.pdf"
    EndIf



    CkHttp::ckDispose(http)
    CkBinData::ckDispose(bd)


    ProcedureReturn
EndProcedure