EXTRAER DATOS DE LECTOR QR

[joseluisysturiz]

Saludos, así como dice el titulo, quería saber como puedo EXTRAER los datos leídos de un código QR, si hay alguna clase, forma de trabajo o lo que haya con FWH... imagino todo dependerá del lector y a donde se guarden los datos de lectura y el tipo de archivo, ya tengo la creación e impresión del QR con FW, pero esa información luego debe ser leída en un momento determinado en el mismo sistema, espero sus comentarios, ideas y/o recomendaciones...gracias..

Post data: lo que necesito es así como se lee el código de barra en un GET, hacer lo mismo con cierta información del código QR, es decir , extraer solo cierta información del QR, no se si eso es posible, gracias...

[Antonio Linares]

Estimado Jose Luis,

Esta librería puede servirnos:
https://github.com/nu-book/zxing-cpp

[cmsoft]

Hola José Luis:
En realidad es exactamente igual que con un código de barras.
El lector de código QR te va a devolver en forma de texto, el contenido del texto "escondido" en el QR.
Para eso simplemente puedes utilizar un GET donde quedará ese contenido (te recomiendo que sea un GET tipo MEMO por su tamaño)
Y después es cuestión de descomponer ese texto obteniendo los valores que te sean de utilidad. Claro que tienes que saber cual es el formato a esperar en el QR para poder hacerlo.

[joseluisysturiz]

Hola José Luis:
En realidad es exactamente igual que con un código de barras.
El lector de código QR te va a devolver en forma de texto, el contenido del texto "escondido" en el QR.
Para eso simplemente puedes utilizar un GET donde quedará ese contenido (te recomiendo que sea un GET tipo MEMO por su tamaño)
Y después es cuestión de descomponer ese texto obteniendo los valores que te sean de utilidad. Claro que tienes que saber cual es el formato a esperar en el QR para poder hacerlo.

Saludos cmsoft, imagine que es igual al de barra, el detalle es que son diferentes valores, mi duda es si habia alguna forma de acceder a algun dato especial, solo he trabajado la opcion de crear el QR, nunca extraer los datos, ya que aunque hay varios datos en el QR, solo necesito extraer UNO solo pero si es posible, en un GET normal asi como si fuese un codigo de barra, imagino todo dependera, como dices, del formato que me devuelva el lector, si tienes algun ejemplo, te estare agradecido, saludos, gracias...

[Armando]

José Luis:

Tal como te dice CMSOFT, necesitas un lector de código QR, este te devolverá una cadena de texto la cual
debes descomponer o trozear con SUBSTRING() dependiendo de donde se encuentra el trozo de código
que te interesa.

Saludos

[Adolfredo Martinez]

Bueno lo ideal, el que tenga un trozo de codigo, que funcione, y nos beneficiamos todos

[Armando]

Adolfredo:

Con todo gusto, yo tengo este código:

Defino la variable que recibirá lo que el lector QR lea

Code: Select all  Expand view  RUN

    oHdr:TXT    := ""
 

Este es el GET donde se lee el QR, en lugar de usar el teclado, el usuario
utiliza el lector QR

Code: Select all  Expand view  RUN

        REDEFINE GET aGets[05] VAR oHdr:TXT ID 300 OF oDlg UPDATE;
            MEMO;
            VALID ValQR(oDlg,aGets);
            MESSAGE "Código QR"
 

Y en la función ValQR hago el troceo de la cadena para obtener el valor que requiero

Code: Select all  Expand view  RUN

            oHdr:UID    := ALLTRIM(SUBSTR(oHdr:TXT,nAtID + 3,36))                       // Folio fiscal
 

Espero esto les ayude.

Saludos

[joseluisysturiz]

Adolfredo:

Con todo gusto, yo tengo este código:

Defino la variable que recibirá lo que el lector QR lea

Code: Select all  Expand view  RUN

    oHdr:TXT    := ""
 

Este es el GET donde se lee el QR, en lugar de usar el teclado, el usuario
utiliza el lector QR

Code: Select all  Expand view  RUN

        REDEFINE GET aGets[05] VAR oHdr:TXT ID 300 OF oDlg UPDATE;
            MEMO;
            VALID ValQR(oDlg,aGets);
            MESSAGE "Código QR"
 

Y en la función ValQR hago el troceo de la cadena para obtener el valor que requiero

Code: Select all  Expand view  RUN

            oHdr:UID    := ALLTRIM(SUBSTR(oHdr:TXT,nAtID + 3,36))                       // Folio fiscal
 

Espero esto les ayude.

Saludos

Muchas gracias Armando, es lo que necesitaba...