Que rabia me da Jesús.
Es una maquina, tiene soluciones para todo.
He probado la librería que me comentaste, y perfecto (Bastante rápida, un 8 de 10)
Muchas gracias.
Solo me funciona de esta manera...
Sub BotonQR_Click
BajasModulo.LeerQR
zx.BeginScan("myzx")
End Sub
Sub LeerQR
Dim zx As JhsIceZxing1 'Trabajos con libreria JhsIceZxing1 (Lector de codigos DataMatrix)
zx.isportrait = True
zx.useFrontCam = False
'cambie estos factores entre 0 y 1 para cambiar el tamaño del rectángulo del visor
'la biblioteca limitará el tamaño mínimo a 240 x 240 píxeles y el máximo a (ancho de pantalla) x (altura de pantalla) píxeles
zx.theViewFinderXfactor = 0.7
zx.theViewFinderYfactor = 0.5
zx.theFrameColor = Colors.Red
zx.theLaserColor = Colors.Green
zx.theMaskColor = Colors.Black
zx.theResultColor = Colors.LightGray
zx.theResultPointColor = Colors.Magenta
'establecer los mensajes de aviso
zx.theTopPromptMessage = "Leyendo"
zx.theTopPromptTextSize = 5%y'tamaño del texto en píxeles
zx.topPromptColor = Colors.White
zx.topPromptDistanceFromTop = 1%y'distancia de píxel desde la parte superior
zx.theBottomPromptMessage = "DataMatrix..."
zx.theBottomPromptTextSize = 5%y'tamaño del texto en píxeles
zx.bottomPromptColor = Colors.White
zx.bottomPromptDistanceFromBottom = 5%y'distancia de píxel desde la parte superior
'add a bitmap
zx.theBitMap = LoadBitmap(File.DirAssets,"ImagenQR.png")
zx.theBitMapLeft = 1%x
zx.theBitMapTop = 1%y
zx.theBitMapWidth = 10%x
zx.theBitMapHeight = 10%x
End Sub
Sub myzx_result(atype As String,Values As String)
myQRResult = Values
Buscar_Jaula
End Sub
Si lo modifico para controlar el codigo que debe leer.
no funciona.
Sub BotonQR_Click
zx.isportrait = True
zx.useFrontCam = False
zx.timeoutDuration = 30
'cambie estos factores entre 0 y 1 para cambiar el tamaño del rectángulo del visor
'la biblioteca limitará el tamaño mínimo a 240 x 240 píxeles y el máximo a (ancho de pantalla) x (altura de pantalla) píxeles
zx.theViewFinderXfactor = 0.7
zx.theViewFinderYfactor = 0.5
zx.theFrameColor = Colors.Red
zx.theLaserColor = Colors.Green
zx.theMaskColor = Colors.Black
zx.theResultColor = Colors.LightGray
zx.theResultPointColor = Colors.Magenta
'establecer los mensajes de aviso
zx.theTopPromptMessage = Activity.Title
zx.theTopPromptTextSize = 5%y'tamaño del texto en píxeles
zx.topPromptColor = Colors.White
zx.topPromptDistanceFromTop = 1%y'distancia de píxel desde la parte superior
zx.theBottomPromptMessage = "Leyendo el DataMatrix..."
zx.theBottomPromptTextSize = 5%y'tamaño del texto en píxeles
zx.bottomPromptColor = Colors.White
zx.bottomPromptDistanceFromBottom = 5%y'distancia de píxel desde la parte superior
'add a bitmap
zx.theBitMap = LoadBitmap(File.DirAssets,"ImagenQR.png")
zx.theBitmapPosition(1%x,1%y,10%x,10%x)
zx.mustBeep = True
zx.ScanMode = zx.FORMATS_DATA_MATRIX
zx.BeginScan("myzx")
End Sub
Me da este error
** Activity (main) Create, isFirst = false **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
** Activity (jaula) Create, isFirst = true **
** Activity (jaula) Resume **
** Activity (jaula) Pause, UserClosed = false **
PortraitScreen 1080 1920
DATA_MATRIX:35875###myzx_result
sending message to waiting queue (OnActivityResult)
running waiting messages (1)
jaula$ResumeMessagerun (java line: 300)
java.lang.Exception: Sub myzx_result signature does not match expected signature.
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:188)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:170)
at ice.zxing.b4aZXingLib$1.ResultArrived(b4aZXingLib.java:384)
at anywheresoftware.b4a.BA$4.run(BA.java:547)
at anywheresoftware.b4a.BA.setActivityPaused(BA.java:432)
at b4a.Bajas.jaula$ResumeMessage.run(jaula.java:300)
at android.os.Handler.handleCallback(Handler.java:739)
at android.os.Handler.dispatchMessage(Handler.java:95)
at android.os.Looper.loop(Looper.java:158)
at android.app.ActivityThread.main(ActivityThread.java:7230)
at java.lang.reflect.Method.invoke(Native Method)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:1230)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:1120)
java.lang.Exception: Sub myzx_result signature does not match expected signature.
¿Que estoy haciendo mal?
