(Classic ASP) 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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest")
set rest = Server.CreateObject("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

pathPartOfUrl = "/sample_data/sample.doc"
domain = "chilkatdownload.com"

bTls = 1
port = 443
bAutoReconnect = 1
success = rest.Connect(domain,port,bTls,bAutoReconnect)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = Server.CreateObject("Chilkat.BinData")
success = rest.FullRequestNoBodyBd("GET",pathPartOfUrl,bd)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
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
    ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
    set sbErrorText = Server.CreateObject("Chilkat.StringBuilder")
    success = sbErrorText.AppendBd(bd,"utf-8",0,0)
    Response.Write "<pre>" & Server.HTMLEncode( sbErrorText.GetAsString()) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "-- Failed.") & "</pre>"
    Response.End
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
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to save to local file.") & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "REST Download of MS-Word File was successful.") & "</pre>"

%>
</body>
</html>