QR Code Creator ( based on script by rossati )

[BugFix]

Inspired by i've made a little tool for simply QR-Code creation with all required stuff in the au3-file (dll included as binary string, because that, the au3 has 447kB and can not attached directly).

By testing on my system the max. possible count of chars to encode are: $__QR_MAX_LEN = 3049. But on other systems it was round 2000 chars.

Also on another computer the creation of QR-Code fails generally. But ist was the same system that i have (Win 7, 64 bit). I do not know the reason for this behavior.

Would be interesting, how this script runs on other machines.

You can store the QR-Image as *.png and/or *.bmp and/or copy it to clipboard.

Here you can download QR_Creator.au3

Have a look:

[guinness]

I get an error on line 320 with $return[0] not actually being an array.

[BugFix]

I get an error on line 320 with $return[0] not actually being an array.

OK, that means, that the dll-call has failed. I've added an failure handling that gives a message with the detected error from dll call. Also I've changed the dll using - instead file name, call with dll handle. Please try again.

[guinness]

I worked it out the second I posted that bug report. Add the following to the top of the script.

#AutoIt3Wrapper_UseX64=N

Also you don't need #include-once as this isn't a UDF.

[BugFix]

Thanks for your efforts. I have included your advice now.

[KaFu]

Looks really nice , downloaded your version and the source for the dll and took a look....

Maybe better use the unicode functions

DllCall($hDll, "none", "GeneratePNGW", "wstr", $sPath & $_sImageName & ".png", "wstr", $_sText, "int", 4, "int", 2)

GeneratePNGW(LPWSTR fileName, LPWSTR text, int Margin, int PixelSize, QRecLevel level);

Did not find out though how to set last (optional) parameter TErrorCorretion which defaults to 0:

Global Const $QR_ECLEVEL_L = 0 ; lowest

Global Const $QR_ECLEVEL_M = 1

Global Const $QR_ECLEVEL_Q = 2

Global Const $QR_ECLEVEL_H = 3 ; highest

Also there's a function called "DestroyBuffer", maybe a good idea to call before returning? No quite sure though ...

DllCall($hDll, "none", "DestroyBuffer")

at least does not crash the script ...

; qrencode.h - "Otherwise, all of non-alphanumeric characters are encoded as 8 bit data."

; http://en.wikipedia.org/wiki/QR_code#Storage

; max. characters = 2,953

; possible characters, default encoding = ISO 8859-1

[BugFix]

Thanks for your reply. Now I have something to do during the Christmas season.

[BugFix]

Here my results:

The parameter for ErrorCorrectionLevel is only available in the quiricol64.dll. It makes no sense to me to use features that are not run under 32-bit. Therefore, I will omit this parameter.

The function DestroyBuffer() is only needed for GetPNGW() / GetPNGA(). After call, the last parameter in this function contains the pointer to a buffer.

(Thanks to Andy for his testing.)

[joseLB]

Hi BugFix

It´s working like a charm for me (win7 64 bits). It´s very fast..... thanks for sharing.

But about reading qr-codes, do you hav any idea if it could be done in AU3?

I mean, give it an image your software generated to interpret?

I got a program, it reads perfectly your images (only do not read special chars like á, ã, etc.). But I think it´s a problem of that program.

Thanks

Jose

[BugFix]

Hi BugFix

It´s working like a charm for me (win7 64 bits). It´s very fast..... thanks for sharing.

But about reading qr-codes, do you hav any idea if it could be done in AU3?

I mean, give it an image your software generated to interpret?

I got a program, it reads perfectly your images (only do not read special chars like á, ã, etc.). But I think it´s a problem of that program.

Thanks

Jose

Take a look at this site: http://qrcode.sourceforge.jp/, may be that it helps.

[wysocki]

This is pretty cool, but I'm trying to figure out just what to enter in the QR code. I got my phone to read plain text that I've created and to go to a web link by just entering the http:// stuff. But I've been looking for a while on the web for guidance about what goes into the code for other functions without much luck so far. Specifically, what's the syntax (as it relates to your script) for the various functions like what's needed to have it generate a vCard or meCard, or to automatically dial a phone number. Can you recommend any sites that have this kind of info?

[BrewManNH]

Try just entering a phone number for the code. My phone app prompts me to dial the phone number, when I scan a code with a phone number in it.

Try this page for an example

http://yourfreeqrcode.com/phone.php

[maddogmcree]

This is a way cool program but i have a question.........

I don't have any experience what so ever with scripting but i could use the qr creator as a part of a filemaker database i am developing for the last 2 years to generate te qr code for phone numbers, can somebody tel me if the qr code generator accepts command line parameters? and so what is the syntax, I would like to generate the code from filemaker and paste it back into filemaker without an intermediate step so fully automated.

And if it doesnt accept command line parameters maybe someone can adapt it so that is does.

thank you for your effort.

Sorry for my bad english ( im dutch so please foregive me )

[BugFix]

As commandline tool try this version (not tested).

#AutoIt3Wrapper_UseX64=N

; == Syntax: "QR_Creator_CmdLine.exe sOutputPath.type sText"
; == i.e.: '"C:\Program Files (x86)\QR_Creator_CmdLine.exe" "C:\Users\USER\QR_new.bmp" "Text to encode"' -- output type *.bmp or *.png

If $CmdLine[0] <> 2 Then Exit

OnAutoItExitRegister("_DelBinaryTempFiles")
Global $sDllQR = @ScriptDir & "\quricol32.dll"
_CreateDll()

Func _CreateDll()
Local $bData
; string with binary data from: quricol32.dll
$bData &= "0x4D5A90000300000004000000FFFF0000B80000000000000.........."
;....
;...
Local $hFileOut = FileOpen($sDllQR, 2+8+16)
FileWrite($hFileOut, Binary($bData))
FileClose($hFileOut)
EndFunc

Func _DelBinaryTempFiles()
If FileExists($sDllQR) Then FileDelete($sDllQR)
EndFunc


Global $sPathOut = $CmdLine[1], $sType = StringRight($sPathOut, 3), $sText = $CmdLine[2]
Global $hDll = DllOpen($sDllQR)

If $sType = 'bmp' Then
DllCall($hDll, "none", "GenerateBMPW", "str", $sPathOut, "str", $sText, "int", 4, "int", 2)
Else
DllCall($hDll, "none", "GeneratePNGW", "str", $sPathOut, "str", $sText, "int", 4, "int", 2)
EndIf
DllClose($hDll)

[Damein]

I know this is a bit old. But I wanted to utilize QR in a program I'm going to attempt to create. Now the creation I can do through AutoIt through this script (Thanks for that!)

But I would also like to be able to decode the same image in AutoIt. But I'm not sure how to do that ^^; Anyone got some tips or already done this? Thanks!

[Adams]

from some time, an error occur: "_WinAPI_CopyImage, duplicate function name".

What is changed?

Now the function "_WinAPI_CopyImage" is in WinAPIGdi.au3, included in GDIPlus.au3, included in QR_Creator.au3.

Before?

[argumentum]

from some time, an error occur: "_WinAPI_CopyImage, duplicate function name".

just delete the function "_WinAPI_CopyImage", the code is old. I you remove it, it will run just fine.

[GhostLine]

That's great ! I was looking for this for Eon

[Skysnake]

Works like a charm

I found this scanner produced best results - including returning plain text https://www.scan.me/

[nikink]

Is there a way to make the generated QR image bigger? If I take the current size and enlarge it, it gets quite blurry around the edges.