Xbase++ 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. Xbase++

LOCAL nSuccess
LOCAL oFmt
LOCAL oJson
LOCAL oJsonOut

nSuccess := 0

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

oFmt := CreateObject("Chilkat.Formats")
oJson := CreateObject("Chilkat.JsonObject")
oJsonOut := CreateObject("Chilkat.JsonObject")
oJson:UpdateInt("render.moduleSize", 6)
oJson:UpdateBool("output.overwrite", 1)
oJson:UpdateString("output.return", "none")

//  An email, with the address and optionally a subject.  Spaces in the subject are written %20.
oJson:UpdateString("payload.text", "mailto:support@example.com?subject=Order%2012345")
oJson:UpdateString("output.path", "qa_output/qr_email.png")
nSuccess := oFmt:QrCode("generate", oJson, oJsonOut)
IF (nSuccess == 0)
    ? oFmt:LastErrorText
    oFmt:destroy()
    oJson:destroy()
    oJsonOut:destroy()
    RETURN
ENDIF

? "email: version " + Str(oJsonOut:IntOf("symbols[0].selectedEncoding.version")) + ", " + oJsonOut:StringOf("outputs[0].path")

//  

//  A phone number to dial, in international form.
oJson:UpdateString("payload.text", "tel:+15555550100")
oJson:UpdateString("output.path", "qa_output/qr_phone.png")
nSuccess := oFmt:QrCode("generate", oJson, oJsonOut)
IF (nSuccess == 0)
    ? oFmt:LastErrorText
    oFmt:destroy()
    oJson:destroy()
    oJsonOut:destroy()
    RETURN
ENDIF

? "phone: version " + Str(oJsonOut:IntOf("symbols[0].selectedEncoding.version")) + ", " + oJsonOut:StringOf("outputs[0].path")

//  

//  A text message: the number, then the message.
oJson:UpdateString("payload.text", "SMSTO:+15555550100:Please call me back")
oJson:UpdateString("output.path", "qa_output/qr_sms.png")
nSuccess := oFmt:QrCode("generate", oJson, oJsonOut)
IF (nSuccess == 0)
    ? oFmt:LastErrorText
    oFmt:destroy()
    oJson:destroy()
    oJsonOut:destroy()
    RETURN
ENDIF

? "sms: version " + Str(oJsonOut:IntOf("symbols[0].selectedEncoding.version")) + ", " + oJsonOut:StringOf("outputs[0].path")

//  

//  A location: latitude, then longitude, in degrees.
oJson:UpdateString("payload.text", "geo:41.8781,-87.6298")
oJson:UpdateString("output.path", "qa_output/qr_location.png")
nSuccess := oFmt:QrCode("generate", oJson, oJsonOut)
IF (nSuccess == 0)
    ? oFmt:LastErrorText
    oFmt:destroy()
    oJson:destroy()
    oJsonOut:destroy()
    RETURN
ENDIF

? "location: version " + Str(oJsonOut:IntOf("symbols[0].selectedEncoding.version")) + ", " + oJsonOut:StringOf("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

oFmt:destroy()
oJson:destroy()
oJsonOut:destroy()