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

use strict;
use warnings;
use Chilkat2;

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

my $json = Chilkat2::JsonObject->new;
$json->UpdateString('payload.text', 'https://www.chilkatsoft.com/');
$json->UpdateInt('render.moduleSize', 6);

my $fmt = Chilkat2::Formats->new;
my $jsonOut = Chilkat2::JsonObject->new;
my $success = $fmt->QrCode('generate', $json, $jsonOut);
if (!$success) {
    print $fmt->LastErrorText, "\n";
    exit;
}

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

# outputs[0].base64 is the PNG file, base64 encoded.
my $bdPng = Chilkat2::BinData->new;
$success = $bdPng->AppendEncoded($jsonOut->StringOf('outputs[0].base64'), 'base64');
if (!$success) {
    print $bdPng->LastErrorText, "\n";
    exit;
}

print 'PNG bytes: ', $bdPng->NumBytes, "\n";

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

# The PNG held in bdPng:

# 

# Sample output:

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