B4A Library ZXingLib by icefairy333 - modified by Johan Schoeman (Scan QR Codes and other 1D/2D Barcodes)

Johan Schoeman said:

Have changed it to portrait (in the code as well as in the manifest) and then it does read code 39 (also code 128). See attached project. The library files are in the /files folder of the attached project. Copy them to your additional library folder. If you touch the display/screen while the scanner is active the torch will switch on/off. Same applies to the torch (while the scanner is active) when pressing the volume up/down button of your device.

JhsIceZxing1
Author: Johan/IceFairy333
Version: 1

• 
  Methods:
  • isChineseCharacter (chineseStr As String) As Boolean
• JhsIceZxing1
  Events:
  • result (atype as String As , Value as String As , image as Bitmap As )
  • timedout (timedOut as boolean As )
  • usercancelled (userCancelled as boolean As )
  Fields:
  • bottomPromptColor As Int
    Specify the color of the bottom prompt message
    Example:<code>
    zx.bottomPromptColor = Colors.Yellow
    </code>
  • bottomPromptDistanceFromBottom As Int
    Specify the distance of the bottom prompt message from the bottom
    Example:<code>
    zx.bottomPromptDistanceFromBottom = 1%x
    </code>
  • isportrait As Boolean
    Specify if it should be portrait or landscape mode
    Example:<code>
    zx.isportrait = True
    </code>
  • mustBeep As Boolean
    Specify if the device should make a beep sound upon a successful scan
    The default value is False
    The beep sound will be ToneGenerator.TONE_CDMA_ABBR_ALERT
    Example:<code>
    zx.mustBeep = True
    </code>
  • mustVibrate As Boolean
    Specify if the device should vibrate upon a successful scan
    The default value is False
    It will vibrate for 400ms
    Example:<code>
    zx.mustVibrate = True
    </code>
  • theBitMap As Bitmap
    Specify the bitmap that should be loaded into the mask
    Example:<code>
    Dim bm As Bitmap
    bm.Initialize(File.DirAssets,"B4A.png")
    zx.theBitMap = bm
    </code>
  • theBottomPromptMessage As String
    Specify the bottom prompt message
    Example:<code>
    zx.theBottomPromptMessage = "B4A"
    </code>
  • theBottomPromptTextSize As Int
    Specify the text size of the bottom prompt message
    Example:<code>
    zx.theBottomPromptTextSize = 5%y
    </code>
  • theFrameColor As Int
    Specify the color of the outer frame of the view finder rectangle
    Example:<code>
    zx.theFrameColor = Colors.Black
    </code>
  • theLaserColor As Int
    Specify the color of the laser
    Example:<code>
    zx.theLaserColor = Colors.Red
    </code>
  • theMaskColor As Int
    Specify the color of the mask around the view finder rectangle
    Example:<code>
    zx.theMaskColor = Colors.ARGB(95, 0, 0, 255)
    </code>
  • theResultColor As Int
    Specify the color of the mask around the view finder rectangle after a successful scan
    Example:<code>
    zx.theResultColor = Colors.Black
    </code>
  • theResultPointColor As Int
    Specify the color of the possible result points being displayed during a scan
    Example:<code>
    zx.theResultPointColor = Colors.Green
    </code>
  • theTopPromptMessage As String
    Specify the top prompt message
    Example:<code>
    zx.theTopPromptMessage = "Hallo"
    </code>
  • theTopPromptTextSize As Int
    Specify the text size of the top prompt message
    Example:<code>
    zx.theTopPromptTextSize = 5%y
    </code>
  • theViewFinderXfactor As Double
    Scale factor for the width of the view finder rectangle
    The factor ranges from 0 to 1 (for a width < 240 a default of 240 pixels will be applied)
    Example:<code>
    zx.theViewFinderXfactor = 0.5
    </code>
  • theViewFinderYfactor As Double
    Scale factor for the height of the view finder rectangle
    The factor ranges from 0 to 1 (for a height < 240 a default of 240 pixels will be applied)
    Example:<code>
    zx.theViewFinderYfactor = 0.5
    </code>
  • timeoutDuration As Int
    Specify the timeout duration - we need to get a successful scan before this else time out
    Example:<code>
    zx.timeoutDuration = 15
    </code>
    Set this value to for eg 2000000000 for and "indefinate" timeout (2 000 000 000 = 63 years+)
  • topPromptColor As Int
    Specify the color of the top prompt message
    Example:<code>
    zx.topPromptColor = Colors.Magenta
    </code>
  • topPromptDistanceFromTop As Int
    Specify the distance of the top prompt message from the top
    Example:<code>
    zx.topPromptDistanceFromTop = 1%x
    </code>
  • useFrontCam As Boolean
    Specify if the front facing or rear facing camera should be used
    Example:<code>
    zx.useFrontCam = False
    </code>
  Methods:
  • BeginScan (EventName As String)
    Start the scan
    Example:<code>
    Dim zx As JhsIceZxing1 '(declare this in Sub Globals)
    Dim bm As Bitmap '(declare this in Sub Globals)
    Sub Button1_Click
    zx.isportrait = True
    zx.useFrontCam = False
    'set the timeoutDuration to a very high value (such as 2000000000) if you dont want it to time out 2000000000 = 63 years
    zx.timeoutDuration = 30
    'change these factors between 0 and 1 to change the size of the viewfinder rectangle
    'the library will limit the minimum size to 240 x 240 pixels and the maximum to (screen width) x (screen height) pixels
    zx.theViewFinderXfactor = 0.7
    zx.theViewFinderYfactor = 0.5
    zx.theFrameColor = Colors.Blue
    zx.theLaserColor = Colors.Yellow
    zx.theMaskColor = Colors.argb(95, 0, 0, 255)
    zx.theResultColor = Colors.Green
    zx.theResultPointColor = Colors.Red
    'set the prompt messages
    zx.theTopPromptMessage = "This was done......"
    zx.theTopPromptTextSize = 5%y 'text size
    zx.topPromptColor = Colors.Red
    zx.topPromptDistanceFromTop = 1%y 'pixel distance from top
    
    zx.theBottomPromptMessage = "Just for fun......"
    zx.theBottomPromptTextSize = 5%y 'text size
    zx.bottomPromptColor = Colors.Blue
    zx.bottomPromptDistanceFromBottom = 5%y 'pixel distance from top
    'add a bitmap
    zx.theBitMap = bm
    zx.theBitmapPosition(40%x,10%y,20%x,20%x)
    zx.BeginScan("myzx")
    End Sub
    Sub myzx_result(atype As String,Values As String)
    Msgbox(Values,"type:" & atype)
    End Sub
    Sub myzx_noscan(atype As String,Values As String)
    Msgbox(Values,"type:" & atype)
    End Sub
    </code>
  • theBitmapPosition (left As Int, top As Int, width As Int, height As Int)
    Specify the left, top, width, and height of the bitmap that will be placed on the mask
    Example:<code>
    zx.theBitmapPosition(40%x,10%y,20%x,20%x)
    </code>
  Permissions:
  • android.hardware.camera
  • android.hardware.camera.autofocus
  • android.permission.CAMERA
  • android.permission.FLASHLIGHT
  • android.permission.VIBRATE
  • android.permission.WRITE_EXTERNAL_STORAGE

Click to expand...

Sannie72 said:

J
...and would it be possible to allow another property zx.thePromptTextStyle? So I can change the text style from always italic to something else...
Would be nice

Click to expand...

    zx.textSkewnessTop = 0.25
zx.textSkewnessBottom = 0.0

John Decowski said:

This is great exactly what I was looking for! In the next week or two I am going to post my code for QR code generating.

Click to expand...

iCAB said:

Hi Johan

First let me thank you for the great work you have done in here.
As I read through this forum there are many releases, can you please post the latest version of the library to POST#1, so it will be easier to find

Thank you

Click to expand...

Fernando Melo said:

Hi Johan,

congratulations for your great job. I am testing your library, but sometimes, can be a little slow to recognize the bar code. Its possible to choose the format we want? This will improve somehow the recognition?

Thanks.

Click to expand...

Johan Schoeman said:

It think it can be done. I will try to amend the code sometime this coming weekend and then post the new library files if the change is successful.

Click to expand...

Fernando Melo said:

Hi Johan,

congratulations for your great job. I am testing your library, but sometimes, can be a little slow to recognize the bar code. Its possible to choose the format we want? This will improve somehow the recognition?

Thanks.

Click to expand...

'START OF ADDED 7 NOVEMBER 2015:
'   Specify the bar code formats to scan
'   If not specified then all code formats will be scanned
'   Specify one of the following: PRODUCT_FORMATS, ONE_D_FORMATS, QR_CODE_FORMATS, DATA_MATRIX_FORMATS, AZTEC_FORMATS, PDF_417_FORMATS, TWO_D_FORMATS
'   PRODUCT_FORMATS are the following: UPC A, UPC E, EAN 13, EAN 8, RSS 14
'   ONE_D_FORMATS are all the PRODUCT FORMATS plus the following: CODE 39, CODE 93, CODE 128, ITF
'   TWO_D_FORMATS are the following: QR CODE, DATA MATRIX, AZTEC CODE, PDF 417

    'COMMENT THE BELOW LINE OR USE zx.ScanMode = "" to scan all the 1D and 2D type barcodes that this version of the ZXING library supports
    zx.ScanMode = "ONE_D_FORMATS"   
            
    'END OF ADDED 7 NOVEMBER 2015
   
    zx.BeginScan("myzx")

Johan Schoeman said:

The attached library files should (theoretically) speed up the process but I am of the opinion that speed of recognition has a lot to do with the autofocus capability of a device so that the code can recognise the barcode being scanned. Use the attached library files with the project in Post #74 above (replace your library files with the attached library files).

There is a slight change in the B4A code. Sure you will figure it out...

B4X:

    zx.ScanMode = zx.FORMATS_ONE_D

Also posting the Java Code.

Click to expand...

corradotisi said:

Hi Johan,
the B4aZing example, after 2 or 3 serial barcode reading, crash main module without any messages. I'm on a Samsung android 5
thanks

Click to expand...