Message-ID:

"It's when they say 2 + 2 = 5 that I begin to argue." -- Eric Pepke

devel / comp.lang.clipper.visual-objects / Re: QR for CaVo 2.8

Re: QR for CaVo 2.8

<acdac50e-1c1b-4ce0-afb2-4ee1228c5e53n@googlegroups.com>

https://news.novabbs.org/devel/article-flat.php?id=1916&group=comp.lang.clipper.visual-objects#1916

copy link Newsgroups: comp.lang.clipper.visual-objects

X-Received: by 2002:a05:622a:86:b0:342:f620:dc7a with SMTP id o6-20020a05622a008600b00342f620dc7amr39504618qtw.594.1662369959213;
Mon, 05 Sep 2022 02:25:59 -0700 (PDT)
X-Received: by 2002:a05:622a:174b:b0:343:1fc:14d8 with SMTP id
l11-20020a05622a174b00b0034301fc14d8mr38058597qtk.579.1662369958932; Mon, 05
Sep 2022 02:25:58 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Mon, 5 Sep 2022 02:25:58 -0700 (PDT)
In-Reply-To: <8a4a8c12-2f97-4c7f-82ae-10e63c3975b3n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=91.113.157.18; posting-account=e93nNAoAAAAJUcNVgYnurCc267cU9jpr
NNTP-Posting-Host: 91.113.157.18
References: <df3d1eb6-394b-4fc3-a3c5-7dc82311509bn@googlegroups.com>
<412489a5-39e9-481b-8c3f-f48436410436n@googlegroups.com> <53e3ed77-3e1d-416f-9021-24eced8ab739n@googlegroups.com>
<0b22b2ab-750e-4c5a-b994-e4bf3bf2be70n@googlegroups.com> <259dca00-388e-48bd-8553-2e1598679cfen@googlegroups.com>
<441cf86b-6219-446f-a863-bc72212112c4n@googlegroups.com> <8a4a8c12-2f97-4c7f-82ae-10e63c3975b3n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <acdac50e-1c1b-4ce0-afb2-4ee1228c5e53n@googlegroups.com>
Subject: Re: QR for CaVo 2.8
From: zweitaktfan@gmail.com (UPlai)
Injection-Date: Mon, 05 Sep 2022 09:25:59 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 3215

by: UPlai - Mon, 5 Sep 2022 09:25 UTC

Gerhard Bunzel schrieb am Montag, 28. Februar 2022 um 17:50:24 UTC+1:
> Henry,
>
> this FoxPro-Class uses a free DLL to create QR-Barcodes:
> github.com/VFPX/FoxBarCodeQR
>
> You can use the free BarCodeLibrary from that download with VO. No registration needed - that dll only has to be in the EXE-Path.
>
> To use that dll with VO:
> _DLL FUNCTION GenerateFile (cData AS PSZ, cFileName AS PSZ) AS INT PASCAL:BarCodeLibrary.GenerateFile
> _DLL FUNCTION SetConfiguration (nSize AS INT, nImageType AS INT) AS INT PASCAL:BarCodeLibrary.SetConfiguration
> _DLL FUNCTION LibraryVersion () AS PSZ PASCAL:BarCodeLibrary.LibraryVersion
>
>
> To create your QR-Code:
>
> SetConfiguration (4, 1))
> GenerateFile (String2Psz("Das ist ein Mustertext mit QR-Code"), String2Psz("QR_Muster.jpg"))
>
> /****
> tnSize: The size of the generated image. Receives an integer between 2 and 12
> 2 = 66 x 66 (in pixels)
> 3 = 99 x 99
> 4 = 132 x 132
> 5 = 165 x 165
> 6 = 198 x 198
> 7 = 231 x 231
> 8 = 264 x 264
> 9 = 297 x 297
> 10 = 330 x 330
> 11 = 363 x 363
> 12 = 396 x 396
>
> tnType: The type of the generated image file. Receives an integer between 0 and 2.
> 0 = BMP
> 1 = JPG
> 2 = PNG
> ********/
>
>
> HTH
>
> Gerhard Bunzel
Hello,

i cant get a readable QR-Code. Can you please help with this?
cBC:="BCD"+CRLF
cBC+="001"+CRLF
cBC+"1"+CRLF
cBC+="SCT"+CRLF
cBC+=oSelect:FIELDGET(#BIC)+CRLF
cBC+=AllTrim("MeinKunde")+CRLF
cBC+=oSelect:FIELDGET(#IBAN)+CRLF
cBC+="EUR"+StrSQL(oDCSleWErt:VALUE,2)+CRLF
cBC+="RECH"+CRLF
cBC+=StrSQL(_dwRechDruckNr,0)

SetConfiguration (12, 2)
GenerateFile (String2Psz(cBC), String2Psz(WorkDir()+"\QRCode.png"))

thanks!

Subject	Author
QR for CaVo 2.8	UPlai