Tastatur-Barcode-Scanner

[juezi]

Hallo Zusammen,
ich möchte in einem Delphi7-Programm einen Tastatur-Barcode-Scanner einbinden um einen Barcode vom Produkt mit einer Datenbank zu vergleichen. Gibt es eine Möglichkeit die Zeichen die mir der Scanner sendet im Hintergrund einzulesen?
Vielen Dank für Eure Hilfe
juezi

[Union]

Mit einem Tastaturscanner nicht. Du kannst nicht unterscheiden ob der Benutzer ein Zeichen getippt hat oder der Scanner es sendet. Du könntest Den Scanner aber so programmieren, dass er vor jedem Code eine bestimmte Taste als Präfix sendet. Daran kannst Du es dann erkennen. Ansonsten setze einen seriellen oder WLAN / Web fähigen Scanner ein.

[juezi]

Hallo Union,

erst einmal vielen Dank für Deine Hilfe, der Barcode-Scanner wurde mir vorgegeben, ich denke ich werde dann wohl irgendwo ein
Edit-Feld setzen in der der Barcode von Hand oder mit dem Barcode eingegeben werden kann.

Danke

juezi

[Union]

Was ist das für ein Modell?

[juezi]

Hallo,
es ist ein Sick Handscanner Typ IT3800LR-12

[Union]

Wie gesagt, die besseren Scanner kan man konfigurieren (über das Einlesen von Konfigurations-Barcodes) so dass sie einen Präfix senden. Auf diesen könntest Du dann einen Hotkey legen oder es im OnKeyDown handlen. Den folgenden Code liest Du dann mit TimeOut ein.

[juezi]

Hallo,

was verstehst Du unter einem HotKey, ich bin im Delphi nicht so fit. Ich hab inzwischen mal mit einem Editfeld probiert,
geht so weit ganz gut, nur wenn der cursor auf einem anderen Editfeld steht hab ich leider verloren.

Danke

[juezi]

Hallo,

kann man nicht irgendwie dauernd die Tastatur abfragen, egal wo der cursor steht, denn wenn der Barcode gescannt wird kommt entweder eine 10- oder 12-stellige Zahl?

Danke

[Union]

In einem Delphi Form kannst Du die Eigenschaft KeyPreview auf true setzen. Dadurch werden die Tastaturereignisse zuerst vom Formular verarbeitet. Du kannst dann einen OnKeyDown Event des Formulars erzeugen und dort auf jede Taste reagieren.

[juezi]

Hallo,

entschuldige das ich nicht so gut folgen kann, ich habe das KeyPreview auf true gesetzt, dann habe ich das Event
KeyDown vom Formular genommen, jetzt möchte ich diesen Barcode ganz einfach zum testen in einem Label ausgeben.

Was muss ich dem Label zuordnen wenn ich die procedure unten verwende?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.Caption:=
end;

Vielen Dank