Xojo Plugin Requires Chilkat v11.7.0+

Generate a QR Code as SVG

See more QR Code Examples

Demonstrates SVG output. An SVG is a vector image, so it stays sharp at any size, which suits print and responsive web pages. Setting output.format to svg and output.return to text returns the SVG document as a string in outputs[0].text. The SVG can also be written straight to a file with output.path, the same as a PNG. 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
success = json.UpdateString("payload.text","https://www.chilkatsoft.com/")
success = json.UpdateString("output.format","svg")

//  An SVG is text, so it can be returned as text rather than as base64.
success = json.UpdateString("output.return","text")

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

Dim sbSvg As New Chilkat.StringBuilder
success = jsonOut.StringOfSb("outputs[0].text",sbSvg)

System.DebugLog("MIME type: " + jsonOut.StringOf("outputs[0].mimeType"))
System.DebugLog("size: " + Str(jsonOut.IntOf("outputs[0].width")) + " x " + Str(jsonOut.IntOf("outputs[0].height")) + " " + jsonOut.StringOf("outputs[0].units"))
System.DebugLog("SVG length: " + Str(sbSvg.Length) + " characters")

//  The SVG is a complete document that can be saved, or placed inline in an HTML page.
success = sbSvg.WriteFile("qa_output/qr_chilkat.svg","utf-8",False)
If (success = False) Then
    System.DebugLog(sbSvg.LastErrorText)
    Return
End If

//  The SVG:

//  

//  Sample output:

//  MIME type: image/svg+xml
//  size: 148 x 148 px
//  SVG length: 12500 characters