Code barre de douchette [Résolu]

Messages postés
2
Date d'inscription
mardi 6 septembre 2005
Dernière intervention
10 novembre 2012
- - Dernière réponse : f0xi
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
- 12 nov. 2012 à 19:53
SALUT ...
SVP je vous un programme en delphi7 qui géré et lit le code barre de douchette, et comment détecter l’évènement de l'entrée de code barre.
Merci d'avance.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
3
Merci
La plupart des douchettes sont reconnues comme des claviers. C'est donc reçu par le système comme des frappes clavier tout simplement.


________________________________________________________

Merci f0xi 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de f0xi
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
1
Merci
précision : la douchette peut être configurée pour renvoyer #13 (return) ou #09 (tab) aprés la lecture du code barre
et donc de la déclencher les evenements OnClick d'un TButton, OnKeyPress d'un TEdit par exemple.

on placera donc le code dans l'evenement OnKeypress d'un TEdit :

procedure TForm.EditDouchetteKeypress(Sender: Tobject; var Key: char);
var Code: string;
begin
  if (Key #13) or (Key #09) then
  begin
    Code := (Sender as TEdit).Text;

    // faire quelque chose de "code"
    // exemple, lister les code barres scannés, si déjà présent pointer dessus :
    if ListBox1.Items.IndexOf(Code) = -1 then
      ListBox1.Items.Add(Code);
    else
      ListBox1.ItemIndex := ListBox1.Items.IndexOf(Code);

    (sender as TEdit).clear;
    (sender as TEdit).SetFocus;
  end;
end;

________________________________________________________
Commenter la réponse de f0xi
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
0
Merci
remplacer

ListBox1.Items.Add(Code);


par

ListBox1.ItemIndex := ListBox1.Items.Add(Code);


comme ça la liste pointe toujours sur le dernier element scanné

________________________________________________________
Commenter la réponse de f0xi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.