(紧急求救)请问在Delphi中如何使用扫描枪取得条形码?

Question

我想编一个程序,程序中需要扫描条形码,据说扫描枪的编程和对键盘的差不多，但是我却还是不懂.请高手指点一二,最好给点源代码给小的。我不胜感激,一定给大分.

Answer 1

谢谢楼上的。
我曾经在OnKeyDown ,OnKeyPress,OnKeyUP事件中来取得它的条形码。但是只能取道开头或者结尾的一个字符。有什么办法可以都取到呢？

Answer 2

OnKeyPress事件中var str: String;if Key = #13 then
begin
  str := Edit1.Text;
  ShowMessage('条形码为：'+str);
end;