(DataFlex) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Variant vBd
    Handle hoBd
    Boolean iSuccess
    Integer iStatusCode
    String sTemp1

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End
    Get Create (RefClass(cComChilkatBinData)) To hoBd
    If (Not(IsComObjectCreated(hoBd))) Begin
        Send CreateComObject of hoBd
    End

    // Download the contents of a PDF file into the bd object.
    Get pvComObject of hoBd to vBd
    Get ComQuickGetBd Of hoHttp "https://www.chilkatsoft.com/hello.pdf" vBd To iSuccess
    If (iSuccess = False) Begin
        // 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 True if bd contains the desired content at the URL (not an error response).
        Get ComLastStatus Of hoHttp To iStatusCode
        Showln "Response status: " iStatusCode

        If (iStatusCode = 0) Begin
            // There was an error in communications.  
            Get ComLastErrorText Of hoHttp To sTemp1
            Showln sTemp1
        End
        Else Begin
            // We received a response status code indicating failure.
            // Examine the response body.
            Get ComLastResponseBody Of hoHttp To sTemp1
            Showln sTemp1
        End

        Procedure_Return
    End

    // 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.
    Get ComWriteFile Of hoBd "qa_output/hello.pdf" To iSuccess
    If (iSuccess = False) Begin
        Showln "Failed to write output file."
    End
    Else Begin
        Showln "Wrote hello.pdf"
    End



End_Procedure