Visual FoxPro 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. Visual FoxPro

LOCAL lnSuccess
LOCAL loFmt
LOCAL loJson
LOCAL loJsonOut

lnSuccess = 0

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

loFmt = CreateObject('Chilkat.Formats')
loJson = CreateObject('Chilkat.JsonObject')
loJsonOut = CreateObject('Chilkat.JsonObject')
loJson.UpdateInt("render.moduleSize",6)
loJson.UpdateBool("output.overwrite",1)
loJson.UpdateString("output.return","none")

*  An email, with the address and optionally a subject.  Spaces in the subject are written %20.
loJson.UpdateString("payload.text","mailto:support@example.com?subject=Order%2012345")
loJson.UpdateString("output.path","qa_output/qr_email.png")
lnSuccess = loFmt.QrCode("generate",loJson,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loFmt.LastErrorText
    RELEASE loFmt
    RELEASE loJson
    RELEASE loJsonOut
    CANCEL
ENDIF

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

*  

*  A phone number to dial, in international form.
loJson.UpdateString("payload.text","tel:+15555550100")
loJson.UpdateString("output.path","qa_output/qr_phone.png")
lnSuccess = loFmt.QrCode("generate",loJson,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loFmt.LastErrorText
    RELEASE loFmt
    RELEASE loJson
    RELEASE loJsonOut
    CANCEL
ENDIF

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

*  

*  A text message: the number, then the message.
loJson.UpdateString("payload.text","SMSTO:+15555550100:Please call me back")
loJson.UpdateString("output.path","qa_output/qr_sms.png")
lnSuccess = loFmt.QrCode("generate",loJson,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loFmt.LastErrorText
    RELEASE loFmt
    RELEASE loJson
    RELEASE loJsonOut
    CANCEL
ENDIF

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

*  

*  A location: latitude, then longitude, in degrees.
loJson.UpdateString("payload.text","geo:41.8781,-87.6298")
loJson.UpdateString("output.path","qa_output/qr_location.png")
lnSuccess = loFmt.QrCode("generate",loJson,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loFmt.LastErrorText
    RELEASE loFmt
    RELEASE loJson
    RELEASE loJsonOut
    CANCEL
ENDIF

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

RELEASE loFmt
RELEASE loJson
RELEASE loJsonOut