Muchas gracias Fito
Un saludo
---------- Post añadido : 19:27 ---------- Post anterior : 19:16 ----------
Buenas tardes
Siguiendo los ejemplos de Joseg y Gusaiello he intentado crear un codigo QR con zint e insertarlo en un documento impreso.
Gusaiello, además lo he hecho en bmp ya que con un parámetro se puede crear un codigo QR en bmp.
El texto de ejemplo que estoy utilizando es:
TICKETBAI
El problema es que al ejecutar el comando con executesync como comentaba Joseg me devuelve el error +000000005. Si pruebo con texto mas pequeño como "Esto es una prueba" me genera el QR en formato bmp.
Pero si pruebo a introducir el texto largo en el programa que Gusaiello presentó al concurso se genera perfectamente el QR y lo puedo imprimir y al leerlo obtengo la url que he indicado.
En el manual de zint en
Zint: Home indican unos errores en el capítulo 5. Using the API pero no viene nada respecto al comentado mas arriba.
He hecho bastantes pruebas y no logro nada. Pongo el código que estoy utilizando:
Código COBOL:
01 WTEXTOQR PIC X(256) VALUE SPACES.
01 WARCHIVOQR PIC X(8192) VALUE SPACES.
MOVE SPACES TO WARCHIVOQR WTEXTOQR
MOVE "CODQR.BMP;" TO WARCHIVOQR
MOVE "https://tbai.egoitza.gipuzkoa.eus/qr/?id=TBAI-44619360G-261020-EzyQEMtxw37Gm-161&s=TB-2020-F&nf=419&i=1542.75&cr=182;" TO WTEXTOQR
* MOVE "Esto es una prueba;" TO WTEXTOQR
STRING "zint.exe -o " DELIMITED BY SIZE
WARCHIVOQR DELIMITED BY ";"
" --vers=4 --secure=2 --scale=5 -b 58 --filetype=BMP -d " DELIMITED BY SIZE
'"' DELIMITED BY SIZE
WTEXTOQR DELIMITED BY ";"
'"' DELIMITED BY SIZE
INTO WLINEACOMANDO.
* INVOKE POW-SELF "ExecuteSync" USING WLINEACOMANDO POW-SWHIDE
* RETURNING WRETURNVALUE2
INVOKE POW-SELF "ExecuteSync" USING WLINEACOMANDO
RETURNING WRETURNVALUE2
display "WRETURNVALUE2: " WRETURNVALUE2
MOVE "B" TO EDIT-MODE OF BM-CODQR OF IFactuVT
MOVE "CODQR.BMP" TO BM-CODQR OF IFactuVT
Muchas gracias
Un saludo