B4X

REST Download Binary File to Memory

See more REST Examples

Download a binary file to a Chilkat BinData object. B4X

Dim success As Boolean = False

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

Dim rest As ChilkatRest
rest.Initialize("rest")

'  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 = "/sample_data/sample.doc"
Dim domain As String = "chilkatdownload.com"

Dim bTls As Boolean = True
Dim port As Int = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect(domain, port, bTls, bAutoReconnect)
If success <> True Then
    Log(rest.LastErrorText)
    Return
End If


Dim bd As ChilkatBinData
bd.Initialize
success = rest.FullRequestNoBodyBd("GET", pathPartOfUrl, bd)
If success <> True Then
    Log(rest.LastErrorText)
    Return
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 ChilkatStringBuilder
    sbErrorText.Initialize
    sbErrorText.AppendBd(bd, "utf-8", 0, 0)
    Log(sbErrorText.GetAsString)
    Log("-- Failed.")
    Return
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 <> True Then
    Log("Failed to save to local file.")
    Return
End If


Log("REST Download of MS-Word File was successful.")