<div dir="ltr">I'm using CodeTyphon 4.10 on ubuntu mint 14 desktop (x86-64)<div>- CodeTyphon 4.10 = FPC 2.7.1, Lazarus 2013-03-25 SVN 40461CT x86_64-linux-gtk2</div><div><br><div style>Barcode reader is MOTOROLA DS3578 with FIPS model (configed HID Keyboard Emulation, USB Type)</div>
<div style><br></div><div style>I make reader code using TForm.KeyPreview property.</div><div style><br></div><div style>1. There is main form. (Keypreview := True)</div><div style>2. Make OnKeyPress event handler</div><div style>
3. Read a sample QRCode ( <a href="http://localhost/qrcode/Test_2012/A001">http://localhost/qrcode/Test_2012/A001</a> )</div><div style>4. OnKeyPress missing some characters.</div><div style>    -> Readed -> <a href="http://localhost/qrcode/est2012/001">http://localhost/qrcode/est2012/001</a></div>
<div style>    -> Missed capital character(T, A) and under bar character(_)</div><div style>    -> Lower case character is no problem.</div><div style><br></div><div style>When I read barcode(qrcode) focus to text editor like pluma, qrcode data is inserted correctly without missing characters.</div>
<div style><br></div><div style>Here is test project main form unit source code:</div><div style><br></div><div style>//----------------------------------- SAMPLE CODE</div><div style><div>unit Unit1;</div><div><br></div>
<div>{$mode objfpc}{$H+}</div><div><br></div><div>interface</div><div><br></div><div>uses</div><div>  Classes, SysUtils, FileUtil, ubarcodes, Forms, Controls, Graphics, Dialogs,</div><div>  StdCtrls, LCLType;</div><div><br>
</div><div>type</div><div>  { TForm1 }</div><div>  TForm1 = class(TForm)</div><div>    Button1: TButton;</div><div>    Button2: TButton;</div><div>    procedure Button1Click(Sender: TObject);</div><div>    procedure Button2Click(Sender: TObject);</div>
<div>    procedure FormCreate(Sender: TObject);</div><div>    procedure FormKeyPress(Sender: TObject; var Key: char);</div><div>  private</div><div>    FBuffer: string;</div><div>  public</div><div>    { public declarations }</div>
<div>  end;</div><div><br></div><div>var</div><div>  Form1: TForm1;</div><div><br></div><div>implementation</div><div><br></div><div>{$R *.lfm}</div><div><br></div><div>{ TForm1 }</div><div><br></div><div>procedure TForm1.FormCreate(Sender: TObject);</div>
<div>begin</div><div>  KeyPreview := True;</div><div>end;</div><div><br></div><div>procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);</div><div>begin</div><div>  FBuffer += Key;</div><div>end;</div><div><br></div>
<div>procedure TForm1.Button1Click(Sender: TObject);</div><div>begin</div><div>  ShowMessage(FBuffer);</div><div>end;</div><div><br></div><div>procedure TForm1.Button2Click(Sender: TObject);</div><div>begin</div><div>  FBuffer := '';</div>
<div>end;</div><div><br></div><div>end.</div><div><br></div></div><div style><div><br></div></div></div></div>