Tema: Enlazar con servicios web y codigos QR
Ver Mensaje Individual
  #9
Antiguo 15 de julio de 2021, 22:00
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 21.08.2026 18:08
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243
Predeterminado
0
Likes

None...

Inactivo Inactivo
Buenas
Esta ocx que subio Rapinto
en este link [Componente] Imprimir código QR - COBOL Foro
Genera qr-code en formato .jpg .png .bmp sin problemas
Código COBOL:
  1.         move "TEXT" OF EncodeTxt to "TextToEncode" OF qrcode1.
  2.          
  3.           move "filepng.png" to "ImageFileName" OF qrcode1.
  4.           INVOKE qrcode1 "Refresh".
  5.           INVOKE qrcode1 "SavePicture".
  6.           
  7.          move "filebmp.bmp" to "ImageFileName" OF qrcode1.
  8.           INVOKE qrcode1 "Refresh".
  9.           INVOKE qrcode1 "SavePicture".
  10.           
  11.           
  12.          move "filejpg.jpg" to "ImageFileName" OF qrcode1.
  13.           INVOKE qrcode1 "Refresh".
  14.           INVOKE qrcode1 "SavePicture".
Saludos
fastpho is offline   Responder Con Cita