Tcl Requires Chilkat v11.7.0+

QR Codes for Email, Phone, SMS and Location

See more QR Code Examples

Demonstrates QR codes that start an action on a phone. A QR code only holds text, and what happens on scanning depends on the form of that text: mailto: starts an email, tel: dials a number, SMSTO: starts a text message, and geo: opens a map at a latitude and longitude. A web address opens in the browser. Tcl

load ./chilkat.dll

set success 0

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

set fmt [new_CkFormats]

set json [new_CkJsonObject]

set jsonOut [new_CkJsonObject]

CkJsonObject_UpdateInt $json "render.moduleSize" 6
CkJsonObject_UpdateBool $json "output.overwrite" 1
CkJsonObject_UpdateString $json "output.return" "none"

#  An email, with the address and optionally a subject.  Spaces in the subject are written %20.
CkJsonObject_UpdateString $json "payload.text" "mailto:support@example.com?subject=Order%2012345"
CkJsonObject_UpdateString $json "output.path" "qa_output/qr_email.png"
set success [CkFormats_QrCode $fmt "generate" $json $jsonOut]
if {$success == 0} then {
    puts [CkFormats_lastErrorText $fmt]
    delete_CkFormats $fmt
    delete_CkJsonObject $json
    delete_CkJsonObject $jsonOut
    exit
}

puts "email: version [CkJsonObject_IntOf $jsonOut {symbols[0].selectedEncoding.version}], [CkJsonObject_stringOf $jsonOut {outputs[0].path}]"

#  

#  A phone number to dial, in international form.
CkJsonObject_UpdateString $json "payload.text" "tel:+15555550100"
CkJsonObject_UpdateString $json "output.path" "qa_output/qr_phone.png"
set success [CkFormats_QrCode $fmt "generate" $json $jsonOut]
if {$success == 0} then {
    puts [CkFormats_lastErrorText $fmt]
    delete_CkFormats $fmt
    delete_CkJsonObject $json
    delete_CkJsonObject $jsonOut
    exit
}

puts "phone: version [CkJsonObject_IntOf $jsonOut {symbols[0].selectedEncoding.version}], [CkJsonObject_stringOf $jsonOut {outputs[0].path}]"

#  

#  A text message: the number, then the message.
CkJsonObject_UpdateString $json "payload.text" "SMSTO:+15555550100:Please call me back"
CkJsonObject_UpdateString $json "output.path" "qa_output/qr_sms.png"
set success [CkFormats_QrCode $fmt "generate" $json $jsonOut]
if {$success == 0} then {
    puts [CkFormats_lastErrorText $fmt]
    delete_CkFormats $fmt
    delete_CkJsonObject $json
    delete_CkJsonObject $jsonOut
    exit
}

puts "sms: version [CkJsonObject_IntOf $jsonOut {symbols[0].selectedEncoding.version}], [CkJsonObject_stringOf $jsonOut {outputs[0].path}]"

#  

#  A location: latitude, then longitude, in degrees.
CkJsonObject_UpdateString $json "payload.text" "geo:41.8781,-87.6298"
CkJsonObject_UpdateString $json "output.path" "qa_output/qr_location.png"
set success [CkFormats_QrCode $fmt "generate" $json $jsonOut]
if {$success == 0} then {
    puts [CkFormats_lastErrorText $fmt]
    delete_CkFormats $fmt
    delete_CkJsonObject $json
    delete_CkJsonObject $jsonOut
    exit
}

puts "location: version [CkJsonObject_IntOf $jsonOut {symbols[0].selectedEncoding.version}], [CkJsonObject_stringOf $jsonOut {outputs[0].path}]"

#  

#  Sample output:

#  email: version 4, qa_output/qr_email.png
#  phone: version 2, qa_output/qr_phone.png
#  sms: version 3, qa_output/qr_sms.png
#  location: version 2, qa_output/qr_location.png

delete_CkFormats $fmt
delete_CkJsonObject $json
delete_CkJsonObject $jsonOut