code barre de douchetteRésolu

Question

SALUT ...
SVP je vous un programme en delphi7 qui géré et lit le code barre de douchette, et comment détecter l&#8217;évènement de l'entrée de code barre.
Merci d'avance.

f0xi · Accepted Answer

La plupart des douchettes sont reconnues comme des claviers. C'est donc reçu par le système comme des frappes clavier tout simplement.


________________________________________________________

f0xi · Answer

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;

________________________________________________________

f0xi · Answer

remplacer 

ListBox1.Items.Add(Code);

par 

ListBox1.ItemIndex := ListBox1.Items.Add(Code);

comme ça la liste pointe toujours sur le dernier element scanné

________________________________________________________

Code barre de douchette

3 réponses

Votre réponse

Discussions similaires