Visual Basic 6.0

Explaining the Rest ClearResponseBodyStream Method

See more Azure Cloud Storage Examples

The ClearResponseBodyStream method would be needed if your applicaiton called SetResponseBodyStream to send the response to a stream for one request, but then wants to subsequently do something else. The application must call ClearResponseBodyStream to no longer send responses to the stream. Visual Basic 6.0

Dim success As Long
success = 0

' 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 web server
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("www.chilkatsoft.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' Setup a file stream for the download
Dim fileStream As New ChilkatStream
fileStream.SinkFile = "qa_output/starfish.jpg"

' Indicate that the call to FullRequestNoBody should send the response body
' to fileStream if the response status code is 200.
' If a non-success response status code is received, then nothing
' is streamed to the output file and the error response is returned by FullRequestNoBody.
Dim expectedStatus As Long
expectedStatus = 200
success = rest.SetResponseBodyStream(expectedStatus,1,fileStream)

Dim responseStr As String
responseStr = rest.FullRequestNoBody("GET","/images/starfish.jpg")
If (rest.LastMethodSuccess = 0) Then
    ' Examine the request/response to see what happened.
    Debug.Print "response status code = " & rest.ResponseStatusCode
    Debug.Print "response status text = " & rest.ResponseStatusText
    Debug.Print "response header: " & rest.ResponseHeader
    Debug.Print "response body (if any): " & responseStr
    Debug.Print "---"
    Debug.Print "LastRequestStartLine: " & rest.LastRequestStartLine
    Debug.Print "LastRequestHeader: " & rest.LastRequestHeader
    Exit Sub
End If

Debug.Print "downloaded starfish.jpg"

' Clear the response body stream previously set in the call to SetResponseBodyStream.
rest.ClearResponseBodyStream 

' Download something else, but this time send the response body to bd.
Dim bd As New ChilkatBinData
success = rest.FullRequestNoBodyBd("GET","/images/penguins.jpg",bd)
If (success = 0) Then
    ' Examine the request/response to see what happened.
    Debug.Print "response status code = " & rest.ResponseStatusCode
    Debug.Print "response status text = " & rest.ResponseStatusText
    Debug.Print "response header: " & rest.ResponseHeader
    Debug.Print "response body (if any): " & bd.GetString("utf-8")
    Debug.Print "---"
    Debug.Print "LastRequestStartLine: " & rest.LastRequestStartLine
    Debug.Print "LastRequestHeader: " & rest.LastRequestHeader
    Exit Sub
End If

' Save the contents of bd to a file.
success = bd.WriteFile("qa_output/penguins.jpg")

Debug.Print "Success: " & success