Page 1 of 1
Codigo QR
Posted:
Sat May 15, 2021 8:41 pmby santidedos
Buenas tardes compañeros, estoy trabajando desde un script con las librerías harupdf de harbour. Uso la función hb_zebra_create_code128(), para el código de barras y funciona, pero la función hb_zebra_create_qrcode(), que es para generar código QR, me tira el siguiente error: "Unknown or unregistered symbol HD_ZEBRA_CREATE_QRCODE".
Por qué me reconoce hb_zebra_create_code128() y no hb_zebra_create_qrcode(), si están en la misma librería.
Gracias de antemano.
Re: Codigo QR
Posted:
Sat May 15, 2021 9:44 pmby Antonio Linares
Santi,
Por el error que te dá parece que ha sido un baile de letras:
"Unknown or unregistered symbol HD_ZEBRA_CREATE_QRCODE"
Re: Codigo QR
Posted:
Sat May 15, 2021 10:05 pmby santidedos
Hola Antonio, escribí mal el error, pero la función la escribí bien, hZebra := hb_zebra_create_qrcode()
Re: Codigo QR
Posted:
Sun May 16, 2021 9:32 amby Antonio Linares
Prueba a usar:
extern HB_ZEBRA_CREATE_QRCODE
al comienzo del PRG en donde la usas
Re: Codigo QR
Posted:
Sun May 16, 2021 2:00 pmby santidedos
Antonio, sigue sin andar. Me pasa lo mismo de siempre, cuando lo compilo desde el programa anda lo más bien, pero desde el script me tira ese error.
Re: Codigo QR
Posted:
Sun May 16, 2021 2:59 pmby Antonio Linares
Como ejecutas el script ? Puedes mostrar el código ?
Es en la rutina que ejecuta el script en donde debes hacer el extern HB_ZEBRA_CREATE_QRCODE para que el símbolo esté disponible
Re: Codigo QR
Posted:
Sun May 16, 2021 3:59 pmby karinha
Re: Codigo QR
Posted:
Sun May 16, 2021 4:22 pmby nageswaragunupudi
If you do not have any reason not to use FWH, here is a simple program to compile a Script generating QRCode using HBZEBRA and saving to PDF using HARUPDF:
- Code: Select all Expand view
#include "fivewin.ch"
REQUEST FWHARU
REQUEST FWZEBRA
function Main()
local cScript, oHrb, uRet
TEXT INTO cScript
#include "fivewin.ch"
function __Main()
local oPrn, oFont
TPrinter():lUseHaruPDF := .t.
PRINT oPrn PREVIEW FILE "SCRIPT.PDF"
DEFINE FONT oFont NAME "VERDANA" SIZE 0,-20 OF oPrn
PAGE
@ 1,1 PRINT TO oPrn TEXT "FWH USING HARUPDF AND HBZEBRA" SIZE 6.5,0.5 INCHES FONT oFont
@ 2,2 PRINT TO oPrn TEXT "QR Code generated by FWH and saved to PDF" ;
AS BARCODE TYPE "QR" SIZE 2,2 INCHES
ENDPAGE
ENDPRINT
RELEASE FONT oFont
return nil
ENDTEXT
cScript := StrTran( cScript, CHR(10), CRLF )
FW_MEMOEDIT( cScript )
oHrb = HB_CompileFromBuf( cScript, "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" )
if ! Empty( oHrb )
TRY
uRet = hb_HrbDo( hb_HrbLoad( oHrb ) )
CATCH
? "Failed"
END
else
? "empty ohrb"
endif
return nil
Re: Codigo QR
Posted:
Sun May 16, 2021 9:20 pmby santidedos
Gracias a todos por la ayuda. Antonio, tu solución funcionó. Gracias!!!