(PowerBuilder) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
integer li_Success
oleobject loo_FileStream
integer li_ExpectedStatus
string ls_ResponseStr
oleobject loo_Bd

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Connect to the web server
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("www.chilkatsoft.com",li_Port,li_BTls,li_BAutoReconnect)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

// Setup a file stream for the download
loo_FileStream = create oleobject
// Use "Chilkat_9_5_0.Stream" for versions of Chilkat < 10.0.0
li_rc = loo_FileStream.ConnectToNewObject("Chilkat.Stream")

loo_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.
li_ExpectedStatus = 200
loo_Rest.SetResponseBodyStream(li_ExpectedStatus,1,loo_FileStream)

ls_ResponseStr = loo_Rest.FullRequestNoBody("GET","/images/starfish.jpg")
if loo_Rest.LastMethodSuccess = 0 then
    // Examine the request/response to see what happened.
    Write-Debug "response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "response status text = " + loo_Rest.ResponseStatusText
    Write-Debug "response header: " + loo_Rest.ResponseHeader
    Write-Debug "response body (if any): " + ls_ResponseStr
    Write-Debug "---"
    Write-Debug "LastRequestStartLine: " + loo_Rest.LastRequestStartLine
    Write-Debug "LastRequestHeader: " + loo_Rest.LastRequestHeader
    destroy loo_Rest
    destroy loo_FileStream
    return
end if

Write-Debug "downloaded starfish.jpg"

// Clear the response body stream previously set in the call to SetResponseBodyStream.
loo_Rest.ClearResponseBodyStream()

// Download something else, but this time send the response body to bd.
loo_Bd = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Rest.FullRequestNoBodyBd("GET","/images/penguins.jpg",loo_Bd)
if li_Success = 0 then
    // Examine the request/response to see what happened.
    Write-Debug "response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "response status text = " + loo_Rest.ResponseStatusText
    Write-Debug "response header: " + loo_Rest.ResponseHeader
    Write-Debug "response body (if any): " + loo_Bd.GetString("utf-8")
    Write-Debug "---"
    Write-Debug "LastRequestStartLine: " + loo_Rest.LastRequestStartLine
    Write-Debug "LastRequestHeader: " + loo_Rest.LastRequestHeader
    destroy loo_Rest
    destroy loo_FileStream
    destroy loo_Bd
    return
end if

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

Write-Debug "Success: " + string(li_Success)


destroy loo_Rest
destroy loo_FileStream
destroy loo_Bd