Perl

Set a MIME Body from Binary Bytes (BinData)

Demonstrates the Chilkat Mime.SetBodyBd method, which sets the decoded body bytes from a BinData, changes the transfer encoding to base64, and preserves the bytes exactly. The only argument is the BinData.

Note: 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: This is the direct way to put arbitrary binary content into a part from memory — a generated image, a decrypted blob — without a temporary file. Chilkat base64-encodes it so the bytes survive text-based transports unchanged. Note it does not set a Content-Type or disposition, so assign those yourself to describe what the bytes are.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Mime.SetBodyBd method, which sets the decoded body bytes from a BinData,
#  changes the transfer encoding to base64, and preserves the bytes exactly.  The only argument is
#  the BinData.

#  Put the binary body bytes into a BinData.
$bd = chilkat::CkBinData->new();
$success = $bd->LoadFile("qa_data/photo.jpg");
if ($success == 0) {
    print $bd->lastErrorText() . "\r\n";
    exit;
}

$mime = chilkat::CkMime->new();

#  Set a Content-Type for the binary content (SetBodyBd does not set one itself).
$mime->put_ContentType("image/jpeg");

$success = $mime->SetBodyBd($bd);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print "Body set from " . $bd->get_NumBytes() . " bytes." . "\r\n";