Einzelnen Beitrag anzeigen

bronstein84

Registriert seit: 7. Mai 2007
1 Beiträge
 
#1

Scanner Steuerzeichen fehlen

  Alt 8. Nov 2021, 11:28
Guten Tag,
ich habe einen Barcode mit Steuerzeichen RS, GS, EOT

Wenn ich diesen im NotPad++ einscanne werden diese auch angezeigt
Scanne ich diese in ein TEdit sind die Zeichen nicht da

Wollte den Text trennen, sl.count ist aber immer eins:
Code:
procedure TfrmMain.Edit12KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  tmpStr: String;
  sl: TStringList;
  I: Integer;
begin
  if Key = 13  then //Return
  begin
    sl := TStringList.Create;
    sl.StrictDelimiter := true;
    sl.Delimiter := #29;
    sl.DelimitedText := Edit1.Text;

Nehme ich den eingesannten Code aus NotePad++ und füge diesen via Copy and Paste in das TEdit Feld erscheinen die Daten


Zusammengefasst direktes einscannen in TEdit geht nicht. Scannen in NotePad++ und dann in das TEdit einfügen geht

Jemand eine Idee, der Scanner ist via USB angeschlossen und verhält sich eigentlich ja nur wie eine Tastatur
  Mit Zitat antworten Zitat