I created a full new reply so I could do a proper code sample.
We've been using IDAutomation's universal barcode generator for 10+ years now. They have a version for QR codes as well.
ID Automation QR Code Font
I haven't looked at pricing recently, there are several tiers to choose from
Once installed (font and data encoder), here's sample code to generate the text the font uses to produce a QRCode. Text field (static text or db column) will need to be tall enough to fit the entire QRCode.
oleobject ole_qrcodegen
ole_qrcodegen = create oleobject
long ll_status
ll_status = ole_qrcodegen.ConnectToNewObject("IDAuto.QRCode")
if ll_status = 0 then
string ls_result, ls_str2encode
ls_result = space(8192)
int ProcessTilde, EncodingMode = 0, ECL = 0, Ver = 0
ls_str2encode = "now is the time"
ole_qrcodegen.FontEncode(ls_str2encode, ProcessTilde, EncodingMode, ECL, Ver, ref ls_result)
ole_qrcodegen.disconnectobject()
end if
The text in ls_result can be put into a text field in a DW to show a QR Code, providing it's font is set properly.
// external function declaration:
Function long ShellExecute( long hwnd, string lpOperation, string lpFile, string lpParameters, string lpDirectory, integer nShowCmd) Library "shell32.dll" alias for "ShellExecuteW"
// pb script
setnull(ls_null)
ll_handle = Handle(Parent)// setnull(ll_handle)
// gnv_app.is_appdir is the path to my application, don't know how important it is, just check. You can also try "ls_null" which I see a lot of people doing:
ShellExecute( ll_handle, 'Open', "your command", ls_null, gnv_app.is_appDir, 0) // last parameter: 1=Normal (last used winState), 3=maximized, 0=hidden????
So here's the latest version of the PB sample app: https://github.com/mjl38/PB_sample_app_QRCodes
And here's the latest version of my Vstudio .net library (and test window form): https://github.com/mjl38/QRCodes
Let me know if you would like me to zip it all and duplicate it on the several posts here.
(For now I'm deleting them, since I have several versions duplicated in 3 different Q&A's).
regards.
best regards