Barcodeleser mit TEdit Feld

[Jerry]

Hallo zusammen

folgende Frage:

Ich habe ein TEdit Feld dieses Feld wird an einen Barcodeleser angeschlossen. Dieser Barcodeleser soll nach dem Lesen des Barcodes eine Procedur ausführen.

In welchem Ereignis soll man das am besten platzieren?

Ich kann den Barcodeleser so programmieren, dass er am Schluss einen CR oder Tab sendet. Wie wird dies aber im entsprechenden Ereignis ermittelt?

Vielen Dank für Eure Input's!

Grüsse vom Bodensee, hoffentlich bald wieder mal schöneres Wetter.... :-((

[3_of_8]

Das dürfte TEdit.OnKeyDown sein.

[Jerry]

danke.

wieso der onkeydown und nicht der keypress? Was ist da genau der Unterschied?

Vielen Dank!

[3_of_8]

Dazwischen wird IMHO TranslateMessage aufgerufen.

Das heißt, aus der gedrückten Taste 65 (A) wird erstmal nachgeschaut ob Umschalt gedrückt ist, wenn ja kommt ein #65 ('A') raus, ansonsten ein #97 ('a'). Das heißt in OnKeyPress hat man den Char, der ins Edit kommen würde und in OnKeyDown den virtuellen Tastencode (nachzuschlagen unter Virtuelle Tatencodes, ja, Tatencodes ohne s, zumindest in Delphi 7 bei mir. ;) )

[Jerry]

danke vielmals. soeben probiert und passt.
habe eben noch nicht viel mit Tastaurabfragen gemacht!

[Sidorion]

[OT]
Mich würd dabei interessieren, wie man ein Editfeld an einen Scanner anschließt :shock:

Zitat:

Wolle stecken linke Rand Editfelden an Scannergriff

[/OT]

[DGL-luke]

ernste frage? wenn ja: der scanner schleift sich normalerweise in die tastatur rein ('Hook' auf die PS/2-Leitung ;) ) und gibt dir astreine tastatur-events, die dann im edit landen.

[shmia]

Ich würde das mit dem Event OnExit machen.
Dies ist viel bequemer als mit OnKeyDown oder OnKeyPress.
Wenn der Scanner ein Tab sendet, wird das Feld ja automatisch verlassen und OnExit ausgelöst.
In diesem Event verarbeitest du die Daten und springt wieder ins Eingabefeld zurück
(aber nur, wenn im Feld ein Inhalt drin war!!).

Delphi-Quellcode:

procedure TForm1.Edit1OnExit(sender:TObject);
var
   scancode : string;
begin
   scancode := TEdit(Sender).Text;
   if scancode <>'' then
   begin
      VerarbeiteDaten(scancode);
      TEdit(Sender).SetFocus;   // zurück aufs Eingabefeld
   end;
end;