Schönen guten Tag!
Ich habe hier einen handelsüblichen USB-Barcodescanner, der einen Barcode mit erweitertem
ASCII-Zeichensatz liefert (EAN-128). Dazu habe ich mir eine Testanwendung mit Memofeld gebaut und einen Button, der den Scan in die Variable s schaufeln soll. Nach Scannen des Barcodes landet das Ergebnis im Editfeld und wird nach Klick auf einen Button in die Variabnle s befördert
s := mmScan.Text
Der Barcode enthält nun aber nicht nur Zahlen, sondern z.B. einen Group Separator D1 (Hex). Der wird natürlich im Edit-Feld nicht angezeigt und auch nicht in die Variable s geschrieben. Auch die folgende Funktion hilft da erwartungsgemäß nicht weiter
Delphi-Quellcode:
function WStrToHex(SourceStr: WideString): WideString;
var
hexstr: string;
i : integer;
begin
result := '';
hexstr := '';
for i := 1 to Length(SourceStr) do
hexstr := hexstr + ' ' +IntToHex(Word(SourceStr[i]), 2);
Result := hexstr;
end;
Wie komme ich nun an mein D1 (hex) ran?
Gruß aus dem trüben Braunschweig
Carsten