(Visual FoxPro) Download Image (JPG, GIF, etc.) to Base64

See more HTTP Examples

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL loBd
LOCAL lnStatusCode
LOCAL lcBase64_image_data

lnSuccess = 0

* This example requires 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')

lnSuccess = loHttp.DownloadBd("https://www.chilkatsoft.com/images/starfish.jpg",loBd)
lnStatusCode = loHttp.LastStatus
IF (lnSuccess = 0) THEN
    IF (lnStatusCode = 0) THEN
        * Unable to either send the request or get the response.
        ? loHttp.LastErrorText
    ELSE
        * We got a response, but the status code was not in the 200s
        ? "Response status code: " + STR(lnStatusCode)
        * Examine the response body.
        ? "Response body:"
        ? loHttp.LastResponseBody
    ENDIF

    ? "Download failed."

ELSE
    ? "Download success, response status = " + STR(lnStatusCode)

    lcBase64_image_data = loBd.GetEncoded("base64")
    ? "image data in base64 format:"
    ? lcBase64_image_data
ENDIF

RELEASE loHttp
RELEASE loBd