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. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loBd
LOCAL lnStatusCode
LOCAL loPdf

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')
loHttp.KeepResponseBody = 1

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

* Load the downloaded PDF into a Chilkat PDF object.
loPdf = CreateObject('Chilkat.Pdf')
lnSuccess = loPdf.LoadBd(loBd)
IF (lnSuccess = 0) THEN
    ? loPdf.LastErrorText
    RELEASE loHttp
    RELEASE loBd
    RELEASE loPdf
    CANCEL
ENDIF

* ...

? "Success."

RELEASE loHttp
RELEASE loBd
RELEASE loPdf