Hallo zusammen,

ich brauche eure Hilfe beim Auswerten des FNC1/GS1 Trennzeichens/Application Identifiers im Data Matrix Code.

Ich scanne den Data Matrix Code eines Artikels in ein Editfeld, aber kann es weder per OnKeyDown

markieren

Code:

edit17.text := stringreplace(edit17.Text, #$1D, '#',[rfReplaceAll])

auswerten, noch das Trennzeichen im Editfeld sehen.
Man sieht dann 01000000022420491720020010294420621DC175267703399 im Editfeld. Nehme ich Notepad2 sehe ich 010000000224204917200200102944206(GS)21DC175267703 399 alles korrekt.
Kann mir jemand helfen?

Hmm..

Da das $1D kein 'visuelles' Zeichen hat, kommt es beim Edit auch nicht zur Anzeige und somit nicht in den String.

Gehe mal hin und verwende OnKeyDown zur Konvertierung in ein Anzeigbares...

markieren

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = $1D then Key := Ord('#');
end;

Damit würde das (GS) durch ein Anzeigbares # ersetzt, für später sollte aber ein Zeichen verwendet werden, welches Lt. GS1 Spezifikation nicht in einem dynamischen String vorkommen darf.

Das Notepad2 ersetzt für die Anzeige das Zeichen durch '(GS)' als Platzhalter..

markieren

Code:

  if Key = $1D then Key := Ord('#');

funktioniert leider nicht.

Also das Ersetzen durch die # bekomme ich hin, die Quizfrage ist nur:
Wie kann ich den DM Code vom Scanner direkt in eine Variable schreiben?
Denn scanne ich erst ins Editfeld und kopiere den Text dann in eine Varibale, wird das Trennzeichen nicht mitkopiert (klar, ist ja sicht sichtbar).

Wenn ich aus dem Notepad2 diesen einen DM Code ins Edit rein und wieder raus kopiere, bleibt das GS Trennzeichen erhalten.
Scanne ich den gleichen DM Code per Scanner ein, und kopiere es raus ins Notpad2, sehe ich kein GS Trennzeichen.
Das bedeutet, dass das Edit irgendetwas mit dem Scantext macht, wenn man einscannt. Es aber nicht macht, wenn man kopiert.
Deswegen muss ich das DM Code vom Scanner irgendwie ums Edit herum bekommen, dann verarbeiten und dann erst anzeigen. Und da habe ich gerade eine Denkblockade...

Hmm..

Eigentlich sollten alle Chars bei OnKeyDown am Edit ankommen, auch Steuerzeichen, sprich Chars < #32.
Bis Du dir sichen, das auch wiklich $1D vom Scanner gesendet wird ?

Tausche mal OnKeyDown gegen aus:

markieren

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key < 32 then Key := Ord('#');
end;

Dann sollten alle Steuerzeichen als # ausgegeben werden (auch das abschließende #13)


Alternativer Weg:
Welchen Scanner nutzt Du denn?

Die meisten können umkonfiguriert werden und haben die Option statt des $1d gleich ein 'sichtbares' ASCII-Zeichen für das FNC einzusetzen.

Das mit dem Umkonfigurieren geht leider nicht, da ich nur Drittanbieter wäre. Die hängen an einem WaWi-System dran...

Was micht etwas wundert:

markieren

Code:

if Key < 32 then Key := Ord('#');

ignoriert er komplett. Auch auf der Tastatur kann ich
enter oder alt etc drücken und er zeigt keine # an. Ist sehr dubios...

Ist ein Honeywell ms7580.

Zitat:

Bis Du dir sichen, das auch wiklich $1D vom Scanner gesendet wird ?

jep. ich habe den Artikel ins Notepad2 gescannt. Da wird das Trennzeichen sichtbar.
Es muss am Edit liegen...

Nimm ein Memo-Feld oder gar kein Eingabe-Control und lese die Daten per Form.KeyPress ein oder lese die Daten direkt vom USB Device, bereite diese auf wie benötigt und schreibe diese dahin wo benötigt.

Und dann gibt es noch https://docs.microsoft.com/de-de/win...device-support

Hmm..

Packe Dir mal nen Memo neben das Edit und schreib im OnKeyDown den HexWert des Keys ins Memo, somit solltest Du alle Zeichen erhalten und kannst erkennen, was der Scanner schickt...
Eventuell statt OnKeyDown das OnKeyPress verwenden...