CodePudding user response:
DelphiZXingQRCode, https://www.debenu.com/open-source/delphizxingqrcode/This is a free, open source qr code/bar code component, can support CB6 unknown,
FastReport, TMS components also have qr code support, but that both the full version of be business component, need the what,
CodePudding user response:
//QR_Encode. CPP: CQR_Encode//Date 2006/05/17 Ver. 1.22 Psytec Inc.
//# include "stdafx. H"
#include
# include "QR_Encode. H"
# define min (a, b) (a) & gt; (b)? (b) : (a)
/////////////////////////////////////////////////////////////////////////////
//QR version information
The static QR_VERSIONINFO QR_VersonInfo []={{0},//
{1,//Ver. 1
16, 26, 19, 13, 9,//data capacity
0, 0, 0, 0, 0, 0, 0,
//the total number of data blocks of error correction code words code words
1, 26, 19,
1, 26, 16,
1, 26, 13,
1, 26, 9,
0, 0, 0,
0, 0, 0,
0, 0, 0,
0, 0, 0},
{2, 2//Ver.
44, 34, 28, 22, 16,
18, 1, 0, 0, 0, 0, 0,
1, 44, 34,
1, 44, 28,
1, 44, 22,
1, 44, 16,
0, 0, 0,
0, 0, 0,
0, 0, 0,
0, 0, 0},
{3,//Ver. 3
44, 70, 55, 34, 26,
1, 22, 0, 0, 0, 0, 0,
1, 70, 55,
1, 70, 44,
2, 35, 17,
2, 35, 13,
0, 0, 0,
0, 0, 0,
0, 0, 0,
0, 0, 0},
{4,//Ver. 4
100, 80, 64, 48, 36,
1, 26, 0, 0, 0, 0, 0,
1, 100, 80,
2, 50, 32,
2, 50, 24,
4, 9, 25,
0, 0, 0,
0, 0, 0,
0, 0, 0,
0, 0, 0},
{5,//Ver. 5
134, 108, 86, 62, 46,
30, 1, 0, 0, 0, 0, 0,
1, 134, 108,
2, 67, 43,
2, 33, 15,
2, 33, 11,
0, 0, 0,
0, 0, 0,
2, 34, 16,
2, 34, 12},
{6,//Ver. 6
172, 136, 108, 76, 60,
34, 1, 0, 0, 0, 0, 0,
2, 86, 68,
4, 43, 27,
4, 43, 19,
4, 43, 15,
0, 0, 0,
0, 0, 0,
0, 0, 0,
0, 0, 0},
{7,//Ver. 7
196, 156, 124, 88, 66,
2, 22, 38, 0, 0, 0, 0,
2, 98, 78,
4, 49, 31,
2, 32, 14,
4, 39, 13,
0, 0, 0,
0, 0, 0,
4, 33, 15,
1, 40, 14},
{8,//Ver. 8
242, 194, 154, 110, 86,
2, 24, 42, 0, 0, 0, 0,
2, 121, 97,
2, 60, 38,
4, 40, 18,
4, 40, 14,
0, 0, 0,
2, 61, 39,
2, 41, 19,
2, 41, 15},
{9, 9//Ver.
292, 232, 182, 132, 100,
2, 26, 46, 0, 0, 0, 0,
2, 146, 116,
3, 58, 36,
4, 36, 16,
4, 36, 12,
0, 0, 0,
2, 59, 37,
4, 37, 17,
4, 37, 13},
{10,//Ver. 10
346, 274, 216, 154, 122,
2, 28, 50, 0, 0, 0, 0,
2, 86, 68,
4, 69, 43,
6, 43, 19,
6, 43, 15,
2, 87, 69,
1, 70, 44,
2, 44, 20,
2, 44, 16},
{11,//Ver. 11
404, 324, 254, 180, 140,
2, 30, 54, 0, 0, 0, 0,
4, 101, 81,
1, 80, 50,
4, 50, 22,
3, 36, 12,
0, 0, 0,
4, 81, 51,
4, 51, 23,
37, 8, 13},
{12,//Ver. 12
466, 370, 290, 206, 158,
2, 32, 58, 0, 0, 0, 0,
2, 116, 92,
6, 58, 36,
4, 46, 20,
7, 42, 14,
2, 117, 93,
2, 59, 37,
6, 47, 21,
4, 43, 15},
{13,//Ver. 13
532, 428, 334, 244, 180,
2, 34, 62, 0, 0, 0, 0,
4, 133, 107,
37, 8, 59,
8, 44, 20,
11, 12, 33,
0, 0, 0,
1, 60, 38,
4, 45, 21,
4, 34, 12},
{14,//Ver. 14
581, 461, 365, 261, 197,
3, 26, 46, 66, 0, 0, 0,
3, 145, 115,
4, 64, 40,
11, 36, 16,
12, 11, 36,
1, 146, 116,
5, 65, 41,
5, 37, 17,
5, 37, 13},
{15, 15//Ver.
655, 523, 415, 295, 223,
3, 26, 48, 70, 0, 0, 0,
5, 109, 87,
5, 65, 41,
5, 54, 24,
12, 11, 36,
1, 110, 88,
5, 66, 42,
7, 55, 25,
7, 37, 13},
{16,//Ver. 16
733, 589, 453, 325, 253,
3, 26, 50, 74, 0, 0, 0,
5, 122, 98,
7, 73, 45,
43, 15, 19,
3, 45, 15,
1, 123, 99,
3, 74, 46,
2, 44, 20,
13, 46, 16},
{17,//Ver. 17
815, 647, 507, 367, 283,
3, 30, 54, 78, 0, 0, 0,
1, 135, 107,
10, 74, 46,
1, 50, 22,
2, 42, 14,
5, 136, 108,
1, 75, 47,
15, 51, 23,
17, 43, 15},
{18,//Ver. 18
901, 721, 563, 397, 313,
3, 30, 56, 82, 0, 0, 0,
5, 150, 120,
9, 69, 43,
17, 50, 22,
2, 42, 14,
1, 151, 121,
4, 70, 44,
1, 51, 23,
19, 43, 15},
{19,//Ver. 19
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull