1. Forum
  2. Usenet
  3. COMP.LANG.XHARBOUR

  • =?UTF-8?Q?Is_anyone_printing_QR_codes_with_Fivewin=3F_=2D_=C2=BFAlguie?

    From nicolas.dps@21:1/5 to All on Mon Aug 2 08:30:34 2021
    Hello
    Is anyone printing QR codes with Fivewin?
    If so, I would be grateful if you could tell me
    1. Libraries to link
    2. .CH files to include in the compilation
    3. Some PRG example of how the function would be called where you can see what parameters are passed.
    ----------------
    Hola
    ¿Alguien esta imprimiendo codigos QR con Fivewin?
    Si asi fuese agradeceria me indicasen
    1. Librerias a linkar
    2. ficheros .CH a incluir en la compilacion
    3. Algun ejemplo PRG de como se llamaria a la funcion donde se vea que parametros se pasan

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Eduardo Motta@21:1/5 to All on Tue Aug 3 09:22:54 2021
    #include "fivewin.ch"

    Function u_Teste()
    Local cStr := "QRCODE text"
    Local cFile := "arq.bmp"
    Local oDlg
    Local oBmp1

    QRCode(cStr,cFile) // aqui vc chama a funcao passando como parametro o conteudo do QRCODE e o arquivo BMP que será gerado

    DEFINE DIALOG oDlg FROM 0,0 TO 300,300 TITLE "Exibir QRCODE" PIXEL

    @ 10,10 BITMAP oBmp1 FILE cFile OF oDlg Size 200,200 Pixel NOBORDER

    ACTIVATE DIALOG oDlg CENTERED

    Return

    // link download qrcodelib.dll => http://www.emotta.com.br/qrcode/qrcode.rar DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" LIB "QRCodelib.Dll"

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)