Nuevamente sobre codigos QR.

230 views
Skip to first unread message

Jhonny Zambrana

unread,
Jul 17, 2014, 6:38:24 AM7/17/14
to publice...@googlegroups.com
Estimados colegas, estuve toda la noche dandole vueltas, pero no le allo, el nudo.

Encontré esta aplciación, denominada, GenQr uqe bien con ejemplo en formato .prg y que cuadno lo ejecuto desde una ventana simple me corre a las mil maravillas, pero cuando trato de incluirlo en mi proyecto, me dice class definition WSCRIP.SHELL is not found, pero si esta en la raiz, de hecho puse en todas las carpetas, pero aun asi no me funciona, trato de usar esta aun a sabiendas de que hay un para mas por ahi mas sencilas, puesta necesita el .NET Framework 4, para oder ejecutar, pero trae una caracteristica, que es el nivel de recuperacion.


Para que la aplicacion se ejecute necesitas tener instalado .net frameworks 4.0

Descargalo del siguiente Link
http://www.microsoft.com/es-es/download/details.aspx?id=17851#

el Archivo ThoughtWorks.QRCode.dll debe estar en la misma carpeta que la aplicacion

Sintaxys de la aplicacion
generarqr [Texto] [Modo] [Escala] [Version] [Correccion] [archivo] [tipo]

Ejemplo:
generarqr "hola mundo" B 4 7 Q prueba.jpg J

Texto
    el texto a codificar debe ir entre comillas "
Modo
    A=Alphanumerico
    N=Numerico
    B=Byte

Escala en pixeles
    2 = 66 x 66
    3 = 99 x 99
    4 = 132 x 132
    5 = 165 x 165
    6 = 198 x 198
    7 = 231 x 231
    8 = 264 x 264
    9 = 297 x 297
    10 = 330 x 330
    11 = 363 x 363
    12 = 396 x 396

version 1 a la 40

Nivel
    L 7% 
    M 15% 
    Q 25% 
    H 30%

Tipo
    B= Bitmap
    J= Jpeg
    G= Gif
    P= PGN
    T= Tiff

creo qeu es libre por que no le vi restriccion alguna, asi que si desean puedo enviarselos para que lo prueben,
Gracias y tengan buen dia.

Juan Miguel Solis

unread,
Jul 17, 2014, 7:00:27 AM7/17/14
to publice...@googlegroups.com
Hola

Yo creo que códigos QR, los generas con FoxBarcodeQr (que es en VFP), y si utilización es fácil y gratuita (tienen ejemplo), de como se generar y como se pueden imprimir,,

Un saludo

Jhonny Zambrana

unread,
Jul 17, 2014, 7:28:05 AM7/17/14
to publice...@googlegroups.com
Juan Miguel, gracias por para salir del apuro habia dejado como ultimo recurso justamente esa herramienta, y al igualque el otro en formulario solo me funciona bien, incluso el ejemplo en FORM que trae, pero cuando llevo esos controles a mi formulario, donde tengo la informacion que quiero codificar, me dice que no encuntra el archivo "foxbarcodeqr.prg", siendo que este es ejecutado con LOCFILE.

Mi sistema trabaja con puras clases visuales, que se construyen al amomento de ser llamados podria ser esa una de las causas, ya revise si no tengo un cluear o algo nates y nada.

Gracias pro tu tiempo, y por favor si alguien supiera algo mas.

Fernando D. Bozzo

unread,
Jul 17, 2014, 8:37:58 AM7/17/14
to publice...@googlegroups.com
Hola Jhonny:

Algunas dudas:

1) ¿estás usando una estructura de directorios óptima?

2) ¿Estás usando path relativos?

3) No entendí lo de "Crear puras clases visuales". ¿creas código de programa de alguna forma?

Luis Maria Guayan

unread,
Jul 17, 2014, 10:55:26 AM7/17/14
to publice...@googlegroups.com
Mal hecho de dejar como última opción :-D

-- FoxBarcodeQR --
https://sites.google.com/site/foxbarcode/foxbarcodeqr

Si no encuentras el archivo de procedimientos "f
oxbarcodeqr.prg" es que estas ejecutando un SET PROCEDURE sin la clausula ADDITIVE en alguna parte de tu aplicación

Mira la documentación que es muy corta y simple de entender y utilizar

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

Jhonny Zambrana

unread,
Jul 17, 2014, 11:45:31 AM7/17/14
to publice...@googlegroups.com
Gracias querido LuisMa, lo deje por que me es preciso llevar el nivel H o 30%, y la verdad no supe encontrarlo en foxbarcodeqr, beueno algo ya avanse.

tengo es te codigo que es el uque viene en el ejemplo de foxbarcode.

LOCAL loFbc, lcQRImage
m.loFbc = CREATEOBJECT("FoxBarcodeQR")
m.lcQRImage = m.loFbc.QRBarcodeImage("Esto esta en codigo QR", , 4, 2)
thisform.image1.Picture = m.lcQRImage

El archivo de procedimeinto que venia aparte lo puse en uno de precedimientos generales y con eso marcho.
Ahora laidea es como salvar o grabar esa imagen, son imagenes QR correspondentes a facturas por lo que seran, muchas, y guardarlas en una carpeta se me hace qeu alguien puede entrar y borrarlas.

Me gustaria ariesgo de todo lo que se dijo antes, guardarla dentro de una tabla. por que la impresion tampoco es ese instante, se imprime en otro meson, gracias por su tiempo.
Reply all
Reply to author
Forward
0 new messages