Download a Binary REST Response into BinData

See more REST Examples

Demonstrates Rest.FullRequestNoBodyBd, which sends a request with no body and stores the binary response body in a BinData.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set rest = CreateObject("Chilkat.Rest")
bTls = 1
bAutoReconnect = 1
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = 0) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

'  The file paths are relative to the application's current working directory.  Absolute paths
'  may also be used.  Supply the paths appropriate to your own environment.

'  FullRequestNoBodyBd sends a request with no body and stores the binary response body in a
'  BinData.  This is appropriate when the response is binary, such as an image or file download.
set bdResponse = CreateObject("Chilkat.BinData")
success = rest.FullRequestNoBodyBd("GET","/api/images/1",bdResponse)
If (success = 0) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

bSaved = bdResponse.WriteFile("qa_output/image.png")
If (bSaved <> 1) Then
    outFile.WriteLine("Failed to save the response body.")
    WScript.Quit
End If

outFile.WriteLine("Downloaded " & bdResponse.NumBytes & " bytes.")

outFile.Close