Lecteur code barre

**setinet19** · 03/01/2017, 09h16

Salut tout le monde,

Je fais mes débuts avec le lecteur code barre. Son exploitation semble simple, mais je coince. J'ai utilisé les événements Onchange et OnKeyPress sur un composant TEdit, ça ne marche pas... J'ai des code sur des longueurs différentes 6, 8,12 ,13 de code barre. Le problème est donc : comment il va lire tout le code avec une longueur pas connue au départ pour référencer après le bon article ? est-ce qu'il y a une lecture du genre code ASCCI ? que moi je connais pas... Aidez moi, SVP...

**Andnotor** · 03/01/2017, 09h48

Envoyé par setinet19

ca ne marche pas..

Toujours très productif comme remarque

Envoyé par setinet19

j'ai des code sur des longueurs différent 6, 8,12 ,13 de code barre. le problème est donc comment il va lire tout le code avec une longueur pas connu au départ

Le scanner envoie un code de fin, un retour à la ligne par exemple mais ça pourrait aussi être une tabulation ou un autre caractère en fonction de son réglage.

Envoyé par setinet19

...pour référencer après le bon article ?

Ca c'est ton job non ?
La façon de traiter les inputs du scanner n'est pas différente d'un clavier.

**SergioMaster** · 03/01/2017, 09h50

Bonjour,

Les évènements OnChange,OnKeypress ce n'est pas l'idéal car dans les deux cas chaque caractère est testé

comme en général la lecture d'un code-barre via le lecteur s'accompagne d'un retour chariot ( #13) ce que j'utilise c'est le OnExit
du coup il est très facile de tester la longueur reçue
seule contrainte, il faut qu'il y ait une autre zone qui prenne le focus !

**setinet19** · 03/01/2017, 10h00

Envoyé par SergioMaster

Bonjour,

Les évènements OnChange,OnKeypress ce n'est pas l'idéal car dans les deux cas chaque caractère est testé

comme en général la lecture d'un code-barre via le lecteur s'accompagne d'un retour chariot ( #13) ce que j'utilise c'est le OnExit
du coup il est très facile de tester la longueur reçue
seule contrainte, il faut qu'il y ait une autre zone qui prenne le focus !

Pour OnExit j'ai pensé et ça marché mais ça répond pas au besoin du client, dans une superette, il à besoin de défiler rapidement un ensemble article avec une seule opération...

**setinet19** · 03/01/2017, 10h04

Envoyé par Andnotor

Toujours très productif comme remarque

Le scanner envoie un code de fin, un retour à la ligne par exemple mais ça pourrait aussi être une tabulation ou un autre caractère en fonction de son réglage.

Ca c'est ton job non ?
La façon de traiter les inputs du scanner n'est pas différente d'un clavier.

Le scanner envoie un code de fin, un retour à la ligne par exemple mais ça pourrait aussi être une tabulation ou un autre caractère en fonction de son réglage. oui mais avec quel événement on récupère ça ? sinon il y'a surement un traitement à faire

**SergioMaster** · 03/01/2017, 10h22

Envoyé par setinet19

Pour OnExit j'ai pensé et ça marché mais ça répond pas au besoin du client, dans une superette, il à besoin de défiler rapidement un ensemble article avec une seule opération...

je ne comprends pas code_barre<>défilement d'une ensemble d'article. Pour moi un code_barre = un article ou, au pire une famille d'article avec après une sélection.
En général, s'il y a code barre c'est justement pour éviter cette sélection longue.
Pour moi le plus rapide reste bien le OnExit avec dans ce bloc un contrôle de la validité du code barre (existence de l'article)

**Lung** · 03/01/2017, 13h02

Envoyé par setinet19

Le scanner envoie un code de fin, un retour à la ligne par exemple mais ça pourrait aussi être une tabulation ou un autre caractère en fonction de son réglage. oui mais avec quel événement on récupère ça ?

Avec OnKeyPress ou OnKeyUp, tu peux tester si tu vois passer le caractère 13, ou 9, ou un autre ...

Code :

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

if Key = 13 then

**setinet19** · 03/01/2017, 17h06

Envoyé par Lung

Avec OnKeyPress ou OnKeyUp, tu peux tester si tu vois passer le caractère 13, ou 9, ou un autre ...

Code :

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

if Key = 13 then

Tu m'a pas bien compris, voiçi un example

MA Base:

code barre	Article
234589	Article 1
12387908	Article 2
056766	Article 3
3798086383273	Article 4
4839130893405	Article 5
329876	Article 6
.	.
.	.
.	.

mon code ne sais pas si la longueur égale à 6 ou à 13 ou à 9...sinon if 13=length(edit1.text) then aurai pu faire l'affaire, lorsque je scanne par example l'article Article 1 le 2 qui est le premier chiffre va me généré erreur je ne peu pas faire if 6=length(edit1.text) pasqu'il y'a d'autre code différent de 6 , c'est ça le vrai problème.

**tourlourou** · 03/01/2017, 19h18

Pour OnExit j'ai pensé et ça marché mais ça répond pas au besoin du client, dans une superette, il à besoin de défiler rapidement un ensemble article avec une seule opération...

Ah bon ? Trop lent ? S'il faut une seule opération (pour plusieurs codes barres ?), est-ce parce que le retour de la BDD est lent ? C'est pê plus là qu'il faut optimiser, non ?

**tourlourou** · 03/01/2017, 19h21

Sinon, une solution, si aucun codebarre n'est le début d'un plus grand, pourrait être d'utiliser un arbre.

**setinet19** · 03/01/2017, 21h38

Envoyé par tourlourou

Ah bon ? Trop lent ? S'il faut une seule opération (pour plusieurs codes barres ?), est-ce parce que le retour de la BDD est lent ? C'est pê plus là qu'il faut optimiser, non ?

Oui lorsqu'on fait avec OnExit je doit appuyer quelque part après chaque lecture du code barre au lieu de faire passer la lecture d'un autre produit .c'est ça la lenteur...

**tourlourou** · 03/01/2017, 21h57

Appuyer ? Il suffit en fin de ton traitement de rendre le focus au TEdit qui recevra le codebarre grâce à un SetFocus.

**Andnotor** · 03/01/2017, 22h51

Je prends cet ensemble d'articles comme un "comprenant".
On peut acheter séparément les pâtes, la sauce-tomate/viande-hachée et le Parmesan ou le "pack" bolognaise qui correspond à l'affichage de l'ensemble des articles moins 10%

Mais ça, C'est de la "sauce" interne, la gestion du code barre ne change pas et il se caractérise par un code de fin.

Si la fiche ne contient aucun champ de saisie, un KeyPress au niveau de la fiche va suffire mais ce sera à toi de prévoir le retour visuel pour l'utilisateur.
S'il n'y a qu'un champ de recherche, tu peux traiter ce TEdit à volonté, par ses événements, par une surcharge.
Si tu veux pouvoir scanner alors que le focus est détenu par un champ sans rapport avec la recherche d'article, ce sera plutôt Raw Input pour différencier les systèmes d'entrées : scanner, clavier (physique ou tactile).

**camatchou** · 04/01/2017, 02h29

Bonjour,

au niveau de l'évenement ONKEYDOWN de ton tedit (edit1 par exemple),
et une requette SQL nommée Qlistarticle par exemple,
essayez ceci :

Code :

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

1
2
3
4
5
6
7
8
 
 if key=vk_return then
 begin
         qlistarticle.Active:=false;
         qlistarticle.SQL.Clear;
         qlistarticle.SQL.Add('select * from tarticle where code_barre='+#39+edit1.text+#39);
         qlistarticle.Active:=true;
   end

ou code_barre est suposé être un champs de la table article composé de 14 caractères minimum,
comme ça vous avez l'enregistrement de ton article, il suffit ensuite de manipuler le reste des champs comme ceci : qlistearticlePrix.ascurrency,
qlistarticleMontant.ascurrency; etc...

Bonne continuation.

**SergioMaster** · 04/01/2017, 09h07

Bonjour,

je me permet de critiquer le code de Camatchou
la requête devrait être "fixe" (pas de SQL.clear) , préparée (au lancement du programme ?) et paramétrée

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
 
// début de programme
     qlistarticle.SQL.Text:='select * from tarticle where code_barre=:part';  // éviter le * et mettre la liste des champs nécessaire est encore mieux
     qlistarticle.Prepare;
 
// code de saisie 
 qlistarticle.Active:=false  // toujours fermer
 
 if key=vk_return then
 begin
 
         QListarticle.ParamByName('part').asString:=edit1.text;
         qlistarticle.Active:=true;
         ... // traitement
         //avec le onExit pour aller dans la zone suivante
         // SelectNext(sender as TwinControl,true,false); 
 
       // avec OnKeyPress
        Key:=#0;   
        Edit1.text:=''; 
        Edit1.SetFocus; // ou focuscontrol ?
   end;

Envoyé par setinet19

Oui lorsqu'on fait avec OnExit je doit appuyer quelque part après chaque lecture du code barre au lieu de faire passer la lecture d'un autre produit .c'est ça la lenteur...

c'est pour cela que j'indiquais qu'il y avait une contrainte : il faut qu'il y ait une autre zone qui prenne le focus ! (cette zone peut être invisible) on peut même dans l'absolu utiliser le OnEnter de cette zone pour faire le traitement et redonner la main à la zone de saisie

**solilog** · 04/01/2017, 17h34

Bonsoir,
Pourquoi faire simple quand on peut f... (onKeypressed, OnkeyDown), non. C'est tout facile, la douchette est faite pour çà.
Soit Edit1 et Button1 (OK) avec Default=True pour qu'il soit clické avec le ENTER (#13) de la douchette.
Tu mets le focus sur Edit1. Après les chiffres du code barre, ta douchette envoie un #13 (CR) ou un #13#10 (CRLF) ou rien selon ses réglages, toi tu règles à #13 (CR)
Le code Button1Click sera executé par le #13 quelle que soit le nb de chiffres lus, et il va faire son boulot (prendre Edit1.text, rechercher l'article, ..., et enfin effacer Edit1.text et Edit1.setfocus pour une autre lecture).
Que la caissière
- scanne avec la douchette
- ou tape au clavier + ENTER
- ou tu peux ajouter des boutons pour les chiffres (calculette) du genre btChiffre1Click avec Edit1.text := edit1.text + '1', et si écran tactile tu pourras toucher/clicker + OK.
Le tEdit se remplira puis le code OnClick du bouton sera executé.
Les contraintes:
- en fin de scan, la douchette envoie ENTER (#13) uniquement
- le focus doit toujours être remis sur Edit1
- et Button1.Default=True pour trapper le ENTER.
Il n'y a rien à faire.
Bonne chance.
solilog

**setinet19** · 04/01/2017, 19h11

Merci à tous pour les solutions, je vais essayé les tous et répondre ...

**setinet19** · 11/01/2017, 21h12

Je revient sur ce projet, j'ai testé tous les solutions proposés , hélas rien n'a marché,cependant la proposition de MR solilog semble intéressante mais j'ai pas bien compris pour la développé...

**setinet19** · 11/01/2017, 21h33

Envoyé par solilog

Bonsoir,
Pourquoi faire simple quand on peut f... (onKeypressed, OnkeyDown), non. C'est tout facile, la douchette est faite pour çà.
Soit Edit1 et Button1 (OK) avec Default=True pour qu'il soit clické avec le ENTER (#13) de la douchette.
Tu mets le focus sur Edit1. Après les chiffres du code barre, ta douchette envoie un #13 (CR) ou un #13#10 (CRLF) ou rien selon ses réglages, toi tu règles à #13 (CR)
Le code Button1Click sera executé par le #13 quelle que soit le nb de chiffres lus, et il va faire son boulot (prendre Edit1.text, rechercher l'article, ..., et enfin effacer Edit1.text et Edit1.setfocus pour une autre lecture).
Que la caissière
- scanne avec la douchette
- ou tape au clavier + ENTER
- ou tu peux ajouter des boutons pour les chiffres (calculette) du genre btChiffre1Click avec Edit1.text := edit1.text + '1', et si écran tactile tu pourras toucher/clicker + OK.
Le tEdit se remplira puis le code OnClick du bouton sera executé.
Les contraintes:
- en fin de scan, la douchette envoie ENTER (#13) uniquement
- le focus doit toujours être remis sur Edit1
- et Button1.Default=True pour trapper le ENTER.
Il n'y a rien à faire.
Bonne chance.
solilog

justement, quel est le code qui va déclenche le Button1Click, genre : if (???) then Button1Click ?