PureBasic Forums - English

Posted: **Fri May 20, 2022 5:46 pm**

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

( Based on the code of infratec )

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

; ----- 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'

Posted: **Sat May 21, 2022 12:17 pm**

Update: Deocoding of QR-Codes added

Posted: **Sat May 21, 2022 2:05 pm**

You forgot the code or a download link.

Posted: **Sat May 21, 2022 2:09 pm**

Look in my signature

Posted: **Sat May 21, 2022 2:42 pm**

Thorsten1867 wrote: Sat May 21, 2022 2:09 pm 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.

Posted: **Tue Oct 25, 2022 2:07 am**

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

Posted: **Tue Oct 25, 2022 3:48 am**

Nice module thankyou.

Posted: **Tue Mar 21, 2023 12:29 pm**

Paul wrote: Tue Oct 25, 2022 2:07 am 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.

Posted: **Wed Jan 29, 2025 4:24 pm**

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.

PureBasic Forums - English

[Module] QRCode (all OS)

[Module] QRCode (all OS)

Re: [Module] QRCode Gadget (all OS)

Re: [Module] QRCode Gadget (all OS)

Re: [Module] QRCode Gadget (all OS)

Re: [Module] QRCode Gadget (all OS)

Re: [Module] QRCode (all OS)

Re: [Module] QRCode (all OS)

Re: [Module] QRCode (all OS)

Re: [Module] QRCode (all OS)