Stregkodelæser

Når du scanner foreksempel ind i wordpad eller etlign. for du da hele stregkoden?

Hvilket format får du din streg kode ind i ?

Jens B

formattet er Ean13 og ja hvis jeg scanner i f.eks wordpad kommer hele stregkoden frem...

De stregkodelæsere jeg har set virker bare på den måde at de aflæser koden og sender det som tastetrykm, dvs du skal bare læse keyboard-indput. Jeg er ikke delphi programmør, så hvordan du rent praktisk læser fra tastaturet ved jeg ikke.

Den stregkodelæser jeg har læser hele strengen efterfulgt af CR-LF. No hanky-panky.

Det virker som om delphi kun registrerer den første værdi som et tastetryk - hvilket sådan set også er godt nok hvis jeg bare kunne få fat i resten på en eller anden måde...

Jammen i den buffer du får ind kan du ikke bare selv dicefere den +

Jens B

Jens B - hvordan gør man det??

Der ligger et program her: http://www.kobira.co.jp/sakura/d_print.htm

Det hedder fbarcode.zip. Der kan du muligvis se hvordan det gøres.

Den demo der er med hvad kan den ?

Jens B

Powell så vidt jeg kan se er det et program til at lave stregkode billeder ud fra indtastede tal..

http://delphi.icm.edu.pl/ftp/d10free/barnosrc.zip

Stregkode læser til ean13

Jens B

Flere :

http://members.yline.com/~wkoranda/deltools.htm
http://www.ozemail.com.au/~mtntop/inde2.htm
http://www.kopr.cz/w-delphi.htm
http://dsp.mundodelphi.com.br/newl/midxd50f.htm


JEns B

Fandt selv løsningen med en keypress event. Koden var rimelig simpel :

procedure TFormMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) then begin
    Findproduktmedstregkode(Stregkode);
    Stregkode := \'\';
  end else
  if Key in [\'a\'..\'z\', \'A\'..\'Z\', \'0\'..\'9\'] then
  Stregkode := Stregkode + Key;
end;