Codigo QR

[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.

[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"

[santidedos]

Hola Antonio, escribí mal el error, pero la función la escribí bien, hZebra := hb_zebra_create_qrcode()

[Antonio Linares]

Prueba a usar:

extern HB_ZEBRA_CREATE_QRCODE

al comienzo del PRG en donde la usas

[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.

[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

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40392&sid=604b1a04a24aa394c7bf9f6b3f2940d9

[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
 

[santidedos]

Gracias a todos por la ayuda. Antonio, tu solución funcionó. Gracias!!!