Perl

Set a Multipart Part Body from BinData

Demonstrates Rest.SetMultipartBodyBd, which sets the binary body of the selected multipart part from a BinData.

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.

Background. A multipart request is assembled part by part: the part selector chooses the part being built, header fields describe it, and a SetMultipartBody method supplies its content. The request is then sent with a multipart send or full-request method.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

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.

# Select the multipart part to build, and set its header fields.
$rest->PartSelector('1');
$rest->AddHeader('Content-Disposition', 'form-data; name="field1"');
$rest->AddHeader('Content-Type', 'image/png');

# Set the binary body of the selected part from a BinData.
my $bdBody = Chilkat2::BinData->new;
my $bLoaded = $bdBody->LoadFile('qa_data/image.png');
if (!$bLoaded) {
    print "Failed to load the part body file.\n";
    exit;
}

$success = $rest->SetMultipartBodyBd($bdBody);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

my $responseText = $rest->FullRequestMultipart('POST', '/api/upload');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

print $responseText, "\n";