Perl

QuickGetObj Example

The QuickGetObj method is called to send a GET request and receive the response as an HttpResponse 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();

# Send a GET request to download a PDF into an HTTP response object.
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpNoBody("GET","https://www.chilkatsoft.com/hello.pdf",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Get the response status
$statusCode = $resp->get_StatusCode();
print "Response status: " . $statusCode . "\r\n";

# In this example, we want a 200 status code.
if ($statusCode == 200) {
    # Save the response body to a file.
    # Note: This is only for the sake of this example.
    # It's better to call the Download method to download directly to a file.
    $success = $resp->SaveBodyBinary("qa_output/hello.pdf");
    if ($success == 0) {
        print "Failed to write output file." . "\r\n";
    }
    else {
        print "Wrote hello.pdf" . "\r\n";
    }

}
else {
    # Perhaps we have response body with an error message..
    print $resp->bodyStr() . "\r\n";

}