Send a REST Request with a Binary Body

See more REST Examples

Demonstrates Rest.FullRequestBd, which sends a complete request whose binary body is read from a BinData and stores the text response body in a StringBuilder.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

use strict;
use warnings;
use Chilkat2;

my $rest = Chilkat2::Rest->new;
my $bTls = 1;
my $bAutoReconnect = 1;
my $success = $rest->Connect('example.com', 443, $bTls, $bAutoReconnect);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

# The file paths are relative to the application's current working directory.  Absolute paths
# may also be used.  Supply the paths appropriate to your own environment.

# FullRequestBd sends a request whose binary body is read from a BinData and stores the text
# response body in a StringBuilder.
my $bdRequest = Chilkat2::BinData->new;
my $bLoaded = $bdRequest->LoadFile('qa_data/image.png');
if (!$bLoaded) {
    print "Failed to load the request body file.\n";
    exit;
}

$rest->AddHeader('Content-Type', 'image/png');

my $sbResponse = Chilkat2::StringBuilder->new;
$success = $rest->FullRequestBd('PUT', '/api/images/1', $bdRequest, $sbResponse);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

my $responseText = $sbResponse->GetAsString();
if (!$sbResponse->LastMethodSuccess) {
    print $sbResponse->LastErrorText, "\n";
    exit;
}

print $responseText, "\n";