二代身份证读卡器接口函数Delphi声明

2019-11-06 08:21:27

字体：大中小

来源：转载

供稿：网友

查看串口当前波特率function SDT_GetCOMBaud(iport: integer; puiBaudRate: Pinteger): integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口，puiBaudRate[out]无符号指针，指向普通串口当前波特率，返回值0X90-成功，0x1-端口打开失败/端口号不合法，0x5无法获得SAM_V的波特率，串口不可用。}

设置SAM_V的串口的波特率function SDT_StetCOMBaud(iPort: integer; uiCurrBaud: integer; uiSetBaud: integer): integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口, uiCurrBaud[in]调用改API前已设置的业务终端与SAM_V通信的波特率(出厂默认为115200)uiCurrBaud只能为115200,57600,378400,19200,9600。如果uiCurrBaud数值不是这些值之一，函数返回0x21，如果和已设置的不一样，函数返回0x02表示不能设置调用API不成功。uiSetBaud[in]将要设置的SAM_V波特率,只能为(同上)那些值，如果不是这些数值，返回也同上函数返回0x90-成功，0x1-端口打开失败/端口号不合法，0x2-超时，设置不成功，0x21-uiCurrBaud、uiSetBaud输入参数数值错误}

打开串口/USBfunction SDT_OpenPort(iPort: integer): integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，1-16(十进制)为串口，1001-1016(十进制)为USB口，缺省的一个USB设备端口是1001。函数返回0x90-打开端口成功,1-打开端口失败/端口号不合法}

关闭串口/USBfunction SDT_ClosePort(iPort: integer): integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，返回值0x90-关闭串口成功，0x01-端口号不合法}

对SAM_V复位function SDT_ResetSAM(iPort: integer; ilfOpen: integer): integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，目前串口和USB只支持16个，串口：0001-0016，USB：1001-1016。ilfOpen[in]表示不在该函数内部打开和关闭串口，非0表示在API函数内部包含了打开串口和关闭串口函数，之前不需要调用SDT_OpenPort和SDT_ClosePort返回值0x90-成功，其他失败}

设置射频适配器最大通信字节数function SDT_SetMaxRFByte(iPort: integer;ucByte: Char;blfOpen: integer):integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，ucByte[in]无符号字符,24-255，表示射频适配器最大通信字节数，ilfOpen[in]参见SDT_ResetSAM返回值0x90-成功,其他-失败}

对SAM_V进行状态检测function SDT_GetSAMStatus(iPort: integer;ilfOpen: integer):integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，ilfOpen参见SDT_ResetSAM返回值0x90-SAM_V正常，0x60-自检失败，不能接收命令，其他-命令失败}

读取SAM_V的编号function SDT_GetSAMID(iPort: integer;pusSAMID: Pbyte;ilfOpen: integer):integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，pusSAMID[out]无符号字符串指针SAM_V编号，16字节，返回值0x90-成功，其他-失败}

读取SAM_V的编号function SDT_GetSAMIDToStr(iPort: integer;pcSAMID: Pbyte;ilfOpen: integer):integer;stdcall;External'SDTAPI.DLL';{iport[in]表示端口号，pusSAMID[out]SAM_V编号,ilfOpen[in]整数，参见SDT_ResetSAM返回值0x90-成功，其他-失败}

开始找卡function SDT_StartFindIDCard(iPort: integer;pucManaInfo: Pbyte; ilfOpen: integer):integer;stdcall;External'SDTAPI.DLL';{iport[in]表示端口号，pucManaInfo[out]无符号指针，证/卡芯片管理号，4个字节，ilfOpen[in]参见SDT_ResetSAM返回值0x9f-找卡成功，0x80-找卡失败}选卡function SDT_SelectIDCard(iPort: integer;pucManaMsg: Pbyte;ilfOpen: integer):integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，pucManaMsg[out]无符号指针，证/卡芯片序列号，8个字节，ilfOpen[in]参见SDT_ResetSAM返回值0x90-选卡成功，0x81-选卡失败}

读取卡体管理号function SDT_ReadMngInfo(iPort: integer;pucManageMsg: Pbyte;ilfOpen: integer):integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，pucManageMsg[out]无符号字符指针，卡体管理号，28字节，ilfOpen[in]返回值0x90-成功，其他-读失败}

读取证/卡固定信息function SDT_ReadBaseMsg(iPort: integer;pucCHMsg: Pbyte;puiCHMsgLen: Pinteger;pucPHMsg: Pbyte;puiPHMsgLen: Pinteger;ilfOpen: integer):integer;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，pucCHMsg[out]指向读到的文字信息，puiCHMsgLen[out]指向读到的文字信息长度pucPHMsg[out]指向读到的照片信息，puiPHMsgLen[out]指向读到的照片信息长度，ilfOpen[in]参见SDT_ResetSAM返回值0x90-读固定信息成功，其他读固定信息失败}

读取追加信息function SDT_ReadNewAppMsg(iPort: integer;pucAppMsg: Pbyte;puiAppMsgLen: Pinteger;ilfOpen: integer):integer;;stdcall;External'SDTAPI.DLL';{iPort[in]表示端口号，pucAppMsg[out]指向读到的追加信息，puiAppMsgLen[out]指向读到的追加信息长度，ilfOpen[in]参见SDT_ResetSAM返回值0x90-读取追加信息成功，其他-读取追加信息失败}

照片解码函数function GetBmp(Wlt_File: PChar,intf: integer):integer;stdcall;External'WltRS.dll';{Wlt_File-wlt文件名，intf阅读设备通讯接口类型(1-RS-232C,2-USB)返回值：生成*.bmp和以下返回信息:1-相片解码正确，0-调用sdtapi.dll错误,-1-相片解码错误，-2-wlt文件后缀错误，-3-wlt文件打开错误，-4-wlt文件格式错误，-5-软件未授权，-6-设备连接错误}

源代码：

unit IdReader;interfaceusesSysUtils,Windows,Forms,uDatabase;constDLL_SDTAPI = 'sdtapi.dll';DLL_WLTRS = 'WltRS.dll';//提示信息TIP_TITLE = '提示';TIP_ICREADER_NO_CARD = '未放卡或者卡未放好，请重新放卡！';TIP_ICREADER_READ_FAILED = '读卡失败！';TIP_ICREADER_CALL_DLL_FAILED = '调用sdtapi.dll错误！';TIP_ICREADER_PICTURE_DECODE_FAILED = '相片解码错误！';TIP_ICREADER_WLT_FILE_EXTEND_FAILED = 'wlt文件后缀错误！';TIP_ICREADER_WLT_FILE_OPEN_FAILED = 'wlt文件打开错误！';TIP_ICREADER_WLT_FILE_FORMAT_FAILED = 'wlt文件格式错误！';TIP_ICREADER_NO_LICENSE = '软件未授权！';TIP_ICREADER_DEVICE_FAILED = '设备连接错误！';TIP_PRINT_NO_CARD_FOUND = '未找到身份证相关信息，请将证件放在天线上后重试！';TIP_ICREADER_SAVE_SUCCESS = '保存成功，身份信息已自动录入本地数据库！';TIP_ICREADER_BLACK_CARD_FOUND = '发现黑名单内包括的人员！';ERROR_ICREADER_OPEN_PORT = '端口打开失败，请检测相应的端口或者重新连接读卡器！';typeTIdCardInfo = packed recordName: array[0..14] of WideChar;Sex : array[0..0] of WideChar;Nation: array[0..1] of WideChar;BirthDay:array[0..7] of WideChar;Addr : array[0..34] of WideChar;IdSN : array[0..17] of WideChar;IssueOrgan: array[0..14] of WideChar;VaildBegin: array[0..7] of WideChar;VaildEnd : array[0..7] of WideChar;theNewestAddr: array[0..34] of WideChar;end;function SDT_OpenPort(iPortID: Integer): Integer; stdcall; external DLL_SDTAPI name 'SDT_OpenPort';function SDT_ClosePort(iPortID: Integer): Integer; stdcall; external DLL_SDTAPI name 'SDT_ClosePort';function SDT_StartFindIDCard(iPortID: Integer; var pucIIN: Integer; iIfOpen: Integer): Integer; stdcall; external DLL_SDTAPI name 'SDT_StartFindIDCard';function SDT_SelectIDCard(iPortID: Integer; var pucIIN: Integer; iIfOpen: Integer): Integer; stdcall; external DLL_SDTAPI name 'SDT_SelectIDCard';function SDT_ReadBaseMsg(iPortID: Integer; pucCHMsg: PAnsiChar; var puiCHMsgLen: Integer; pucPHMsg: PAnsiChar; var puiPHMsgLen: Integer; iIfOpen: Integer): Integer; stdcall; external DLL_SDTAPI name 'SDT_ReadBaseMsg';function SDT_ReadBaseMsgToFile(iPortID: Integer; fileName1: PAnsiChar; var puiCHMsgLen: Integer; fileName2: PAnsiChar; var puiPHMsgLen: Integer; iIfOpen: Integer): Integer; stdcall; external DLL_SDTAPI name 'SDT_ReadBaseMsgToFile';function GetBmp(file_name: PAnsiChar; intf: Integer): Integer; stdcall; external DLL_WLTRS name 'GetBmp';function ReadICCard(var ACardInfo: TCardInfo; var AErrMsg: string): Boolean;implementationusesClasses, Dialogs, uResource;varLstEthnic: TStrings;function EthnicNoToName(ANo: string): string;beginResult:= LstEthnic.Values[ANo];end;function FormatDateStr(AValue: string): string;beginResult:= Copy(AValue, 1, 4) + '-' +Copy(AValue, 5, 2) + '-' +Copy(AValue, 7, 2);end;function ReadICCard(var ACardInfo: TIdCardInfo; var AErrMsg: string): Boolean;variPort: Integer;intOpenPortRtn: Integer;bUsbPort: Boolean;EdziPortID: Integer;iRet: Integer;pucIIN: Integer;EdziIfOpen: Integer;pucSN: Integer;puiCHMsgLen: Integer;puiPHMsgLen: Integer;fs: TFileStream;idCardInfo:TIdCardInfo;//FileHandle: Integer;beginAErrMsg:= '';//Result:= False;bUsbPort:= False;EdziIfOpen:= 1;EdziPortID:= 0;puiCHMsgLen:= 0;puiPHMsgLen:= 0;//检测usb口的机具连接，必须先检测usbfor iPort := 1001 to 1016 dobeginintOpenPortRtn:= SDT_OpenPort(iPort);if intOpenPortRtn = 144 thenbeginEdziPortID:= iPort;bUsbPort:= true;break;end;end;//检测串口的机具连接if not bUsbPort thenbeginfor iPort := 1 to 2 dobeginintOpenPortRtn:= SDT_OpenPort(iPort);if intOpenPortRtn = 144 thenbeginEdziPortID:= iPort;bUsbPort:= False;Break;end;end;end;if intOpenPortRtn <> 144 thenbegin//application.MessageBox(ERROR_ICREADER_OPEN_PORT, ERROR_TITLE);AErrMsg:= ERROR_ICREADER_OPEN_PORT;Result:= False;Exit;end;//下面找卡iRet:= SDT_StartFindIDCard(EdziPortID, pucIIN, EdziIfOpen);if iRet <> 159 thenbeginiRet:= SDT_StartFindIDCard(EdziPortID, pucIIN, EdziIfOpen);//再找卡if iRet <> 159 thenbeginSDT_ClosePort(EdziPortID);//Application.MessageBox(TIP_ICREADER_NO_CARD, TIP_TITLE);AErrMsg:= TIP_ICREADER_NO_CARD;Result:= False;Exit;end;end;//选卡iRet:= SDT_SelectIDCard(EdziPortID, pucSN, EdziIfOpen);if iRet <> 144 thenbeginiRet:= SDT_SelectIDCard(EdziPortID, pucSN, EdziIfOpen);if iRet <> 144 thenbeginSDT_ClosePort(EdziPortID);//Application.MessageBox(TIP_ICREADER_READ_FAILED, TIP_TITLE);AErrMsg:= TIP_ICREADER_READ_FAILED;Result:= False;Exit;end;end;//注意，在这里，用户必须有应用程序当前目录的读写权限if FileExists('wz.txt') then SysUtils.DeleteFile('wz.txt');if FileExists('zp.bmp') then SysUtils.DeleteFile('zp.bmp');if FileExists('zp.wlt') then SysUtils.DeleteFile('zp.wlt');//PAnsiChar(AnsiString(Str))iRet:= SDT_ReadBaseMsgToFile(EdziPortID, PAnsiChar(AnsiString('wz.txt')), puiCHMsgLen, PAnsiChar(AnsiString('zp.wlt')), puiPHMsgLen, 1);if iRet <> 144 thenbeginSDT_ClosePort(EdziPortID);//Application.MessageBox(TIP_ICREADER_READ_FAILED, TIP_TITLE);AErrMsg:= TIP_ICREADER_READ_FAILED;Result:= False;Exit;end;//下面解析照片，注意，如果在C盘根目录下没有机具厂商的授权文件Termb.Lic，照片解析将会失败if bUsbPort theniRet:= GetBmp(PAnsiChar(AnsiString('zp.wlt')), 2)elseiRet:= GetBmp(PAnsiChar(AnsiString('zp.wlt')), 1);case iRet of0:beginApplication.MessageBox(TIP_ICREADER_CALL_DLL_FAILED, TIP_TITLE);end;1: //正常beginend;-1:beginApplication.MessageBox(TIP_ICREADER_PICTURE_DECODE_FAILED, TIP_TITLE);end;-2:beginApplication.MessageBox(TIP_ICREADER_WLT_FILE_EXTEND_FAILED, TIP_TITLE);end;-3:beginApplication.MessageBox(TIP_ICREADER_WLT_FILE_OPEN_FAILED, TIP_TITLE);end;-4:beginApplication.MessageBox(TIP_ICREADER_WLT_FILE_FORMAT_FAILED, TIP_TITLE);end;-5:beginApplication.MessageBox(TIP_ICREADER_NO_LICENSE, TIP_TITLE);end;-6:beginApplication.MessageBox(TIP_ICREADER_DEVICE_FAILED, TIP_TITLE);end;end;SDT_ClosePort(EdziPortID);fs:= TFileStream.Create('wz.txt', fmOpenRead);fs.Position:= 0;fs.Read(ACardInfo ,SizeOf(ACardInfo));fs.Free;//// 姓名：AnsiString(idCardInfo.Name);// 性别： if AnsiString(idCardInfo.Sex)= '1' then 性别:= '男' else 性别:= '女';// 民族： EthnicNoToName(AnsiString(idCardInfo.Nation));// 出生年月日： FormatDateStr(AnsiString(idCardInfo.BirthDay));// 住址： Address:= Trim(AnsiString(idCardInfo.Addr));//身份证号码： Id:= Trim(AnsiString(idCardInfo.IdSN));//发证机构： Place:= Trim(AnsiString(idCardInfo.IssueOrgan));//有效日期开始 ValidDateStart:= FormatDateStr(AnsiString(idCardInfo.VaildBegin));//有效日期结束 if Trim(AnsiString(idCardInfo.VaildEnd)) = '长期' then// ValidDateEnd:= FormatDateTime('yyyy-MM-dd', MaxDateTime)// else// ValidDateEnd:= FormatDateStr(AnsiString(idCardInfo.VaildEnd));//Result:= True;end;initializationLstEthnic:= TStringList.Create;with LstEthnic dobeginAdd('01' + '=' + '汉族');Add('02' + '=' + '蒙古族');Add('03' + '=' + '回族');Add('04' + '=' + '藏族');Add('05' + '=' + '维吾尔族');Add('06' + '=' + '苗族');Add('07' + '=' + '彝族');Add('08' + '=' + '壮族');Add('09' + '=' + '布依族');Add('10' + '=' + '朝鲜族');Add('11' + '=' + '满族');Add('12' + '=' + '侗族');Add('13' + '=' + '瑶族');Add('14' + '=' + '白族');Add('15' + '=' + '土家族');Add('16' + '=' + '哈尼族');Add('17' + '=' + '哈萨克族');Add('18' + '=' + '傣族');Add('19' + '=' + '黎族');Add('20' + '=' + '傈僳族');Add('21' + '=' + '佤族');Add('22' + '=' + '畲族');Add('23' + '=' + '高山族');Add('24' + '=' + '拉祜族');Add('25' + '=' + '水族');Add('26' + '=' + '东乡族');Add('27' + '=' + '纳西族');Add('28' + '=' + '景颇族');Add('29' + '=' + '柯尔克孜族');Add('30' + '=' + '土族');Add('31' + '=' + '达翰尔族');Add('32' + '=' + '仫佬族');Add('33' + '=' + '羌族');Add('34' + '=' + '布朗族');Add('35' + '=' + '撒拉族');Add('36' + '=' + '毛南族');Add('37' + '=' + '仡佬族');Add('38' + '=' + '锡伯族');Add('39' + '=' + '阿昌族');Add('40' + '=' + '普米族');Add('41' + '=' + '塔吉克族');Add('42' + '=' + '怒族');Add('43' + '=' + '乌孜别克族');Add('44' + '=' + '俄罗斯族');Add('45' + '=' + '鄂温克族');Add('46' + '=' + '德昂族');Add('47' + '=' + '保安族');Add('48' + '=' + '裕固族');Add('49' + '=' + '京族');Add('50' + '=' + '塔塔尔族');Add('51' + '=' + '独龙族');Add('52' + '=' + '鄂伦春族');Add('53' + '=' + '赫哲族');Add('54' + '=' + '门巴族');Add('55' + '=' + '珞巴族');Add('56' + '=' + '基诺族');Add('57' + '=' + '其它');Add('98' + '=' + '外国人入籍');end;finalizationLstEthnic.Free;end.//事先请准备好sdtapi.dll WltRS.dll WltRS.lic 这三个文件,放在同目录下

上一篇：delphi CopyMemory、FillMemory、MoveMemory、ZeroMemory

下一篇：[Delphi]CopyFile函數詳解