Xojo Plugin

REST Download Binary File to Memory

See more REST Examples

Download a binary file to a Chilkat BinData object. Xojo Plugin

Dim success As Boolean
success = False

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

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

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

Dim bd As New Chilkat.BinData
success = rest.FullRequestNoBodyBd("GET",pathPartOfUrl,bd)
If (success <> True) Then
    System.DebugLog(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 New Chilkat.StringBuilder
    success = sbErrorText.AppendBd(bd,"utf-8",0,0)
    System.DebugLog(sbErrorText.GetAsString())
    System.DebugLog("-- 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
    System.DebugLog("Failed to save to local file.")
    Return
End If

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