(Visual Basic 6.0) REST Download Binary File to Memory

See more REST Examples

Download a binary file to a Chilkat BinData object.

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

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

Dim rest As New ChilkatRest
Dim success As Long

' We're going to download a sample MS-Word doc file.
' The URLs of our MS-Word sample documents are:

' https://www.chilkatdownload.com/sample_data/sample.doc
' https://www.chilkatdownload.com/sample_data/sample.docx

Dim pathPartOfUrl As String
pathPartOfUrl = "/sample_data/sample.doc"
Dim domain As String
domain = "chilkatdownload.com"

Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
Dim success As Long
success = rest.Connect(domain,port,bTls,bAutoReconnect)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim bd As New ChilkatBinData
success = rest.FullRequestNoBodyBd("GET",pathPartOfUrl,bd)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' A 200 response is expected for actual success.
' If we don't get a 200 response, then the response body was not actually
' the file data, but it was text containing error information.
If (rest.ResponseStatusCode <> 200) Then
    Dim sbErrorText As New ChilkatStringBuilder
    success = sbErrorText.AppendBd(bd,"utf-8",0,0)
    Debug.Print sbErrorText.GetAsString()
    Debug.Print "-- Failed."
    Exit Sub
End If

' Save to a local file.
' Change the file path based on your operating system or needs...
success = bd.WriteFile("c:/temp/qa_output/sample.doc")
If (success <> 1) Then
    Debug.Print "Failed to save to local file."
    Exit Sub
End If

Debug.Print "REST Download of MS-Word File was successful."