B4X 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. B4X

Dim success As Boolean = False

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

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("payload.text", "https://www.chilkatsoft.com/")
json.UpdateString("output.format", "svg")

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

Dim fmt As ChilkatFormats
fmt.Initialize
Dim jsonOut As ChilkatJsonObject
jsonOut.Initialize
success = fmt.QrCode("generate", json, jsonOut)
If success = False Then
    Log(fmt.LastErrorText)
    Return
End If


Dim sbSvg As ChilkatStringBuilder
sbSvg.Initialize
jsonOut.StringOfSb("outputs[0].text", sbSvg)

Log("MIME type: " & jsonOut.StringOf("outputs[0].mimeType"))
Log("size: " & jsonOut.IntOf("outputs[0].width") & " x " & jsonOut.IntOf("outputs[0].height") & " " & jsonOut.StringOf("outputs[0].units"))
Log("SVG length: " & 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
    Log(sbSvg.LastErrorText)
    Return
End If


'  The SVG:

'  

'  Sample output:

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