ID卡读取方法（用于区分ID卡读取出来的数据和一般人手录入的数据）
ID卡的读取方式其实是模拟一个键盘的录入而已，很简单，现在这个ID卡读取方法是为了在任何情况下把它正确读取出来的方法，例如你在tedit控件里面，当读取了ID卡时，会和其它数据混在一起，而我这种方法，能正确地读取出ID卡的正确数据，如果你同时快速按键盘又同时读取ID卡时，它是不会读出数据的，这样是为了防止读出来的数据不正确。不多说，下面是代码，还有测试用的代码一起的，我就不改了，大家可参考一下：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TIDCheck=class( TObject) protected m_INTCheck:array of integer;//结果的检测用 m_TimeCheck:array of integer;//时间的检测用 m_INT:array of integer; //真实保存的结果(没用) m_Time:array of integer; //真实保存的时间间隔(没用) m_Begin:integer;//检测录入的字符第一个开始时间。 m_MaxTime:Smallint;//超出该时间证明不是ID的录入时间范围 m_Length:integer;//读取长度 m_LastResult:string;//上一次读取的结果 procedure DoClear;//当检测到符合清空条件的，则还原所有变量 function CheckID:Boolean; function GetIDResult:string; procedure DoAddKey(var key:word);//符合条件的进行处理。 public aForm:TForm; function KeyDownCheck(var key:word):string; property IDResult:string read GetIDResult; property LastResult:string read m_LastResult; constructor Create(MaxTime:integer=30;Length:integer=10); destructor Destroy; override; end; TForm1 = class(TForm) Timer1: TTimer; Memo1: TMemo; Edit1: TEdit; procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormShow(Sender: TObject); private { Private declarations } m_End,m_first:integer; IDTest:TIDCheck; public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}function TIDCheck.CheckID: Boolean;begin if m_INTCheck[m_Length-1]<0 then result:=false else result:=true;end;constructor TIDCheck.Create(MaxTime: integer;Length:integer);begin m_MaxTime:=MaxTime; m_Length:=Length; SetLength(m_INTCheck,m_Length); SetLength(m_TimeCheck,m_Length); SetLength(m_INT,m_Length); SetLength(m_Time,m_Length); DoClear;end;destructor TIDCheck.Destroy;begin Finalize(m_INTCheck); Finalize(m_TimeCheck); Finalize(m_INT); Finalize(m_Time); inherited;end;procedure TIDCheck.DoAddKey(var key: word);var i:Smallint;begin for i:=0 to m_Length-1 do if m_INTCheck[i]<0 then begin m_INTCheck[i]:=key; m_TimeCheck[i]:=GetTickCount-m_Begin; m_Begin:=GetTickCount; break; end; if i=m_Length then//没有空间记录，把所有数据前移并把新的放在最后一位。 begin for i:=1 to m_Length-1 do begin m_INTCheck[i-1]:=m_INTCheck[i]; m_TimeCheck[i-1]:=m_TimeCheck[i]; end; m_INTCheck[m_Length]:=key; m_TimeCheck[m_Length]:=GetTickCount-m_Begin; m_Begin:=GetTickCount; end; if (m_TimeCheck[i]>=m_MaxTime) and (i>0) then //超出ID卡读取范围则清空 DoClear;end;procedure TIDCheck.DoClear;var i:integer;begin for i:=0 to m_Length-1 do begin m_INTCheck[i]:=-1; m_INT[i]:=-1; m_TimeCheck[i]:=-1; m_Time[i]:=-1; end; m_Begin:=0; aForm.Caption:=aForm.Caption+'clear';end;function TIDCheck.GetIDResult: string;var i:Shortint;begin if CheckID then begin for i:=0 to m_Length-1 do result:=result+char(m_INTCheck[i]); end;end;function TIDCheck.KeyDownCheck(var key:word):string;begin result:=''; case key of 48..57:DoAddKey(key); 13:begin if checkid then //检测到结果则把结果返回 begin result:=GetIDResult; m_LastResult:=result; DoClear;//清空重新处理。 end else DoClear;//清空重新处理。 end; else//非数字的要清空并重新处理 DoClear; end;end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);var aStr:string;begin{ if key=13 then begin m_end:=GetTickCount; memo1.Lines.Add('结束：'+inttostr(m_end-m_first)); m_first:=0; end else begin if m_first=0 then begin m_first:=GetTickCount; memo1.Lines.Add('开始'); end; end; if key=13 then begin m_first:=0; exit; end; if m_first=0 then begin m_first:=GetTickCount; end else begin memo1.Lines.Add('Key:'+char(key)+'keyCode'+inttostr(key)+'时间：'+inttostr(GetTickCount-m_first)); m_first:=GetTickCount; end;} aStr:=IDTest.KeyDownCheck(key); if length(aStr)>0 then begin// memo1.Lines.Add(aStr); key:=0; end;{ if self.ActiveControl is TEdit then TEdit(self.ActiveControl).Text:=;}end;procedure TForm1.FormShow(Sender: TObject);begin memo1.Clear; m_End:=0; m_first:=0; IDTest:=TIDCheck.Create; IDTest.aForm:=self;end;end.
原创作品出自努力偷懒，转载请说明文章出处：http://blog.csdn.net/kfarvid或 http://www.cnblogs.com/kfarvid/
