Perl Requires Chilkat v11.7.0+

Generate a QR Code PNG in Memory

See more QR Code Examples

Demonstrates getting a QR code image without writing a file. With no output options the result is a PNG returned as base64 in outputs[0].base64 of the response. The example decodes it into a BinData, which holds the bytes of the PNG to send in an HTTP response, store in a database, attach to an email, or save. Perl

use chilkat();

$success = 0;

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

$json = chilkat::CkJsonObject->new();
$json->UpdateString("payload.text","https://www.chilkatsoft.com/");
$json->UpdateInt("render.moduleSize",6);

$fmt = chilkat::CkFormats->new();
$jsonOut = chilkat::CkJsonObject->new();
$success = $fmt->QrCode("generate",$json,$jsonOut);
if ($success == 0) {
    print $fmt->lastErrorText() . "\r\n";
    exit;
}

print "format: " . $jsonOut->stringOf("outputs[0].format") . "\r\n";
print "MIME type: " . $jsonOut->stringOf("outputs[0].mimeType") . "\r\n";
print "image: " . $jsonOut->IntOf("outputs[0].width") . " x " . $jsonOut->IntOf("outputs[0].height") . " pixels" . "\r\n";

#  outputs[0].base64 is the PNG file, base64 encoded.
$bdPng = chilkat::CkBinData->new();
$success = $bdPng->AppendEncoded($jsonOut->stringOf("outputs[0].base64"),"base64");
if ($success == 0) {
    print $bdPng->lastErrorText() . "\r\n";
    exit;
}

print "PNG bytes: " . $bdPng->get_NumBytes() . "\r\n";

#  The BinData holds the image.  Here it is simply saved.
$success = $bdPng->WriteFile("qa_output/qr_in_memory.png");
if ($success == 0) {
    print $bdPng->lastErrorText() . "\r\n";
    exit;
}

#  The PNG held in bdPng:

#  

#  Sample output:

#  format: png
#  MIME type: image/png
#  image: 222 x 222 pixels
#  PNG bytes: 877