Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) REST Download Binary File to MemorySee more REST ExamplesDownload a binary file to a Chilkat BinData object.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set rest = CreateObject("Chilkat_9_5_0.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 outFile.WriteLine(rest.LastErrorText) WScript.Quit End If set bd = CreateObject("Chilkat_9_5_0.BinData") success = rest.FullRequestNoBodyBd("GET",pathPartOfUrl,bd) If (success <> 1) Then outFile.WriteLine(rest.LastErrorText) WScript.Quit 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 set sbErrorText = CreateObject("Chilkat_9_5_0.StringBuilder") success = sbErrorText.AppendBd(bd,"utf-8",0,0) outFile.WriteLine(sbErrorText.GetAsString()) outFile.WriteLine("-- Failed.") WScript.Quit 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 outFile.WriteLine("Failed to save to local file.") WScript.Quit End If outFile.WriteLine("REST Download of MS-Word File was successful.") outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.