Perl

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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $rest = Chilkat2::Rest->new;

# Connect to the web server
my $bTls = 1;
my $port = 443;
my $bAutoReconnect = 1;
my $success = $rest->Connect('www.chilkatsoft.com', $port, $bTls, $bAutoReconnect);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

# Setup a file stream for the download
my $fileStream = Chilkat2::Stream->new;
$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.
my $expectedStatus = 200;
$rest->SetResponseBodyStream($expectedStatus, 1, $fileStream);

my $responseStr = $rest->FullRequestNoBody('GET', '/images/starfish.jpg');
if (!$rest->LastMethodSuccess) {
    # Examine the request/response to see what happened.
    print 'response status code = ', $rest->ResponseStatusCode, "\n";
    print 'response status text = ', $rest->ResponseStatusText, "\n";
    print 'response header: ', $rest->ResponseHeader, "\n";
    print 'response body (if any): ', $responseStr, "\n";
    print "---\n";
    print 'LastRequestStartLine: ', $rest->LastRequestStartLine, "\n";
    print 'LastRequestHeader: ', $rest->LastRequestHeader, "\n";
    exit;
}

print "downloaded starfish.jpg\n";

# 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.
my $bd = Chilkat2::BinData->new;
$success = $rest->FullRequestNoBodyBd('GET', '/images/penguins.jpg', $bd);
if (!$success) {
    # Examine the request/response to see what happened.
    print 'response status code = ', $rest->ResponseStatusCode, "\n";
    print 'response status text = ', $rest->ResponseStatusText, "\n";
    print 'response header: ', $rest->ResponseHeader, "\n";
    print 'response body (if any): ', $bd->GetString('utf-8'), "\n";
    print "---\n";
    print 'LastRequestStartLine: ', $rest->LastRequestStartLine, "\n";
    print 'LastRequestHeader: ', $rest->LastRequestHeader, "\n";
    exit;
}

# Save the contents of bd to a file.
$success = $bd->WriteFile('qa_output/penguins.jpg');

print 'Success: ', ($success ? 1 : 0), "\n";