Akses barcode dengan delphi

Fungsi barcode sama dengan keyboard, bedanya otomatis... jadi aplikasinya cuma beda pada event.


setiap akhir dari pembacaan barcode akan ditambahi dengan karakter enter (#13)




setiap discan object barcodenya langsung otomatis membaca code dan umumnya langsung memberi perintah chr 13 (seperti fungsi tombol enter di keyboard), sehingga kita tinggal menambahkan statement kode pada event OnKeyPress-nya.



procedure TFUtama.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key= #13 then
begin
edit2.Text:='akhir data barcode sudah terdeteksi';
end;
end; KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI