Perl

QuickGetBd Example

The QuickGetBd method is called to send a GET request to download a binary target, such as PDF, zip, image file, etc. into a Chilkat BinData object. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;
$http->KeepResponseBody(1);

my $bd = Chilkat2::BinData->new;

# Download the contents of a PDF file into the bd object.
my $success = $http->QuickGetBd('https://www.chilkatsoft.com/hello.pdf', $bd);
if (!$success) {
    # This will happen if the response status code was 400 or greater,
    # or if the request could not be sent, or if no response was received.
    #
    # In other words, success will only be 1 if bd contains the desired content at the URL (not an error response).
    my $statusCode = $http->LastStatus;
    print 'Response status: ', $statusCode, "\n";

    if ($statusCode == 0) {
        # There was an error in communications.
        print $http->LastErrorText, "\n";
    } else {
        # We received a response status code indicating failure.
        # Examine the response body.
        print $http->LastResponseBody, "\n";
    }

    exit;
}

# Load the downloaded PDF into a Chilkat PDF object.
my $pdf = Chilkat2::Pdf->new;
$success = $pdf->LoadBd($bd);
if (!$success) {
    print $pdf->LastErrorText, "\n";
    exit;
}

# ...

print "Success.\n";