[Module] QRCode (all OS)

[Thorsten1867]

QRCode - Module (all OS / 64Bit / DPI)

( Based on the code of infratec )

• QRCode - Gadget
• Create a QR-Code (Image)
• Decode QR-Code (image)

Code: Select all

; ----- Image -----
; QRCode::Create()             - Create an image with the QRCode
; QRCode::SetDefaults()        - Change defaults for Create()

; ----- Gadget -----
; QRCode::Gadget()             - Gadget for QRCodes

; QRCode::GetText()            - similar to 'GetGadgetText()'
; QRCode::GetColor()           - similar to 'GetGadgetColor()'

; QRCode::SetAutoResizeFlags() - [#MoveX|#MoveY|#Width|#Height]

; QRCode::SetAttribute()       - similar to 'SetGadgetAttribute()'
; QRCode::SetColor()           - similar to 'SetGadgetColor()'
; QRCode::SetText()            - similar to 'SetGadgetText()'

; ----- Decode -----
; QRCode::Decode()              - decodes an image with QRCode

Download 'QRCodeModule.pbi'

[Thorsten1867]

Update: Deocoding of QR-Codes added

[STARGÅTE]

You forgot the code or a download link.

[Thorsten1867]

Look in my signature

[STARGÅTE]

Look in my signature

Thanks for adding the direct link.
Signatures can be hidden in the forum theme, and some people actually hide them to improve the readability of topics.

[Paul]

Just a note, there is a bug in this Module where if you set the frontcolor using

Code: Select all

QRCode::SetColor(#Gadget, QRCode::#FrontColor, $800000)

but do not set any text using

Code: Select all

QRCode::SetText(#Gadget, "Hello World")

it will cause a crash.


An easy fix is to edit the Procedure Draw_()
and add a check at the end of the procedure by changing

Code: Select all

DrawImage(ImageID(QRCode()\Image), X, Y)

to

Code: Select all

If IsImage(QRCode()\Image)
   DrawImage(ImageID(QRCode()\Image), X, Y)
EndIf

[idle]

Nice module thankyou.

[Thorsten1867]

Just a note, there is a bug in this Module where if you set the frontcolor using

Code: Select all

QRCode::SetColor(#Gadget, QRCode::#FrontColor, $800000)

but do not set any text using

Code: Select all

QRCode::SetText(#Gadget, "Hello World")

it will cause a crash.


An easy fix is to edit the Procedure Draw_()
and add a check at the end of the procedure by changing

Code: Select all

DrawImage(ImageID(QRCode()\Image), X, Y)

to

Code: Select all

If IsImage(QRCode()\Image)
   DrawImage(ImageID(QRCode()\Image), X, Y)
EndIf

Bug fixed.

[Psychophanta]

It looks like read a qr image good, and the numeric code is correct.
The problem is that when try the conversion again to the graphic from the numerical code, then the result is far to be correct.