检测ID卡的输入或者是其它卡的输入。
来源:互联网 发布:python choice 编辑:程序博客网 时间:2024/06/15 23:59
由于ID卡或者是其它的一些不同类型的卡,它们只是负责模拟键盘的录入,但是,它们在录入的时候没有一个很好的标识位可以让我们知道当前输入的是客户手工录入的字符串还是ID卡读入的字符串,我相信,很多人在做这样的开发时应该都遇到过这种郁闷的事,有些人的做法呢,就是在特定的位置录入字符串就算是ID卡的读取了,我想,这样的方法很多人都不喜欢的了,感觉很不科学。因此,这模块就是应这种要求而设计的,可以让你在任何情况下,应该说,限制很少的情况下,满足了题目的要求。废话不多说,先看看模块代码:
interface
uses
Windows,Dialogs;
type
TIDCheckOKEvent = procedure (IDCheckResult:string) of object;
TIDCheck=class(TObject)
protected
m_INTCheck:array of integer;//结果的检测用
m_TimeCheck:array of integer;//时间的检测用
m_Begin:integer;//检测录入的字符第一个开始时间。
m_MaxTime:Smallint;//超出该时间证明不是ID的录入时间范围
m_Length:integer;//读取长度
m_LastResult:string;//上一次读取的结果
FOnIDCheck: TIDCheckOKEvent;
FOnIDCheck_SP: TIDCheckOKEvent;
procedure DoClear;//当检测到符合清空条件的,则还原所有变量
function CheckID:Boolean;
function GetIDResult:string;
procedure DoAddKey(var key:integer);//符合条件的进行处理。
procedure SetOnIDCheckResult_SP(value:TIDCheckOKEvent);
public
function KeyDownCheck(var key:integer):string;
property IDLength:integer read m_Length;
property IDResult:string read GetIDResult;
property LastResult:string read m_LastResult;
constructor Create(MaxTime:integer=50;Length:integer=10);
destructor Destroy; override;
procedure APPIntercept(var Msg:TMsg;var Handled:Boolean);//截取程序的消息,改为自己的截取过程
property OnIDCheckResult: TIDCheckOKEvent read FOnIDCheck write FOnIDCheck; //默认的事件
property OnIDCheckResult_SP: TIDCheckOKEvent read FOnIDCheck_SP write SetOnIDCheckResult_SP;//特殊事件,当特殊事件存在时不会去执行默认事件的。
end;
var
IDCheckObj:TIDCheck;
implementation
uses
Forms,StdCtrls,Messages;
procedure TIDCheck.APPIntercept(var Msg: TMsg; var Handled: Boolean);
var
aStr:string;
begin
if Msg.message=WM_KEYDOWN then
begin
aStr:=KeyDownCheck(Msg.wParam);
if length(aStr)>0 then
begin
Msg.wParam:=0;
end
else //没有完整返回ID的检测,下面是一些比较特殊的处理。
begin
if ((m_TimeCheck[1]>0) and (m_TimeCheck[1]<=m_MaxTime) and not (Screen.ActiveForm.ActiveControl is TCustomEdit)) then
Msg.wParam:=0;
end;
//下面是屏蔽数字的快捷键的,因此数字快捷键必须使用数字键盘
if ((Msg.wParam>=48) and (Msg.wParam<=57)) then
if not (Screen.ActiveForm.ActiveControl is TCustomEdit) then
Msg.wParam:=0;
end;
end;
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);
DoClear;
end;
destructor TIDCheck.Destroy;
begin
Finalize(m_INTCheck);
Finalize(m_TimeCheck);
inherited;
end;
procedure TIDCheck.DoAddKey(var key: integer);
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_TimeCheck[i]:=-1;
end;
m_Begin:=0;
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:integer):string;
var
aStr:string;
i:integer;
begin
result:='';
case key of
48..57:DoAddKey(key);
13:begin
if checkid then //检测到结果则把结果返回
begin
result:=GetIDResult;
m_LastResult:=result;
if Screen.ActiveForm.ActiveControl is TCustomEdit then
begin
aStr:=TCustomEdit(Screen.ActiveForm.ActiveControl).Text;
Delete(aStr,length(aStr)-IDLength+1,IDLength);
i:=TCustomEdit(Screen.ActiveForm.ActiveControl).SelStart;
TCustomEdit(Screen.ActiveForm.ActiveControl).Text:=aStr;
TCustomEdit(Screen.ActiveForm.ActiveControl).SelStart:=i;
end;
if assigned(OnIDCheckResult_SP) then
OnIDCheckResult_SP(result)
else
begin
if assigned(FOnIDCheck) then
FOnIDCheck(result);
end;
DoClear;//清空重新处理。
end
else
DoClear;//清空重新处理。
end;
else//非数字的要清空并重新处理
DoClear;
end;
end;
procedure TIDCheck.SetOnIDCheckResult_SP(value: TIDCheckOKEvent);
begin
FOnIDCheck_SP:=value;
DoClear;
end;
initialization
IDCheckObj:=TIDCheck.Create;
finalization
IDCheckObj.Free;
end.
下面是它的使用方法:(对象不用创建的,引用了该模块就可以使用,应该它在模块引用的时候就已经创建出来的了。)
Application.OnMessage:=IDCheckObj.APPIntercept;(首先这里设置截获应用程序的消息。)
IDCheckObj.OnIDCheckResult:=OnIDCheckReturn;(设置检测到ID卡读取后要执行的事件。)
调用的方法就是这么简单了。
下面的是特殊情况下调用的方法:
IDCheckObj.OnIDCheckResult_SP:=OnIDCheckReturn;(OnIDCheckResult是默认的执行事件,如果你在某个窗体里面要求检测到ID卡读取后执行比较特殊的事件,而不执行默认事件的话,就要设置这个事件了,记得窗体不再激活的时候要把它设置为NULL哦,否者,其它地方会执行OnIDCheckResult_SP这个事件的)
介绍一个这个事件过程是如何定义的:procedure OnIDCheckReturn(IDCheckResult:string);
下面是我的默认事件所执行的过程,可以参考一下:
procedure TMainForm.OnIDCheckReturn(IDCheckResult: string);
var
frm_IDCardCon:Tfrm_IDCardControl;
begin
frm_IDCardCon:=Tfrm_IDCardControl.Create(IDCheckResult);
if frm_IDCardCon.VIP_NO<>'' then
frm_IDCardCon.ShowModal
else
frm_IDCardCon.Free;
end;
IDCheckResult:就是检测到的那串字符串。我这里是检测到就弹出窗体。不知道我这东西是否适合大家使用呢?不管适用与否,我都已经用在客户那里啦,反应挺好的。
原创作品出自努力偷懒,转载请说明文章出处:http://blog.csdn.net/kfarvid或 http://www.cnblogs.com/kfarvid/
- 检测ID卡的输入或者是其它卡的输入。
- 用javascript检测输入的只能是汉字,字母或者数字,并且长度为4
- 检测输入的是几位数
- JS判断输入的是金额或者数字
- 如何检测用户输入的是ESC键还是方向键?
- 检测输入框中是否是合法的IP地址
- 如何检测input框里面输入的全是数字
- 区别输入的字符是英文的还是中文 或者是 特殊字符
- 【学习笔记】判断输入的一个字符 是字母 还是数字 或者是空格
- 【C#基础】输入一个字符,判定它是什么类型的字符(大写字母,小写字母,数字或者其它字符)
- JS正则表达式 验证 输入的是正负小数(保留3位小数)或者只能输入正负整数
- Andoid自动判断输入是电话,网址或者Email的方法----Linkify的应用!
- Andoid自动判断输入是电话,网址或者Email的方法----Linkify的应用!
- Andoid自动判断输入是电话,网址或者Email的方法----Linkify的应用!
- Andoid自动判断输入是电话,网址或者Email的方法----Linkify的应用!
- Andoid自动判断输入是电话,网址或者Email的方法----Linkify的应用!
- android 联系人从SIM卡导入的联系人号码是显示“其它”号码不是“手机或者电话”号码
- JS的正则表达式判断输入框内为中文或者是英文数字
- 使用DirectShow播放AMR文件
- JS时间格式化工具类
- JS解析,格式化日期
- 文件夹删除不掉怎么办?http://www.blueidea.com/computer/system/2007/4496.asp
- JS格式化数字显示格式
- 检测ID卡的输入或者是其它卡的输入。
- 8-Hibernate 2.x 升级到 Hibernate 3.x
- 2008-2-24大盘分析
- 这里打算写一些平时编程的感想:)
- strlen源码剖析
- 鱼溺水而亡
- 程序设计一定不要忘了“设计”两字
- 为什么博客不可以粘贴?》
- 开始学习C++的实质——类