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

See more HTTP Examples

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

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