Lecture d'un code barre

Version imprimable

27/03/2017, 12h20
yab2000dz

Lecture d'un code barre

Bonjour,

je n'arrive pas a gérer la fin du code barre après sa lecture.
je voudrais qu'a chaque fin de lecture le pointeur quitte automatiquement le composant pour se positionne sur un autre.

j'utilise DELPHI 7 et le composant est un EDIT .

remerciements et salutations.
27/03/2017, 12h32
gbegreg

Citation:

Envoyé par yab2000dz

je voudrais qu'a chaque fin de lecture le pointeur quitte automatiquement le composant pour se positionne sur un autre.

Le pointeur ? Vous voulez dire le focus non ?
Pour placer le focus sur un autre composant, après la lecture du code barre (qui d'après ce que je comprends doit alimenter votre champ TEdit), vous souhaitez placer le focus sur le champ suivant automatiquement.
Pour ce faire, après la lecture, il vous suffit de faire un :

Code:

monComposantSuivant.setFocus;

Citation:

Envoyé par gbegreg

Le pointeur ? Vous voulez dire le focus non ?
Pour placer le focus sur un autre composant, après la lecture du code barre (qui d'après ce que je comprends doit alimenter votre champ TEdit), vous souhaitez placer le focus sur le champ suivant automatiquement.
Pour ce faire, après la lecture, il vous suffit de faire un :

Code:

monComposantSuivant.setFocus;

merci gbegreg pour votre reponse.

en effet c'est gerer le focus.
voici mon bout de programme qui : après la lecture du code barre récupère le nom du produit de ma base de données ACCESS et au lieu de se positionner directement sur le champ suivant quantité reste sur place (ie : le champ code barre), et ce malgré la commande : champcodebarre.setfocus
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TF_Ventes.Ed_CBChange(Sender: TObject); begin if (Ed_CB.Text <> '') then begin AQ_Prod.Locate('C_B', Ed_CB.Text, [loCaseInsensitive]); EdPrd.Text:=AQ_Prodnom.Value; DBPrd.Visible:=false; edit3.SetFocus end; end;
il s'agit peut être de gérer le CR (#13).

Bonjour,

le meilleur moyen serait d'utiliser l'évènement OnKeyPress du TEdit.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TF_Ventes.Ed_CBKeyPress(Sender: TObject;var Key: Char);
begin
if Key=#13 then 
 begin
   Key:=#0;
   if (Ed_CB.Text <> '') then
    begin
      AQ_Prod.Locate('C_B', Ed_CB.Text, [loCaseInsensitive]);
      EdPrd.Text:=AQ_Prodnom.Value;
      DBPrd.Visible:=false;
    end;
  SelectNext(Sender as TWinControl,true,true); // ou edit3.SetFocus
 end;
end;

Note : par précautions, avec les lectures code-barres, je vide aussi le buffer de clavier

27/03/2017, 14h41
yab2000dz

merci sergiomaster pour la réponse,

le probléme persiste ,avec l'evenement onkeypress, avec en plus la non apparition du libellé du champ, c'est a dire la recherche n'a pas pu étre effectuée et le focus est resté sur place .
il faudrait appuyer sur la touche ENTREE pour que l'opération se réalise, chose que je voulais éviter.
27/03/2017, 16h38
yab2000dz

bonjour tout le monde,

après plusieurs recherches , j'ai l'impression que ma douchette ne renvoi pas un #13 (CR) après la fin de lecture du code barre .

comment faire pour ca?

j'ai essayer de scanner les différents codes figurant dans le document en ma possession , mais rien a faire

merci pour votre aide
27/03/2017, 16h55
SergioMaster

Ce doit juste être un problème de configuration de douchette
27/03/2017, 22h29
yab2000dz

justement comment faire pour programmer automatiquement le renvoi d'un #13 (CR) a la fin de chaque lecture d'un code barre? bien sur pour un composant edit de delphi

NB : j'ai fait un essai sur une feuille excel , après lecture d'un code barre le curseur change automatiquement de cellule.
28/03/2017, 07h41
SergioMaster

Bonjour,

je suis parti de votre impression

Citation:

j'ai l'impression que ma douchette ne renvoi pas un #13 (CR) après la fin de lecture du code barre .

S'il s'agit de ça il s'agit alors d'un problème avec la douchette, en général ces dernières sont fournies avec un petit manuel, plein de codes, permettant de configurer cette dernière.

Citation:

j'ai fait un essai sur une feuille excel

moi je préfère le simple bloc note, si chaque code scanné est sur une ligne différente alors le code #13 est bien envoyé

Citation:

après lecture d'un code barre le curseur change automatiquement de cellule.

alors ce peut être #09 (tab) qui est configuré je n'en sais rien, en tout cas avec notepad cela sera plus facile de vérifier, quitte a enregistrer le fichier puis utiliser un éditeur hexadécimal.
En tout cas, je reste persuadé qu'il s'agit d'un problème de configuration de douchette
28/03/2017, 11h24
yab2000dz

Bonjour,

effectivement sur le bloc note, chaque code scanné est écrit est sur une ligne différente , mais sur le composant edit de delphi , après lecture, le pointeur reste sur place, faut t-il ajouter autre chose ?

Citation:

Envoyé par yab2000dz

effectivement sur le bloc note, chaque code scanné est écrit est sur une ligne différente

donc, le code #13 est bien passé.

Citation:

mais sur le composant edit de delphi , après lecture, le pointeur reste sur place, faut t-il ajouter autre chose ?

il faudrait voir le code et le dfm pour voir ce qu'il en est. Le code que j'ai proposé avait été fait à la va vite.

voilà un programme simple 15mn (sans recherche), heureusement j'ai une douchette sur place !
dfm

Code:

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
object Form8: TForm8
  Left = 0
  Top = 0
  Caption = 'Form8'
  ClientHeight = 155
  ClientWidth = 485
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 7
    Width = 50
    Height = 13
    Caption = 'Zone Scan'
  end
  object Label2: TLabel
    Left = 8
    Top = 61
    Width = 69
    Height = 13
    Caption = 'Zone Suivante'
  end
  object Edit1: TEdit
    Left = 8
    Top = 26
    Width = 153
    Height = 21
    TabOrder = 0
    OnKeyPress = Edit1KeyPress
  end
  object Memo1: TMemo
    Left = 240
    Top = 18
    Width = 209
    Height = 129
    TabStop = False
    Lines.Strings = (
      'Memo1')
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 8
    Top = 80
    Width = 193
    Height = 21
    TabOrder = 2
    Text = 'Edit2'
    OnKeyPress = Edit2KeyPress
  end
  object Button1: TButton
    Left = 8
    Top = 122
    Width = 75
    Height = 25
    Caption = 'Clear Memo'
    TabOrder = 3
    OnClick = Button1Click
  end
end

source, à adapter au besoin selon la version de Delphi

Code:

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
unit Unit8;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.Bind.EngExt, Vcl.Bind.DBEngExt,
  System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.Components,
  Vcl.StdCtrls;
 
type
  TForm8 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form8: TForm8;
 
implementation
 
{$R *.dfm}
 
procedure TForm8.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
end;
 
procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);
// avec passage vers Edit2
begin
if Key=#13 then
 begin
   Memo1.Lines.Add('Edit1 '+ Edit1.text);
   SelectNext(Sender as TWinControl,True,True); // renvoi au prochain contrôle 
 end;
end;
 
procedure TForm8.Edit2KeyPress(Sender: TObject; var Key: Char);
// saisie en "rafale" on reste sur le même composant
begin
if Key=#13 then
 begin
   Key:=#0;
   Memo1.Lines.Add('Edit2 '+ Edit2.text);
   Edit2.Text:='';
 end;
 
end;
 
procedure TForm8.FormCreate(Sender: TObject);
begin
Memo1.Lines.Clear;
Edit1.SetFocus; // par précaution
end;
 
end.

28/03/2017, 19h09
yab2000dz

tous mes remerciements , SergioMaster.

le problème est résolu