资源描述：
《二代身份证读卡器二次开发代码.pdf》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、二代身份证读卡器二次开发代码（通用）本开发代码用vb编写经测试可以兼容现有的大部份二代身份证读卡器，使用本控件前请先安装二代身份证读卡器的驱程，本控件用于网页开发。1.说明与准备进入vb新建工程activex控件，需要下图部件，这个是ftp部件。做法右击左面工具选部件就可以出现上图。本控件只提供两个对外函数接口（1）hx_IDname()读身份证主函数接口没有参数，有返回值。（2）toftp(urln,file)上传照片到ftp服务器，照片以身份证号保存，参数1服器的url，参数2上传后的文件名称。没有返
2、回值。2.代码PrivateDeclareFunctionGetBmpLib"c:windowssystem32WltRS.dll"(ByValphotoAsString,ByValxkAsInteger)AsLongPrivateDeclareFunctionSDT_OpenPortLib"c:windowssystem32sdtapi.dll"(ByValusbportAsLong)AsLongPrivateDeclareFunctionSDT_ClosePortLib"c:window
3、ssystem32sdtapi.dll"(ByValusbport1AsLong)AsLongPrivateDeclareFunctionSDT_StartFindIDCardLib"c:windowssystem32sdtapi.dll"(ByValX1AsLong,ByValmf1AsString,ByValY1AsLong)AsLongPrivateDeclareFunctionSDT_SelectIDCardLib"c:windowssystem32sdtapi.dll"(ByVa
4、lX2AsLong,ByValmf2AsString,ByValY2AsLong)AsLongPrivateDeclareFunctionSDT_ReadBaseMsgLib"c:windowssystem32sdtapi.dll"(ByValXAsInteger,ByRefmfAsByte,ByRefmlAsLong,ByRefpfAsByte,ByRefplAsLong,ByValYAsInteger)AsIntegerPublicFunctionhx_IDname()AsString'供外部调
5、用函数hx_IDname=ostudent()EndFunctionPublicFunctiontoftp(urln,file)'供外部调用函数CallFTPTxtFile(urln,file)EndFunctionPublicFunctionFTPTxtFile(site,file)'ftp上传Inet1.URL="ftp://"&siteInet1.Protocol=icFTPInet1.UserName="upphoto"‘ftp用户（可改）Inet1.Password="upphoto"‘ftp密
6、码（可改）Inet1.Execute,"PUTc:/aha.bmp"&file‘上传c盘根目录的aha.bmp文件DoWhileInet1.StillExecutingDoEventsLoopInet1.Execute,"QUIT"EndFunctionPublicFunctionostudent()DimCardPUCIINDimll,i,aa,bbOpenasx&"c:aha.bmp"ForOutputAs#1Close#1CardPUCIIN=Space(4)ll=SDT_StartFindIDC
7、ard(1001,CardPUCIIN,1)Ifll<>128Andll<>1ThenDimCardPUCSNDimmf(512)AsByteDimpf(1024)AsByteDimmlAsLongDimplAsLongDimldCardPUCSN=Space(8)ml=512pl=1024ld=SDT_SelectIDCard(1001,CardPUCSN,1)CallSDT_ReadBaseMsg(1001,mf(0),ml,pf(0),pl,1)i=1Whilei<513aa=CLng(mf(i))
8、*256+CLng(mf(i-1))i=i+2bb=bb+ChrW(aa)Wend'mf=StrConv(mf,128)'把Unicode码转换成ansi码ostudent=bb'下面提取照片Openasx&"c:aha.wlt"ForOutputAs#1Close#1Open"c:Aha.wlt"ForBinaryAs#1i=0Whilei<1024Put#1,,pf(i)i=i+1WendClose#1CallGetB
