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