Delphi 身份证读取。弹出窗体【附上全部代码】
unit Main_U;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OBThread, jpeg, StdCtrls, ExtCtrls,IDCardClass_U;
type
TIDCardRead_F = class(TForm)
img_Cover: TImage;
obthrd_ReadID: TOBThread;
lbl_Info: TLabel;
lbl_Con: TLabel;
BtnGlyph_Read: TImage;
BtnGlyph_UnRead: TImage;
ID_Addr: TLabel;
ID_Birth: TLabel;
ID_Depart: TLabel;
ID_ID: TLabel;
ID_Name: TLabel;
ID_Nation: TLabel;
ID_NewAddr: TLabel;
ID_Sex: TLabel;
ID_Time: TLabel;
Image_XP: TImage;
ImageClose: TImage;
ImageMin: TImage;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ImageCloseClick(Sender: TObject);
procedure obthrd_ReadIDExecute(Sender: TObject; params: Pointer);
procedure BtnGlyph_ReadClick(Sender: TObject);
procedure BtnGlyph_UnReadClick(Sender: TObject);
procedure ImageMinClick(Sender: TObject);
procedure img_CoverMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
UsbOrCom: string;
Port,pucSn,puiCHMsgLen,puiPHMsgLen: integer;
StartReadID,PortEnable: Boolean;
IDCard: TIDCard;
procedure ReadIDCard();//读身份证
{ Private declarations }
public
{ Public declarations }
end;
var
IDCardRead_F: TIDCardRead_F;
implementation
uses IDCardDll_U ;
{$R *.dfm}
procedure TIDCardRead_F.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
IDCard.Destroy;
StartReadID:= False;
if PortEnable then
SDT_ClosePort(Port);
end;
procedure TIDCardRead_F.FormCreate(Sender: TObject);
begin
IDCard:= TIDCard.Create;
PortEnable:= OpenUsbPort(Port);
if PortEnable then
begin
UsbOrCom:= 'U';//连接的类型是通过Usb端口
lbl_Con.Caption:= '连接类型：USB口连接';
lbl_Con.Font.Color:= clGreen;
end
else begin
PortEnable:= OPenComPort(Port);
if PortEnable then
begin
UsbOrCom:= 'C' ; //连接的类型是通过Com端口
lbl_Con.Caption:= '连接类型：串口连接';
lbl_Con.Font.Color:= clGreen;
end
else begin
UsbOrCom:='';
lbl_Con.Caption:= '连接类型：端口错误导致未连接';
lbl_Con.Font.Color:= clRed;
end;
end;
if not PortEnable then
BtnGlyph_Read.Enabled:= False;
StartReadID:= True;
if (StartReadID) and (PortEnable) then
BtnGlyph_ReadClick(nil);
end;
procedure TIDCardRead_F.ImageCloseClick(Sender: TObject);
begin
Close;
end;
procedure TIDCardRead_F.ReadIDCard;
var
iRet : integer;
begin
while (PortEnable) and (StartReadID) do
begin
Sleep(1000);
iRet:= SDT_StartFindIDCard(Port, pucSn, 1); //查卡
if iRet = 159 then
iRet:= SDT_SelectIDCard(Port,pucSn,1) //选卡
else Continue;
if iRet= 144 then
begin
puiCHMsgLen:=0;
puiPHMsgLen:=0;
iRet:= SDT_ReadBaseMsgToFile(1001, 'wz.txt',puiCHMsgLen, 'zp.wlt',puiPHMsgLen,1); //存储文件
end
else Continue;
if iRet =144 then
begin
UsbOrCom:='U';//连接的类型是通过Usb端口
if UsbOrCom ='U' then
iRet := GetBmp('zp.wlt',2)
else if UsbOrCom='C' then //如果连接的类型是Com端口
iRet := GetBmp('zp.wlt',1);
想在这里判断数据库内是否存在这个身份证信息。如果存在打开一个窗体显示信息
if iRet=1 then
begin
Image_XP.Picture.LoadFromFile('zp.bmp');
IDCard.InitInfo(ExtractFilePath(Application.ExeName) +'wz.txt');
ID_Name.Caption:= IDCard.Name;
ID_Sex.Caption:= IDCard.Sex_CName;
ID_Nation.Caption:= IDCard.NATION_CName;
ID_Birth.Caption:= IDCard.BIRTH;
ID_Addr.Caption:= IDCard.ADDRESS;
ID_ID.Caption:= IDCard.IDC;
ID_Depart.Caption:= IDCard.REGORG;
ID_Time.Caption:= IDCard.STARTDATE +'-'+IDCard.ENDDATE;
DeleteFile('zp.bmp');
DeleteFile('wz.txt');
end
else Continue;
end;
end;
end;
procedure TIDCardRead_F.obthrd_ReadIDExecute(Sender: TObject;
params: Pointer);
begin
ReadIDCard ;
end;
procedure TIDCardRead_F.BtnGlyph_ReadClick(Sender: TObject);
begin
StartReadID:= True;
BtnGlyph_Read.Visible:= False;
BtnGlyph_UnRead.Visible:= True;
obthrd_ReadID.Execute(nil);
end;
procedure TIDCardRead_F.BtnGlyph_UnReadClick(Sender: TObject);
begin
BtnGlyph_Read.Visible:= True;
BtnGlyph_UnRead.Visible:= False;
StartReadID:= False;
end;
procedure TIDCardRead_F.ImageMinClick(Sender: TObject);
begin
IDCardRead_F.WindowState:= wsMinimized;
end;
procedure TIDCardRead_F.img_CoverMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then
Releasecapture;
perform(WM_SYSCOMMAND,$F012,0);
end;
end.
{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
unit OBThread;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls;
type
TNotifyEventParams=procedure(Sender : TObject; params : pointer) of object;
TOBThread = class(TComponent)
private
FThreadCount : Integer;
FExclusif : boolean;
FRunOnCreate : boolean;
FOnbegin : TNotifyEvent;
FOnExecute : TNotifyEventParams;
FOnFinish : TNotifyEvent;
FOnFinishAll : TNotifyEvent;
FFreeOnTerminate : boolean;
FAbout: String;
procedure DoCreate;
procedure DoTerminate(Sender : TObject);
protected
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
published
function Execute(p : pointer):Thandle;
function OneThreadIsRunning : boolean;
function GetPriority(Thread:Thandle):TThreadPriority;
procedure SetPriority(Thread:THandle;Priority:TThreadPriority);
procedure QuitThread(Thread:Thandle);
procedure Suspend(Thread:Thandle);
procedure Resume(Thread:Thandle);
property About : String read FAbout write FAbout;
property Exclusif : boolean read FExclusif write FExclusif;
property RunOnCreate : boolean read FRunOnCreate write FRunOnCreate;
property FreeOnTerminate : boolean read FFreeOnTerminate write FFreeOnTerminate;
property Onbegin : TNotifyEvent read FOnbegin write FOnBegin;
property OnExecute : TNotifyEventParams read FOnExecute write FOnExecute;
property OnFinish : TNotifyEvent read FOnFinish write FOnFinish;
property OnFinishAll : TNotifyEvent read FOnFinishAll write FOnFinishAll;
end;
TOBHideThread = class(TThread)
private
FExecuteEvent : TNotifyEventParams;
FParams : pointer;
public
constructor Create(event : TNotifyEventParams; params : pointer); virtual;
procedure Execute; override;
end;
procedure Synchronize(Method: TNotifyEvent);
procedure SynchronizeParams(Method: TNotifyEventParams; p : pointer);
implementation
var
mtx : THandle;
procedure Synchronize(Method : TNotifyEvent);
begin
WaitForSingleObject(mtx, INFINITE);
Method(nil);
ReleaseMutex(mtx);
end;
procedure SynchronizeParams(Method : TNotifyEventParams; p : pointer);
begin
WaitForSingleObject(mtx, INFINITE);
Method(nil, p);
ReleaseMutex(mtx);
end;
constructor TOBThread.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FThreadCount:=0;
FRunOnCreate:=true;
FExclusif:=true;
FreeOnTerminate:=true;
end;
destructor TOBThread.Destroy;
begin
inherited Destroy;
end;
function TOBThread.Execute(p : pointer):Thandle;
var
HideThread : TOBHideThread;
begin
result:=0;
if Assigned(FOnExecute) then
begin
if Exclusif then
if OneThreadIsRunning then exit;
inc(FThreadCount);
HideThread:=TOBHideThread.Create(FOnExecute, p);
HideThread.FreeOnTerminate:=FFreeOnTerminate;
HideThread.OnTerminate:=DoTerminate;
DoCreate;
if FRunOnCreate then
HideThread.Resume;
result:=HideThread.ThreadID;
end;
end;
function TOBThread.GetPriority(Thread:Thandle):TThreadPriority;
begin
result:=tpIdle;
if Thread<>0 then result:=TThreadPriority(GetThreadPriority(thread));
end;
procedure TOBThread.SetPriority(Thread:THandle;Priority:TThreadPriority);
begin
SetThreadPriority(Thread,integer(priority));
end;
procedure TOBThread.QuitThread(Thread:Thandle);
begin
TerminateThread(Thread,0);
end;
procedure TOBThread.Suspend(Thread:Thandle);
begin
SuspendThread(Thread);
end;
procedure TOBThread.Resume(Thread:Thandle);
begin
ResumeThread(thread);
end;
procedure TOBThread.DoCreate;
begin
if Assigned(FOnBegin) then
FOnBegin(nil);
end;
procedure TOBThread.DoTerminate;
begin
dec(FThreadCount);
if Assigned(FOnFinish) then
FOnFinish(nil);
if FThreadCount=0 then
if Assigned(FOnFinishAll) then
FOnFinishAll(nil);
end;
function TOBThread.OneThreadIsRunning : boolean;
begin
result:=FThreadCount>0;
end;
{*****************************************************}
constructor TOBHideThread.Create(event : TNotifyEventParams; params : pointer);
begin
inherited Create(true);
FExecuteEvent:=event;
FParams:=params;
end;
{*****************************************************}
procedure TOBHideThread.Execute;
begin
FExecuteEvent(nil, FParams);
end;
{*****************************************************}
initialization
mtx:=CreateMutex(nil, false, 'VCLJvThreadMutex');
finalization
CloseHandle(mtx);
end.