VB.NET

REST Download Binary File to Memory

See more REST Examples

Download a binary file to a Chilkat BinData object. VB.NET

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

Dim bTls As Boolean = True
Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect(domain,port,bTls,bAutoReconnect)
If (success <> True) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


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


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