FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Print QR Code in Fivewin.
Posts: 408
Joined: Sun Nov 06, 2005 03:55 PM
Print QR Code in Fivewin.
Posted: Wed Jul 06, 2022 07:53 PM

Is there any code examples on how to print QR Codes from FiveWin. I have to add a QR Code to an invoice and I am not sure where to start.

Thanks,

Thanks,

Byron Hopp

Matrix Computer Services
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Re: Print QR Code in Fivewin.
Posted: Wed Jul 06, 2022 08:04 PM
hi,

have search for "qr-code" and found
c:\fwh\samples\qrcode.prg
c:\fwh\samples\barcod01.prg

c:\fwh\samples\pdfharu1.prg
last Sample seems to show how to print "qr-code"

---

or do you already have a "qr-code" as Image :-)
greeting,

Jimmy
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Print QR Code in Fivewin.
Posted: Wed Jul 06, 2022 08:41 PM

Esto

viewtopic.php?f=6t=41939start=0
Puede servir

&&

Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Print QR Code in Fivewin.
Posted: Wed Jul 06, 2022 09:44 PM

Hola Byron Hopp

Así lo uso yo, puedes usar cualquiera de las 2 opciones, te imprime el codigo QR con parametros.

Saludos

Antonio

Definir:
REQUEST FWZEBRA

Opción 1:
     // Genero e Imprimo Codigo QR.
     hBmp := FW_BarCodeBmp( "www.prueba.com","QRCODE", 200, 200 )

     @ 220, 20 PRINT TO oPrn IMAGE hBmp SIZE 39.5, 24 MM

Opción 2:
       // Imprimo codigo QR directo.
        @ 220,20 PRINT TO oPrn TEXT "www.prueba.com" + CRLF + Str(nCerti,10) + CRLF + cRut  ;
         AS BARCODE TYPE "QR-CODE" SIZE 39.5,24 MM
FWH 22.10 - HARBOUR - PELLES C
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Print QR Code in Fivewin.
Posted: Thu Jul 07, 2022 09:31 PM

Both options work, but we recommend Option 2

Regards



G. N. Rao.

Hyderabad, India
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Print QR Code in Fivewin.
Posted: Fri Jul 15, 2022 05:58 PM

Saludos, estoy creando un codigo QR, pero cuando llego a cierta cantidad de caracteres, el lector de QR ya no reconoce la data del QR, no se si hay un limite de caracteres para el QR, lo que mando a crear no llega a 100 caracteres, aca dejo lo que hago, gracias

cTk := "Destino  : " + AllTrim( aVar[3] ) + CRLF +;
       "Origen: " + AllTrim( aVar[6] ) + CRLF +;
       "Fecha/Hora: " + DToC( aVar[5] ) + " - " + aVar[4] + CRLF +;
       "Monto Bs : " + Transform( cCodTk, oPi:nMo5 ) +;
       "#Tickets : " + aVar[7]

   hBmp := FW_BarCodeBmp( cTk, "QRCODE", 300, 300 )

   FW_SaveImage( hBmp, "qr\qr_tk.jpg" )
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Print QR Code in Fivewin.
Posted: Fri Jul 15, 2022 06:17 PM

José como vas?

El QR no tiene limite de caracteres; el tema es que si lo imprimes muy pequeño, se hace difícil para la cámara reconocer los datos, agranda un poco el qr y se soluciona tu problema.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Print QR Code in Fivewin.
Posted: Fri Jul 15, 2022 06:23 PM
leandro wrote:José como vas?

El QR no tiene limite de caracteres; el tema es que si lo imprimes muy pequeño, se hace difícil para la cámara reconocer los datos, agranda un poco el qr y se soluciona tu problema.


Saludos, ok, deja probar asi como dices con lo del tamaño y aviso, gracias...aunque si hay limite en el QR, solo que es como bastante, jejeje... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Print QR Code in Fivewin.
Posted: Fri Jul 15, 2022 10:45 PM
Amigo tienes toda la razón, aquí dejo evidencia de la investigación :-)

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion