Générer et imprimer code-barre

**bogsy15** · 20/09/2007, 11h04

Bonjour tout le monde,

Dans mon programme, je dois générer un code-barre 39 (ou bien un code-barre EAN13) mais je ne sais pas par où commencer. J'ai déjà codé la partie qui récupère le code-barre venant de la douchette, branchée sur le port RS232.
En effectuant des recherche, j'ai trouvé quelques code-sources mais je n'arrive pas à les utiliser dans C++ Builder 6.

Voici la classe que j'ai trouvé :

le fichier .h

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#if !defined(AFX_FCODEBAR39__INCLUDED_)
#define AFX_FCODEBAR39__INCLUDED_
 
#if _MSC_VER >= 1000
#pragma once
#endif // _MSC_VER >= 1000
 
class FCodeBar39
{
public:
    //constructeur et destructeur
    FCodeBar39(void);
    ~FCodeBar39(void);
    //Fonctions Get et Set
    void SetValue(CString str_value)        {m_value = str_value;}
    CString GetValue(void)                    {return m_value;}
    //autres fonctions
    int BC39_Decode(char letter);    //transforme la lettre en code barre(bit)
    void BC39_Expand(int code,char* wn)    //transforme le code barre(bit) en code barre(W N)
    void BC39_Draw(CDC* pDC,RECT* rect,BOOL HORIZ)    //dessine le code bar sur le device context
protected:
    CString m_value;
};
#endif // !defined(AFX_FCODEBAR39__INCLUDED_)

le fichier .cpp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
#include "StdAfx.h"
#include "fcodebar39.h"
 
int FCodeBar39::BC39_Decode(char letter)
{
    int code;
    switch(letter){
        case '*':code = 0x0094;break;
        case '1':code = 0x0121;break;
        case '2':code = 0x0061;break;
        case '3':code = 0x0160;break;
        case '4':code = 0x0031;break;
        case '5':code = 0x0130;break;
        case '6':code = 0x0070;break;
        case '7':code = 0x0025;break;
        case '8':code = 0x0124;break;
        case '9':code = 0x0064;break;
        case '0':code = 0x0034;break;
        case 'A':code = 0x0109;break;
        case 'B':code = 0x0049;break;
        case 'C':code = 0x0148;break;
        case 'D':code = 0x0019;break;
        case 'E':code = 0x0118;break;
        case 'F':code = 0x0058;break;
        case 'G':code = 0x000D;break;
        case 'H':code = 0x010C;break;
        case 'I':code = 0x004C;break;
        case 'J':code = 0x001C;break;
        case 'K':code = 0x0103;break;
        case 'L':code = 0x0043;break;
        case 'M':code = 0x0142;break;
        case 'N':code = 0x0013;break;
        case 'O':code = 0x0112;break;
        case 'P':code = 0x0052;break;
        case 'Q':code = 0x0007;break;
        case 'R':code = 0x0106;break;
        case 'S':code = 0x0046;break;
        case 'T':code = 0x0016;break;
        case 'U':code = 0x0181;break;
        case 'V':code = 0x00C1;break;
        case 'W':code = 0x01C0;break;
        case 'X':code = 0x0091;break;
        case 'Y':code = 0x0190;break;
        case 'Z':code = 0x00D0;break;
        case '-':code = 0x0085;break;
        case '.':code = 0x0184;break;
        case ' ':code = 0x00C4;break;
        case '$':code = 0x00A8;break;
        case '/':code = 0x00A2;break;
        case '+':code = 0x008A;break;
        case '%':code = 0x002A;break;
        default: code = 0x0000;
    }
    return code;
}
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
void FCodeBar39::BC39_Expand(int code,char* wn)
{
    if(code & 0x0100){wn[0]='W';}else{wn[0]='N';}
    if(code & 0x0080){wn[1]='W';}else{wn[1]='N';}
    if(code & 0x0040){wn[2]='W';}else{wn[2]='N';}
    if(code & 0x0020){wn[3]='W';}else{wn[3]='N';}
    if(code & 0x0010){wn[4]='W';}else{wn[4]='N';}
    if(code & 0x0008){wn[5]='W';}else{wn[5]='N';}
    if(code & 0x0004){wn[6]='W';}else{wn[6]='N';}
    if(code & 0x0002){wn[7]='W';}else{wn[7]='N';}
    if(code & 0x0001){wn[8]='W';}else{wn[8]='N';}
    wn[9]='N';
    wn[10]=0x00;
}
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
int FCodeBar39::BC39_Draw(CDC* pDC,RECT* rect,BOOL HORIZ)
{
    char bcarray[400];
    char wn[11];
    char textcopy[100];
    int j,i_code,i_strlen,i_barwidth;
    int i_numchars;
    double d_xdim,d_offset,d_taillebarcode;
    HPEN holdpen;
    HBRUSH holdbrush;
    //si texte > 30 caractere on imprime pas le code à barre
    strcpy(textcopy,m_value);
    if(strlen(textcopy)>30){
        return 1;
    }
    //passe le texte en upper case
    strcpy(bcarray,"");
    strupr(textcopy);
    //charge la table des codes
    i_code=BC39_Decode('*');
    BC39_Expand(i_code,wn);
    strcpy(bcarray,wn);
    //concatene tous les codes sous forme de chaines
    for(j=0;j<(int)(strlen(textcopy));j++){
        i_code=BC39_Decode(textcopy[j]);
        if(i_code){
            BC39_Expand(i_code,wn);
            strcat(bcarray,wn);
        }
    }
    i_code=BC39_Decode('*');
    BC39_Expand(i_code,wn);
    strcat(bcarray,wn);
    //calcul le nb de caractéres necessaires; 10 bytes par caractere
    i_numchars=(int)(strlen(bcarray)/10);
    //selectionne type de pinceau et type de remplissage
    holdbrush=(HBRUSH)SelectObject(pDC->m_hDC,GetStockObject(BLACK_BRUSH));
    holdpen=(HPEN)SelectObject(pDC->m_hDC,GetStockObject(BLACK_PEN));
    i_strlen=strlen(bcarray);
    d_offset=0;
    //calcul la taille intrinseque d'une minibarre
    d_xdim=0;
    d_taillebarcode=0;
    for(j=0;j<i_strlen;j++){
        if(bcarray[j]=='W'){
            d_taillebarcode+=3;
        }
        else{
            d_taillebarcode+=1;
        }
    }
    //impression du code barre horizontal
    if(HORIZ){
        d_xdim=(rect->right-rect->left)/d_taillebarcode;
        for(j=0;j<i_strlen;j++){
            if(((j/2)*2)==j){
                //si c'est une barre
                if(bcarray[j]=='W'){
                    //dessine une barre pleine
                    i_barwidth=(int)(d_xdim*3);
                    Rectangle(pDC->m_hDC,rect->left+(int)d_offset,rect->top,rect->left+(int)d_offset+i_barwidth,rect->bottom);
                    d_offset+=(d_xdim*3);
                }
                else{
                    //dessine une barre vide
                    i_barwidth=(int)d_xdim;
                    Rectangle(pDC->m_hDC,rect->left+(int)d_offset,rect->top,rect->left+(int)d_offset+i_barwidth,rect->bottom);
                    d_offset+=(d_xdim);
                }
            }
            else{
                //laisse un espace blanc
                if(bcarray[j]=='W'){
                    d_offset+=(d_xdim*3);
                }
                else{
                    d_offset+=(d_xdim);
                }
            }
        }
    }
    else{  //impression verticale
        d_xdim=(rect->bottom-rect->top)/d_taillebarcode;
        for(j=0;j<i_strlen;j++){
            if(((j/2)*2)==j){
                //si c'est une barre
                if(bcarray[j]=='W'){
                    //dessine une barre pleine
                    i_barwidth=(int)(d_xdim*3);
                    Rectangle(pDC->m_hDC,rect->left,rect->top+(int)d_offset,rect->right,rect->top+(int)d_offset+i_barwidth);
                    d_offset+=(d_xdim*3);
                }
                else{
                    //dessine une barre vide
                    i_barwidth=(int)d_xdim;
                    Rectangle(pDC->m_hDC,rect->left,rect->top+(int)d_offset,rect->right,rect->top+(int)d_offset+i_barwidth);
                    d_offset+=(d_xdim);
                }
            }
            else{
                //laisse un espace blanc
                if(bcarray[j]=='W'){
                    d_offset+=(d_xdim*3);
                }
                else{
                    d_offset+=(d_xdim);
                }
            }
        }
    }
    SelectObject(pDC->m_hDC,holdpen);
    SelectObject(pDC->m_hDC,holdbrush);
    return 0;
}

Est-ce que quelqu'un peut m'aider ?
Merci

**pottiez** · 20/09/2007, 11h34

A tu des message des erreur, des erreurs de compilation, si oui, à quel endroit du code et quand si c'est en exécution.

**bogsy15** · 20/09/2007, 12h18

Bon déjà, j'ai des erreurs de compilation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
[C++ Erreur] fcodebar39.h(19): E2293 ) attendue
void SetValue(CString str_value)		{m_value = str_value;}
 
[C++ Erreur] fcodebar39.h(24): E2040 Déclaration terminée incorrectement
void BC39_Draw(CDC* pDC,RECT* rect,BOOL HORIZ)
 
[C++ Erreur] FCodeBar39.cpp(7): E2316 'FCodeBar39::BC39_Decode(char)' est pas un membre de 'FCodeBar39'
 
[C++ Erreur] FCodeBar39.cpp(78): E2147 'CDC' ne peut pas démarrer une déclaration de paramètre
[C++ Erreur] FCodeBar39.cpp(78): E2303 Nom de type attendu
int FCodeBar39::BC39_Draw(CDC* pDC,RECT* rect,BOOL HORIZ)

J'ai l'impression que le source vient de Visual C++. Ca ne va pas poser problème dans builder ?
Sinon le problème c'est que je ne sais pas utiliser ce source, je ne sais pas quelles méthodes utiliser et tout. En fait mon numéro de code-barre sera affiché dans un TEdit et apres un clic sur le bouton je voudrai qu'il s'affiche dans une sorte de TImage ? c'est possible ?

**pottiez** · 20/09/2007, 12h55

Bon, a première vu, j'ai les même erreur que toi, je ne pense pas que ce soit un problème de VC++, il y a autre chose, du moins pour la première erreur, je regarde ca et je te dis quoi lorsque j'ai du nouveau de mon coté

**pottiez** · 20/09/2007, 13h05

Bon, j'ai trouvé pour une partie des erreurs, mais chez moi il en reste encore une.

Pour les première, il faut que tu transforme tout les CString en AnsiString (ou String c'est pareille) et que tu ajoute en première ligne du fichier fcodebar39.h la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

#include <Classes.hpp>

**pottiez** · 20/09/2007, 13h06

Il faut également ajouté un ';' à la fin de la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    void BC39_Expand(int code,char* wn)    //transforme le code barre(bit) en code barre(W N)

toujours dans le .h

**pottiez** · 20/09/2007, 13h08

Les deux lignes suivante, il faut les mettre avant le public au lieu de après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
protected:
    AnsiString m_value;

toujours dans le .h

Dis moi si tu as toujours des erreurs de compilation

**bogsy15** · 20/09/2007, 13h16

J'ai encore trois erreurs, les voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[C++ Erreur] FCodeBar39.h(26): E2293 ) attendue
[C++ Erreur] FCodeBar39.cpp(78): E2147 'CDC' ne peut pas démarrer une déclaration de paramètre
[C++ Erreur] FCodeBar39.cpp(79): E2316 'FCodeBar39::BC39_Draw(int *,tagRECT *,int)' est pas un membre de 'FCodeBar39'

**Crayon** · 20/09/2007, 17h41

Envoyé par bogsy15

J'ai encore trois erreurs, les voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[C++ Erreur] FCodeBar39.h(26): E2293 ) attendue
[C++ Erreur] FCodeBar39.cpp(78): E2147 'CDC' ne peut pas démarrer une déclaration de paramètre
[C++ Erreur] FCodeBar39.cpp(79): E2316 'FCodeBar39::BC39_Draw(int *,tagRECT *,int)' est pas un membre de 'FCodeBar39'

Salut, l'équivalent de CDC avec BCB ce n'est pas Canvas? Si t'a seule erreur est dans la méthode BC39_Draw tu peux peut-être la refaire avec un l'utilisation de Canvas (ou autre).

**pottiez** · 20/09/2007, 14h14

Ok j'ai les meme, je vais regarder, mais en attendant, pourrais tu me donné la nature de ce fichier : "StdAfx.h"

**bogsy15** · 20/09/2007, 14h55

Je n'ai pas ce fichier StdAfx.h, c'est pour cela que je disais que ca venait d'un projet sous Visual C++ et que ca allait poser problème.
Je n'ai rien trouvé de similaire sous un projet builder

**pottiez** · 20/09/2007, 15h28

Est ce que tu peut me dire a quoi sert la ou les classe contenu dans ce fichier ?

**bogsy15** · 20/09/2007, 15h33

A ce que j'ai compris, ces classes servent à partir du numéro du code-barre, à décoder le code-barre pour générer l'image du code-barre qui pourra par le suite être imprimé.

**pottiez** · 20/09/2007, 15h35

A, c'est embêtant ça, sans cette classe tu ne peut donc rien faire

, essaye de voir si il n'y a pas des composant gratuit sur internet qui font la génération de code barre, je vais également chercher de mon coté

**pottiez** · 20/09/2007, 15h59

voici quelques composant qui pourrai être compatible, comme je ne connait pas tes ressources, je t'en met des payant comme des gratuit (enfin si j'en trouve

)

A savoir que si ce ne sont pas de composant mais des logiciel, ceux-ci peuvent être commandé par ton application assez facilement.

**bogsy15** · 20/09/2007, 16h31

Merci, est-ce que les composants Delphi sont compatibles avec C++ Builder 6 ? Les composants que j'ai retenu sont ReportMaker et Rave (qui ont l'air de posséder un objet codebarre).
Sinon comment je peux faire fonctionner les composants activeX avec mon programme créé par C++ builder 6.

Tu parlais de commander les logiciels par mon application assez facilement, comment cela fonctionne-t-il ?

**pottiez** · 20/09/2007, 17h00

Envoyé par bogsy15

Merci, est-ce que les composants Delphi sont compatibles avec C++ Builder 6 ?

Pas tous malheureusement

Envoyé par bogsy15

Sinon comment je peux faire fonctionner les composants activeX avec mon programme créé par C++ builder 6.

Euh, la je ne serai pas te répondre pour le moment, désolé

Envoyé par bogsy15

Tu parlais de commander les logiciels par mon application assez facilement, comment cela fonctionne-t-il ?

Il y a de nombreux postes a ce sujet sur ce forum, tu devrais facilement les trouver, pour commander il faut récupérer le Handle de la fenêtre du programme (tu peut trouver comment faire sur le forum ou regarder cette question de la FAQ), apres tu peut cliquer sur les bouton ou remplire des champs de saisie assez facilement il me semble (la il faut voir sur le forum, il y a rien dessus dans la FAQ)

**bogsy15** · 20/09/2007, 17h05

j'ai trouvé un autre composant a l'adresse http://www.psoft.sk/

Je l'ai installé, il a l'air pas mal le composant. Par contre je pense que ce composant est payant. Est-ce que j'ai une période d'évaluation ?

**pottiez** · 20/09/2007, 17h10

Apparemment il y a une version gratuite mais vu que ce n'ai pas en français je ne serais pas t'en dire plus

généralement quand c'est une version d'évaluation le composant ajoute une marque ou la provenance du composant quelque part sur ton appli, généralement la ou le composant est utilisé

**henderson** · 24/09/2007, 20h26

Salut !

Voici ce que j'ai finalement développé (juste pour le fun).
Pour la représentation graphique, j'ai écarté la proportionnalité.
En effet, c'est un premier jet et ... il n'existe pas de 1/2 pixels...
J'ai cherché avant tout à obtenir un écho sur l'écran.

Le CodeBarre.h :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
#include <Printers.hpp>
 
// les types co40 et co41 sont ici factices et ne sont la que pour illustrer
enum TCodeType{co39, co40, co41};
 
class jCodeBarres : public TCustomControl
{
private :
bool Done;
AnsiString FCaption;
TScrollBarKind FKind;
TCodeType FType;
AnsiString wn;
AnsiString bcarray;
AnsiString textcopy;
 
//Je prends des int car il n'existe pas de 1/2 pixels
int d_offset;
int d_taillebarcode;
int d_barwidth;
 
protected :
 
    void __fastcall SetCaption(AnsiString Value);
    void __fastcall SetKind(TScrollBarKind Value);
    void __fastcall SetType(TCodeType Value);
 
public :
 
    __fastcall jCodeBarres(TComponent* AOwner);
    __fastcall ~jCodeBarres();
 
    //...
    void __fastcall DrawChar(int J, int X, int Y);
 
    void __fastcall Encode39(char C);
    //Encodages factices
    void __fastcall Encode40(char C);
    void __fastcall Encode41(char C);
 
    void __fastcall Encode(char C);
 
    void __fastcall Paint();
 
    void __fastcall Print();
 
//Le texte à encoder
__property AnsiString Caption={read=FCaption, write=SetCaption};
//Traits verticaux ou horizontaux
__property TScrollBarKind Kind={read=FKind, write=SetKind};
//Type d'encodage en relation avec l'énumération TCodeType
__property TCodeType Type={read=FType, write=SetType};
//Pour accéder au canvas
__property TCanvas *Cnv={read=Canvas};
 
};

Le CodeBarre.cpp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
 
 
__fastcall jCodeBarres::jCodeBarres(TComponent* AOwner)
    : TCustomControl(AOwner)
{
if(AOwner->InheritsFrom(__classid(TWinControl))) Parent = (TWinControl*)AOwner;
Canvas->Brush->Style = bsSolid;
Canvas->Pen->Style = psSolid;
Canvas->Pen->Mode = pmCopy;
FKind = sbVertical;
Canvas->Pen->Color = clBlack;
Canvas->Font->Size = 12;
Canvas->Font->Style = Canvas->Font->Style << fsBold;
Done = false;
}
 
__fastcall jCodeBarres::~jCodeBarres()
{
}
 
void __fastcall jCodeBarres::Encode39(char C)
{
int N = 0;
switch(C)
    {
    case '*': N = 0x0094; break;
    case '1': N = 0x0121; break;
    case '2': N = 0x0061; break;
    case '3': N = 0x0160; break;
    case '4': N = 0x0031; break;
    case '5': N = 0x0130; break;
    case '6': N = 0x0070; break;
    case '7': N = 0x0025; break;
    case '8': N = 0x0124; break;
    case '9': N = 0x0064; break;
    case '0': N = 0x0034; break;
    case 'A': N = 0x0109; break;
    case 'B': N = 0x0049; break;
    case 'C': N = 0x0148; break;
    case 'D': N = 0x0019; break;
    case 'E': N = 0x0118; break;
    case 'F': N = 0x0058; break;
    case 'G': N = 0x000D; break;
    case 'H': N = 0x010C; break;
    case 'I': N = 0x004C; break;
    case 'J': N = 0x001C; break;
    case 'K': N = 0x0103; break;
    case 'L': N = 0x0043; break;
    case 'M': N = 0x0142; break;
    case 'N': N = 0x0013; break;
    case 'O': N = 0x0112; break;
    case 'P': N = 0x0052; break;
    case 'Q': N = 0x0007; break;
    case 'R': N = 0x0106; break;
    case 'S': N = 0x0046; break;
    case 'T': N = 0x0016; break;
    case 'U': N = 0x0181; break;
    case 'V': N = 0x00C1; break;
    case 'W': N = 0x01C0; break;
    case 'X': N = 0x0091; break;
    case 'Y': N = 0x0190; break;
    case 'Z': N = 0x00D0; break;
    case '-': N = 0x0085; break;
    case '.': N = 0x0184; break;
    case ' ': N = 0x00C4; break;
    case '$': N = 0x00A8; break;
    case '/': N = 0x00A2; break;
    case '+': N = 0x008A; break;
    case '%': N = 0x002A; break;
    }
if(N != 0)
    {
    wn = "0000000000";
 
    wn[9]  = (char)(wn[9] + (N & 1)); N = N >> 1;
    wn[8]  = (char)(wn[8] + (N & 1)); N = N >> 1;
    wn[7]  = (char)(wn[7] + (N & 1)); N = N >> 1;
    wn[6]  = (char)(wn[6] + (N & 1)); N = N >> 1;
    wn[5]  = (char)(wn[5] + (N & 1)); N = N >> 1;
    wn[4]  = (char)(wn[4] + (N & 1)); N = N >> 1;
    wn[3]  = (char)(wn[3] + (N & 1)); N = N >> 1;
    wn[2]  = (char)(wn[2] + (N & 1)); N = N >> 1;
    wn[1]  = (char)(wn[1] + (N & 1));
 
    bcarray = bcarray + wn;
    }
}
 
void __fastcall jCodeBarres::Encode40(char C)
{
 
}
 
void __fastcall jCodeBarres::Encode41(char C)
{
 
}
 
 
void __fastcall jCodeBarres::Encode(char C)
{
switch(Type)
    {
    case co39 : Encode39(C); break;
    case co40 : Encode40(C); break; // factice
    case co41 : Encode41(C); break; // factice
    }
}
 
void __fastcall jCodeBarres::DrawChar(int J, int X, int Y)
{
int c = (J-1) % 10;
if(c == 0)
    {
    int p = (J-1) / 10;
    Canvas->Brush->Color = clWhite;
    Canvas->TextOut(X, Y, (AnsiString) textcopy[p+1]);
    Canvas->Brush->Color = clBlack;
    }
}
 
void __fastcall jCodeBarres::Paint()
{
//si texte > 30 caractéres on imprime pas le code à barre
if(Caption.Length() <= 30)
    {
    //Si Done == true, c'est que SetBounds a été sollicitée
    //Il n'est donc pas necéssaire de tout recalculer
    //Par contre si Done == false, alors il faut tout calculer
    if(Done == false)
        {
        Done = true;
        //Tout Effacer
        Canvas->Brush->Color = clWhite;
        Canvas->Brush->Color = clWhite;
        Canvas->FillRect(Rect(0,0,Width, Height));
        //Pour dessiner
        Canvas->Brush->Color = clBlack;
        Canvas->Brush->Color = clBlack;
        //On purge la chaîne des binaires
        bcarray = "";
        // Apparemment on encadre l'expression à codifier par deux "*" donc :
        textcopy = "*" + Caption.UpperCase() + "*";
        //On encode textcopy dans le bcarray
        for(int j = 1; j <= textcopy.Length(); j++)
            {
            Encode(textcopy[j]);
            }
        //raz des propriétés
        d_offset = 0;
        d_taillebarcode = 0;
        //On calcule une dimension totale du code barre
        //- barre de 6 pour 1
        //- barre de 2 pour 0
	    for(int j=1; j<= bcarray.Length(); j++)
            {
		    if(bcarray[j] == '1') d_taillebarcode += 6;
		    else d_taillebarcode += 2;
	        }
        }
 
    // au cas ou Done == true
    // les dimensions sont celles données à SetBounds
    // donc on n'y fera pas appel cette fois ci
 
    // REM : sbVertical pour des  barres verticales
    if(Kind == sbVertical)
        {
        //J'affecte la bonne taille à l'objet
        if(Width != d_taillebarcode)
            {
            SetBounds(Left,Top, d_taillebarcode, 64);
            return; // A ce stade le code barre est dessiné
            }
		for(int j = 1; j<= bcarray.Length(); j++)
            {
            DrawChar(j, d_offset, Height - 16);
            //par défaut 2 pour un 0, sinon 6 pour un 1
            d_barwidth = 2;
            if(bcarray[j] == '1') d_barwidth = 6;
			if((j & 1) == 1)
                {
                Canvas->Rectangle(d_offset,
                                  0,
                                  d_offset + d_barwidth,
                                  Height - 16);
			    }
            d_offset += d_barwidth;
			}
		}
    else
        {
        if(Height != d_taillebarcode)
            {
            SetBounds(Left,Top, 64, d_taillebarcode);
            return;
            }
		for(int j = 1; j<= bcarray.Length(); j++)
            {
            DrawChar(j, Width-16, d_offset);
            d_barwidth = 2;
            if(bcarray[j]=='1') d_barwidth = 6;
			if((j & 1) == 1)
                {
                Canvas->Rectangle(0,
                                  d_offset,
                                  Width - 16,
                                  d_offset + d_barwidth);
			    }
            d_offset += d_barwidth;
			}
		}
    }
//Prêt pour dessiner à nouveau
Done = false;
}
 
void __fastcall jCodeBarres::Print()
{
//Positions du code barre sur la feuille à imprimer
//Donc à modifier...
int x = 0; int y = 0;
//les rects pour la recopie d'un canvas vers un autre
TRect Srce = Rect(0, 0, Width, Height);
TRect Dest = Rect(x, y, x + Width, y + Height);
Printer()->BeginDoc();
Printer()->Canvas->CopyRect(Dest, Canvas, Srce);
Printer()->EndDoc();
}
 
void __fastcall jCodeBarres::SetCaption(AnsiString Value)
{
FCaption = Value; Repaint();
}
 
void __fastcall jCodeBarres::SetKind(TScrollBarKind Value)
{
if(FKind != Value)
    {
    FKind = Value; Repaint();
    }
}
 
void __fastcall jCodeBarres::SetType(TCodeType Value)
{
if(FType != Value)
    {
    FType = Value; Repaint();
    }
}

J'ai donc utilisé de cette manière là (dans Unit1.cpp):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
#include "CodeBarre.h"
 
jCodeBarres *CodeBarre;
 
//------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
CodeBarre = new jCodeBarres(this);
CodeBarre->SetBounds(20,20,100,64);
CodeBarre->Caption = "3020061";
}
//------------------------------------------------------------------------