本方法只针对的是华视cvr-100UC 二代身份证读卡。
只是写了主要的部分,可以把函数等放入公共文件中,引用,调用即可。剩下的自己琢磨吧!
先定义个机构:
TPsnMsg = record
PeoName: string; //姓名
PeoSex: string; //性别
PeoFolk: string; //
PeoBirthday: string; //生日
PeoAddress: string; //地址
PeoIDNumber: string; //身份证号
PeoDepartment: string; //发证机关
PeoStartDate: string; //起止日期
PeoEndDate: string;
PeoReserve: string;
paddaddress1: string;
m_szphoto: array [0..1023] of char;
end;
以下是函数:
function GetPsnMsg_100UC(iPort:integer):TPsnMsg;
var
iRet, iTimeOut :integer;
TimeCurr, TimeDelay:int64;
iFileHandle,iFileLength: Integer;
Buffer: PWideChar;
sWZ :WideString;