Xojo Plugin Requires Chilkat v11.7.0+

Get the QR Code Capabilities of the Chilkat Version in Use

See more QR Code Examples

Demonstrates the capabilities operation, which describes what the installed version of Chilkat can do: the range of QR versions, the error-correction levels, the operations, the image formats and the limits. A program can check for a feature here instead of testing for a Chilkat version number. The request can be an empty JSON object. Xojo Plugin

Dim success As Boolean
success = False

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

Dim json As New Chilkat.JsonObject
Dim fmt As New Chilkat.Formats
Dim jsonOut As New Chilkat.JsonObject
success = fmt.QrCode("capabilities",json,jsonOut)
If (success = False) Then
    System.DebugLog(fmt.LastErrorText)
    Return
End If

System.DebugLog("Chilkat version: " + jsonOut.StringOf("productVersion"))
System.DebugLog("symbology: " + jsonOut.StringOf("symbologies[0].id"))
System.DebugLog("QR versions: " + Str(jsonOut.IntOf("symbologies[0].encoding.version.min")) + " to " + Str(jsonOut.IntOf("symbologies[0].encoding.version.max")))
System.DebugLog("structured append, most symbols: " + Str(jsonOut.IntOf("symbologies[0].structuredAppend.maxSymbols")))

Dim i As Int32
Dim n As Int32
n = jsonOut.SizeOfArray("symbologies[0].encoding.errorCorrection")
For i = 0 To n - 1
    jsonOut.I = i
    System.DebugLog("error correction: " + jsonOut.StringOf("symbologies[0].encoding.errorCorrection[i]"))
Next

//  The operations this version implements.
n = jsonOut.SizeOfArray("operations")
For i = 0 To n - 1
    jsonOut.I = i
    If (jsonOut.BoolOf("operations[i].available") = True) Then
        System.DebugLog("operation: " + jsonOut.StringOf("operations[i].name"))
    End If

Next

n = jsonOut.SizeOfArray("imageFormats.output")
For i = 0 To n - 1
    jsonOut.I = i
    System.DebugLog("image format: " + jsonOut.StringOf("imageFormats.output[i]"))
Next

System.DebugLog("default timeout: " + Str(jsonOut.IntOf("limits.timeoutMs.default")) + " ms")
System.DebugLog("default largest image: " + Str(jsonOut.IntOf("limits.maxPixels.default")) + " pixels")

//  Sample output:

//  Chilkat version: 11.7.0
//  symbology: qr
//  QR versions: 1 to 40
//  structured append, most symbols: 16
//  error correction: auto
//  error correction: L
//  error correction: M
//  error correction: Q
//  error correction: H
//  operation: generate
//  operation: measure
//  operation: validate
//  operation: capabilities
//  image format: png
//  image format: svg
//  default timeout: 10000 ms
//  default largest image: 16777216 pixels