Chilkat HOME Android™ Classic ASP C C++ C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic Python Ruby SQL Server Swift Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js
(Visual Basic 6.0) REST Stream Response to File (Streaming Download) (Amazon S3)Demonstrates how to stream the response body directly to a file. (The example shows how to stream a JPG from the Amazon S3 service.)
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim rest As New ChilkatRest ' Connect to the Amazon AWS REST server. Dim bTls As Long bTls = 1 Dim port As Long port = 443 Dim bAutoReconnect As Long bAutoReconnect = 1 Dim success As Long success = rest.Connect("s3.amazonaws.com",port,bTls,bAutoReconnect) ' Provide AWS credentials for the REST call. Dim authAws As New ChilkatAuthAws authAws.AccessKey = "AWS_ACCESS_KEY" authAws.SecretKey = "AWS_SECRET_KEY" authAws.ServiceName = "s3" success = rest.SetAuthAws(authAws) ' Set the bucket name via the HOST header. ' In this case, the bucket name is "chilkat100". rest.Host = "chilkat100.s3.amazonaws.com" ' Send the request to download the JPG. success = rest.SendReqNoBody("GET","/starfish.jpg") If (success <> 1) Then Text1.Text = Text1.Text & rest.LastErrorText & vbCrLf Exit Sub End If ' Read the response header. Dim responseStatusCode As Long responseStatusCode = rest.ReadResponseHeader() If (responseStatusCode < 0) Then Text1.Text = Text1.Text & rest.LastErrorText & vbCrLf Exit Sub End If Text1.Text = Text1.Text & "Response status code = " & responseStatusCode & vbCrLf ' We expect a 200 response status if the JPG data is coming. ' Otherwise, we'll get a string response body with an error message(or no response body). If (responseStatusCode = 200) Then Dim bodyStream As New ChilkatStream ' The stream's sink will be a file. bodyStream.SinkFile = "qa_output/starfish.jpg" ' Read the response body to the stream. Given that we've ' set the stream's sink to a file, it will stream directly ' to the file. success = rest.ReadRespBodyStream(bodyStream,1) If (success <> 1) Then Text1.Text = Text1.Text & rest.LastErrorText & vbCrLf Exit Sub End If Text1.Text = Text1.Text & "Successfully received the JPG file." & vbCrLf Else Dim errResponse As String errResponse = rest.ReadRespBodyString() If (rest.LastMethodSuccess <> 1) Then Text1.Text = Text1.Text & rest.LastErrorText & vbCrLf Else Text1.Text = Text1.Text & errResponse & vbCrLf End If End If |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.