Spanish Lector QR en EditText

dhernandez

Active Member
Licensed User
Longtime User
buenas tardes colegas, he aqui otro dilema.
Adapte este ejemplo para leer codigos QR y el resultado mostrarlo en un EditText.
http://www.b4x.com/android/forum/threads/abzxing-barcode-reader.7303/

pero cuando el lector lee el codigo, deberia de retornar el valor de éste en eL EditText, pero no lo hace.
lo unico que hace el cerrar mi aplicacion por completo...

Que estara pasando???
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

Sin ver el codigo es dificil darte una solucion.
Esa libreria devuelve el codigo de barras en:
myABBarcode_BarcodeFound (barCode As String, formatName As String)

barCode = codigo leido
formatName = tipo de código

Mira de borrar las aplicaciones de fondo y la memoria ram y vuelve a ejecutar el programa, puede que algo se haya quedado en memoria y por eso se sale la aplicación. Te aconsejo que hagas un Debug o bien pongas log para ver paso a paso que esta haciendo y asi saber donde esta el error

Saludos
 

dhernandez

Active Member
Licensed User
Longtime User
gracias bgSoft... mira, el codigo es el siguiente....

B4X:
Sub Process_Globals
    Dim resultado As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Capturar")
    TxtOCR.Text = resultado
End Sub
Sub myABBarcode_BarcodeFound(barCode As String, formatName As String)
    TxtOCR.Text = barCode
    resultado = barCode
End Sub

Sub myABBarcode_Canceled()
    TxtOCR.Text = "Canceled"
    resultado = "Canceled"
End Sub
Sub EscanearQr_Click
    myABBarcode.ABGetBarcode("myabbarcode", "")
End Sub

Esto es lo que hago, al dar click en el boton EscanearQr
 

JCO

Active Member
Licensed User
Longtime User
Hola,

si no me equivoco, los nombres de las rutinas son "case-sensitive": intenta poniendo
B4X:
myABBarcode.ABGetBarcode("myABBarcode", "")
en vez de
B4X:
myABBarcode.ABGetBarcode("myabbarcode", "")

Saludos,
 

dhernandez

Active Member
Licensed User
Longtime User
gracias JCO, probando...
 

dhernandez

Active Member
Licensed User
Longtime User
Cambie los "myabbarcode" por "myABBarcode" y me sigue sacando de la aplicacion, tambien modifique, a que el resultado me lo diera en un label, pero no funcionó...
 

JCO

Active Member
Licensed User
Longtime User
Tienes declarado el "TxtOCR" en la "Sub Globals" ?
Porque, si te saca completamente de la aplicación, para mí que es un error de ese tipo...
 

dhernandez

Active Member
Licensed User
Longtime User
asi es...
B4X:
Dim TxtOCR As EditText
lo tengo declarado
 

JCO

Active Member
Licensed User
Longtime User
Pues lo siento, pero se me acabaron las ideas. Yo tengo una aplicación en la que lo utilizo sin problema.

Seguiste el consejo de Jesús de avanzar paso a paso en el debugger para ver en qué línea se da el error?
 

dhernandez

Active Member
Licensed User
Longtime User
Aun no, tngo una tableta, se puede conectar con B4A para el debug en ella y no en el emulador???
 

dhernandez

Active Member
Licensed User
Longtime User
ya lo tengo conectado, pero de esta forma no muestra las lineas de log en B4A al correr el programa, y desde el amulador no se puede escanear un QR
 

dhernandez

Active Member
Licensed User
Longtime User
ufff, al fin lo tengo... era error mio... no habia visto que en la Sub Activity_Pause habia puesto
Activity.Finish

Porque al llamar al escaner, éste se ponia en pausa y se cumplia la condicion de que cuando estubiera en pausa se cerrara...

Gracias a todos por su ayuda.. :)
 
Top