Visual FoxPro Requires Chilkat v11.7.0+

Choose the QR Code Version and Mask Pattern

See more QR Code Examples

Demonstrates fixing the QR version and the mask pattern. The version (1 to 40) is the size of the symbol: version 1 is 21 modules wide and each version adds 4. By default QrCode picks the smallest version that holds the data and the mask pattern that scores best under the QR standard. Fixing the version is useful when a series of codes must all be the same size, and minVersion and maxVersion bound the automatic choice instead. Visual FoxPro

LOCAL lnSuccess
LOCAL loFmt
LOCAL loJson
LOCAL loJsonOut
LOCAL loJson2

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.UpdateString("payload.text","https://www.chilkatsoft.com/")

*  Automatic: the smallest version that holds the text, and the best-scoring mask.
lnSuccess = loFmt.QrCode("generate",loJson,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loFmt.LastErrorText
    RELEASE loFmt
    RELEASE loJson
    RELEASE loJsonOut
    CANCEL
ENDIF

? "automatic: version " + STR(loJsonOut.IntOf("symbols[0].selectedEncoding.version")) + ", " + STR(loJsonOut.IntOf("symbols[0].dimensions.modulesWide")) + " modules wide, mask " + STR(loJsonOut.IntOf("symbols[0].selectedEncoding.mask"))

*  A fixed version.  The call fails with capacityExceeded if the text does not fit it.
loJson.UpdateInt("encoding.qr.version",8)
lnSuccess = loFmt.QrCode("generate",loJson,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loFmt.LastErrorText
    RELEASE loFmt
    RELEASE loJson
    RELEASE loJsonOut
    CANCEL
ENDIF

? "version 8: version " + STR(loJsonOut.IntOf("symbols[0].selectedEncoding.version")) + ", " + STR(loJsonOut.IntOf("symbols[0].dimensions.modulesWide")) + " modules wide, mask " + STR(loJsonOut.IntOf("symbols[0].selectedEncoding.mask"))

*  A fixed mask pattern, 0 to 7.  Every mask gives a valid symbol holding the same data.
loJson.UpdateInt("encoding.qr.mask",5)
lnSuccess = loFmt.QrCode("generate",loJson,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loFmt.LastErrorText
    RELEASE loFmt
    RELEASE loJson
    RELEASE loJsonOut
    CANCEL
ENDIF

? "version 8, mask 5: version " + STR(loJsonOut.IntOf("symbols[0].selectedEncoding.version")) + ", mask " + STR(loJsonOut.IntOf("symbols[0].selectedEncoding.mask"))

*  Bounds for the automatic choice: no smaller than version 4, no larger than version 10.
loJson2 = CreateObject('Chilkat.JsonObject')
loJson2.UpdateString("payload.text","https://www.chilkatsoft.com/")
loJson2.UpdateInt("encoding.qr.minVersion",4)
loJson2.UpdateInt("encoding.qr.maxVersion",10)
lnSuccess = loFmt.QrCode("generate",loJson2,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loFmt.LastErrorText
    RELEASE loFmt
    RELEASE loJson
    RELEASE loJsonOut
    RELEASE loJson2
    CANCEL
ENDIF

? "minVersion 4: version " + STR(loJsonOut.IntOf("symbols[0].selectedEncoding.version"))

*  The four symbols, in the order they were made.  The second and the third hold the same data
*  in the same version and differ only in the mask:

*  

*  Sample output:

*  automatic: version 3, 29 modules wide, mask 2
*  version 8: version 8, 49 modules wide, mask 2
*  version 8, mask 5: version 8, mask 5
*  minVersion 4: version 4

RELEASE loFmt
RELEASE loJson
RELEASE loJsonOut
RELEASE loJson2