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

use chilkat();

$success = 0;

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

$http = chilkat::CkHttp->new();
$http->put_KeepResponseBody(1);

$bd = chilkat::CkBinData->new();

# Download the contents of a PDF file into the bd object.
$success = $http->QuickGetBd("https://www.chilkatsoft.com/hello.pdf",$bd);
if ($success == 0) {
    # 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).
    $statusCode = $http->get_LastStatus();
    print "Response status: " . $statusCode . "\r\n";

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

    exit;
}

# Load the downloaded PDF into a Chilkat PDF object.
$pdf = chilkat::CkPdf->new();
$success = $pdf->LoadBd($bd);
if ($success == 0) {
    print $pdf->lastErrorText() . "\r\n";
    exit;
}

# ...

print "Success." . "\r\n";