Visual Basic 6.0

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

See more HTTP Examples

Demonstrates how to download an image, or any type of file, to get the data in base64 encoding format. Visual Basic 6.0

Dim success As Long
success = 0

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

Dim http As New ChilkatHttp
http.KeepResponseBody = 1

Dim bd As New ChilkatBinData

success = http.DownloadBd("https://www.chilkatsoft.com/images/starfish.jpg",bd)
Dim statusCode As Long
statusCode = http.LastStatus
If (success = 0) Then
    If (statusCode = 0) Then
        ' Unable to either send the request or get the response.
        Debug.Print http.LastErrorText
    Else
        ' We got a response, but the status code was not in the 200s
        Debug.Print "Response status code: " & statusCode
        ' Examine the response body.
        Debug.Print "Response body:"
        Debug.Print http.LastResponseBody
    End If

    Debug.Print "Download failed."

Else
    Debug.Print "Download success, response status = " & statusCode

    Dim base64_image_data As String
    base64_image_data = bd.GetEncoded("base64")
    Debug.Print "image data in base64 format:"
    Debug.Print base64_image_data
End If