Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Traducir código Visual Fox Pro a PowerCOBOL Gatomalo PowerCOBOL (ActiveX, v4 - v11) 3 2 de noviembre de 2017 09:00
[Componente] No logro imprimir en la TM-T900FA vrgoldin NetCOBOL for Windows 2 7 de octubre de 2017 00:46
[Sintaxis] Traducir código de VB a Power Xavier PowerCOBOL (ActiveX, v4 - v11) 10 23 de septiembre de 2016 00:03
[Noticia] Código fuente extendido de 72 a 250 columnas Kuk Cocina MicroFocus 0 16 de febrero de 2016 13:54
[Problema con el Foro] Ha desaparecido código en un Tema Roger COBOLForo.es 5 14 de julio de 2015 12:05
Respuesta
 
Herramientas

  #1
Antiguo 21 de abril de 2015, 16:21
IDENTIFICATION DIVISION
Armando
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Armando
DATA DIVISION
Forero desde (Registrado)febrero 2015
Uruguay
UbicaciónMontevideo
Edad61 años
Última Actividad10.08.2019 02:42
PROCEDURE DIVISION
PostsPosts: 21
Ha dicho GraciasEnviado: 3
Ha recibido agradecimientosRecibido: 9
Mejores respuestasSoluiones: 2
ReputaciónReputación: 0
Armando is on a distinguished road
Predeterminado Imprimir código QR

Estimados,
Antes que nada muy bueno el esfuerzo de crear un nuevo foro.

Estoy necesitando imprimir un código QR en documentos, quería saber si alguien conoce algún activex, que permita que seas usado en Powercobol, cobolwow o en el peor de los casos VBasic.
Se podría llegar a generarlo en otro lenguaje, y después embeber la imagen en el programa cobol.

desde ya muchas gracias.
Armando
Armando no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 21 de abril de 2015, 23:13
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ReputaciónReputación: 13
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Armando,

Tenho uma DLL (que anda por aí na NET, acho que não se sabe de quem é) que faz a partir de um texto a imagem QR. Também grava um BMP com a mesma imagem.

Como não temos a .LIB tive que fazer um OCX para a utilizar.

A DLL ocupa 407 Kbytes e deve ser copiada para a pasta Windows\System32 (em Win 32).

Anexo o OCX, a DLL e um pequeno exemplo em Powercobol.
Saludos,
Rui Pinto
Imágenes Adjuntas
Tipo de Archivo: jpg Exemplo.jpg (51,6 KB, 73 descargas)
Archivos Adjuntos
Tipo de Archivo: zip QR_OCX.zip (228,0 KB, 92 descargas)
Rapinto no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 5
ceafu (11 de junio de 2018), Josber (22 de abril de 2015), Kuk (22 de abril de 2015), Roger (22 de abril de 2015), Socavi (22 de agosto de 2016)
  #3
Antiguo 22 de abril de 2015, 16:56
IDENTIFICATION DIVISION
Armando
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Armando
DATA DIVISION
Forero desde (Registrado)febrero 2015
Uruguay
UbicaciónMontevideo
Edad61 años
Última Actividad10.08.2019 02:42
PROCEDURE DIVISION
PostsPosts: 21
Ha dicho GraciasEnviado: 3
Ha recibido agradecimientosRecibido: 9
Mejores respuestasSoluiones: 2
ReputaciónReputación: 0
Armando is on a distinguished road
Predeterminado

Excelente, amigo Rui,

Por lo que vi funciona a la perfección, un buen aporte,
Vamos a probar ahora en distintas versiones de Windows.
Cualquier cosa, comento,

saludos
Armando
Armando no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 21 de agosto de 2016, 15:57
IDENTIFICATION DIVISION
Ricardo Fernández UY
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Ricardo Fernández UY
DATA DIVISION
Forero desde (Registrado)agosto 2016
Uruguay
UbicaciónMontevideo
Edad61 años
Última Actividad07.04.2017 21:11
PROCEDURE DIVISION
PostsPosts: 2
Ha dicho GraciasEnviado: 2
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Ricardo Fernández UY is an unknown quantity at this point
Predeterminado

Estimado Rui Pinto,

muy buena esta OCX.
De hecho hasta ahora me había solucionado el problema de generación de Códigos QR.
Se me han presentado dificultades en situaciones muy particulares, y me pregunto si a esta OCX se le puede indicar el tamaño que queremos del BMP que genera.

Desde ya te agradezco lo que me puedas informar

Saludos
Ricardo Fernández UY no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 21 de agosto de 2016, 23:42
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ReputaciónReputación: 13
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Ricardo,

A DLL não é minha.
As únicas rotinas que tem são:
FastQRCode
FullQRCode
QRCodeLibVer

Não tem mais nenhuma rotina.
Mas se o problema é o tamanho, podes sempre alterar o tamanho da CmPicture em PowerCobol ou desenhar o tamanho pretendido no PowerForm.

Podes explicar melhor o que pretendes???

Un saludo,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Ricardo Fernández UY (22 de agosto de 2016)
  #6
Antiguo 22 de agosto de 2016, 19:46
IDENTIFICATION DIVISION
Ricardo Fernández UY
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Ricardo Fernández UY
DATA DIVISION
Forero desde (Registrado)agosto 2016
Uruguay
UbicaciónMontevideo
Edad61 años
Última Actividad07.04.2017 21:11
PROCEDURE DIVISION
PostsPosts: 2
Ha dicho GraciasEnviado: 2
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Ricardo Fernández UY is an unknown quantity at this point
Predeterminado

Estimado Rui, gracias por la respuesta.
En principio quería probar si cambiando el tamaño solucionaba un problema que aparentemente genera Windows 2008 Server cuando se trabaja conectado al mismo como terminal, pues como terminal remota no tengo problemas, el QR Code se imprime bien.
Manipularé el tamaño de CmPicture y probaré.

Saludos,

Ricardo
Ricardo Fernández UY no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 7 de noviembre de 2017, 05:18
IDENTIFICATION DIVISION
Javierfrancog
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Javierfrancog
DATA DIVISION
Forero desde (Registrado)noviembre 2017
Colombia
UbicaciónVillavicencio
Edad46 años
Última Actividad01.10.2018 16:17
PROCEDURE DIVISION
PostsPosts: 3
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Javierfrancog is an unknown quantity at this point
Predeterminado Ayuda

Buenas noches,

Ya tengo el ocx para generar el codigo QR.

Mi problema es que no tengo idea con que instruccion enviarle valores.


Gracias
Javierfrancog no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 7 de noviembre de 2017, 19:55
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ReputaciónReputación: 13
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Javier,

Junto com o OCX está um exemplo que mostra o código a utilizar (PowerCobol 9):
Código COBOL:
  1.     MOVE ".\QRCODE.BMP" TO "ImageFIleName" OF qrcode1.
  2.     move "TEXT" OF CMTEXT1 to "TextToEncode" OF qrcode1.
  3.     INVOKE qrcode1 "SavePicture".
Experimenta.
Un Saludo
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Javierfrancog ( 8 de noviembre de 2017)
  #9
Antiguo 1 de enero de 2018, 20:23
IDENTIFICATION DIVISION
sistemas_2017
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de sistemas_2017
DATA DIVISION
Forero desde (Registrado)octubre 2017
Perú
UbicaciónLima
Edad54 años
Última Actividad10.11.2018 12:23
PROCEDURE DIVISION
PostsPosts: 2
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
sistemas_2017 is an unknown quantity at this point
Predeterminado

necesito generar codigos qr desde powercobol
estoy tomando como muestra el programa de ejemplo
y me sale que el objeto qrcode1 no existe

alguien me puede ayudar por favor
sistemas_2017 no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 2 de enero de 2018, 18:33
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad14.11.2019 09:17
PROCEDURE DIVISION
PostsPosts: 467
Ha dicho GraciasEnviado: 188
Ha recibido agradecimientosRecibido: 204
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 19
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de sistemas_2017 Ver Mensaje
necesito generar codigos qr desde powercobol
estoy tomando como muestra el programa de ejemplo
y me sale que el objeto qrcode1 no existe

alguien me puede ayudar por favor
No lo he probado pero, ¿has registrado la dll y el ocx en windows?

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 09:38.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.