Para quienes no estén al tanto de que se trata pueden leer en Wikipedia sobre este sistema para almacenar información en una imagen, el cual es cada ves mas utilizado en diferentes productos y publicidades. hoy en día muchos celulares trae una aplicación para decodificar estas imágenes.
El modulo clase a continuación se encarga de Codificar y Decodificar QR Code, utilizando dos apis de dos servidores web qrserver.com para codificar y zxing.org para decodificar, si bien esto podría hacerse sin estas dependencias me parece que desarrollar dicha tarea no es nada sensilla (teniendo en cuenta que la imagen no siempre estará presentada en forma vertical), existen algunas dll para realizar este trabajo pero no encontré ninguna compatible para VB6.
En el siguiente proyecto encuenta la clase ClsQrCode.cls en la que encontraremos las siguientes funciones
- GetPictureQrCode: esta función retorna un StdPicture, el cual se seria de nuestro QR Code codificado, si no retorna ninguna imagen (Is Nothing) entonces significa que la función fallo. A continuacion sus parametros.
- sText: Requerido, Es el texto el cual queremos codificar, la clase solo se encarga de texto plano, si quieren pueden agregar los prefijos SMSTO: o TEL: etc. segun el caso, pueden ver un poco mas en goqr.me
- Width: Requerido, Ancho de la imagen (Minimo 10 Px, Maximo 1000 Px)
- Height: Requerido, Alto de la imagen (Minimo 10 Px, Maximo 1000 Px)
- Encoding: Opcional, «UTF-8» o «ISO-8859-1»
- ErrCorrectionLevel: Opcional, «L», «M», «Q», «H»
- ForeColor: Opcional, Color de los cuadritos
- BackColor: Opcional, Color de fondo
- Margin: Opcional, Margen (máximo 50, expresado en módulos)
- DecodeFromStream: decodifica mediante el array de bits de una imagen. (Dos parámetros el primero el array de bits, y el segundo debe pasarse una variable de tipo string como retorno), si la función tiene éxito devuelve True
- DecodeFromPicture: decodifica un StdPicture. (Dos parámetros el primero el StdPicture, y el segundo debe pasarse una variable de tipo string como retorno), si la función tiene éxito devuelve True
- DecodeFromFile: decodifica desde un archivo de imagen. (Dos parámetros el primero el path de la imagen, y el segundo debe pasarse una variable de tipo string como retorno), si la función tiene éxito devuelve True
- DecodeFromUrl: decodifica desde la url de una imagen. (Dos parámetros el primero el la URL de la imagen, y el segundo debe pasarse una variable de tipo string como retorno), si la función tiene éxito devuelve True
un práctico y fácil generador de códigos QR que puedes encontrar online es http://uQR.me
con ese generador puedes conectar tu QR a lo que quieras; URLs, vCards, YouTube, Facebook, Twitter, Files, PayPal, Text, etc
Con este QR code generator también obtienes estadísticas de los spots…
Why buttons Codeficar Texto,Desde Archivo,Decodeficar Imagen don’t work? Only Desde URL works.
Unzip the Project?
I press buttons,but your program pop up a messagebox saying «error!».
Why Functions DecodeFromFile,DecodeFromPicture and DecodeFromStream call for UpLoadImage?
Fenomeno!, justo estaba intrigado de como funcionaba un QR.
Muy bueno tu código, es muy fácil de usar e integrar a cualquier desarrollo. Lastima que no tengo Internet en todas las sucursales.
Igualmente muchas gracias.
Hola
Una pregunta tu implementaste la generacion del QR sin necesidad de utilizar internet.
Gracias
Algo tarde el aporte pero…
Desde este sitio:
https://code.google.com/archive/p/qrencode-win32/downloads
Se puede descargar un .exe que genera codigos QR OffLine, se pueden pasar los parámetros con el comando shell para que genere una imagen con el código.
Saludos.
Hola Juan, tendrías un código de ejemplo para generar y leer ?
EXCELENTE CODIGO MUY BUENO. ESPEREMOS QUE LOS SERVIDORES ESTEN SIEMPRE ACTIVOS.JE…JE…SALUDOS
hola tenes el codigo para generar codigo QR
por favor me lo envias a raulvelis@hotmail.com
muy buen proyecto amigo felicidades, notablemente sos un tipo q la tiene clara en esto. saludos
Simplemente Muchas gracias
Saludos
Leandro,
Gracias excelente. Que bueno compartir el conocimiento de esta manera
Saludos,
Hola que tal me lo compartis por favor.
raulvelis@hotmail.com
gracias
Hola leandro
Estamos utilizando la dll para generar el Qr, en una maquina con windows XP nos funciono correctamente, pero al instalarla en una maquina con WINDOWS 7 Professional Service Pack 1 , nos mando el siguiente error Run-Time error ‘380’ Invalid property value. La pregunta es, necesitamos alguna configuración especial para poner ejecutar la DLL?
Gracias, lo pude integrar a mi proyecto y funciona muy bien
Saludos
Excelente aporte.
Me ha funcionado aún con w7
quiero agregar esto a otro proyecto pero da un error y es que no se puede definir las variables de tipo IPicture, no existe ese tipo, sale un mensaje de error (runtime 13 type mismatch) cuando se quiere generar la imagen.
Trate de cambiar las variables por tipo Imagen pero nada
Saludos
Excelente aporte! se puede hacer mucho, incluso una vez instanciado se puede usar la property image de cualqueir control de reportes
Lo quise implementar en acces y no funciono, que debo hacer.
how can i put logo on QR Code
Excelente aporte!!!!!
excelente aporte. me funciona perfecto…
pero el problema que tengo es que una vez producido el QR yo quiero imprimirlo de un tamaño de aproximadamente 3cm x 3cm…. y me sale gigante, del tamaño de una hora A4…
no puedo achicarlo…
Alguien me podría decir donde puedo conseguir el código? el enlace no me deja descargarlo porque dice que tengo que haber iniciado sesión.
Ya está solucionado. Parece ser que el servidor donde está alojado el fichero estaba algo loco pero ya funciona 😀
Padrísimo MUCHAS GRACIAS!!!