(Visual FoxPro) 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

LOCAL loHttp
LOCAL loBd
LOCAL lnSuccess
LOCAL lnStatusCode

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')

* Download the contents of a PDF file into the bd object.
lnSuccess = loHttp.QuickGetBd("https://www.chilkatsoft.com/hello.pdf",loBd)
IF (lnSuccess = 0) THEN
    * 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).
    lnStatusCode = loHttp.LastStatus
    ? "Response status: " + STR(lnStatusCode)

    IF (lnStatusCode = 0) THEN
        * There was an error in communications.  
        ? loHttp.LastErrorText
    ELSE
        * We received a response status code indicating failure.
        * Examine the response body.
        ? loHttp.LastResponseBody
    ENDIF

    RELEASE loHttp
    RELEASE loBd
    CANCEL
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.
lnSuccess = loBd.WriteFile("qa_output/hello.pdf")
IF (lnSuccess = 0) THEN
    ? "Failed to write output file."
ELSE
    ? "Wrote hello.pdf"
ENDIF

RELEASE loHttp
RELEASE loBd