Page 1 of 1
Codigo QR
Posted: Sat May 15, 2021 8:41 pm
by 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 pm
by 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 pm
by 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 am
by 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 pm
by 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 pm
by 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 pm
by karinha
Re: Codigo QR
Posted: Sun May 16, 2021 4:22 pm
by 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
#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 pm
by santidedos
Gracias a todos por la ayuda. Antonio, tu solución funcionó. Gracias!!!