如何读二代身份证信息(包括照片)

sdjnjdxc 2011-09-20 02:24:56
读到表中
...全文
3988 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhengyx_95 2012-04-10
  • 打赏
  • 举报
回复
仙人掌厉害,正在寻找这方面的资料,多谢了!!!
发现代码 2012-03-29
  • 打赏
  • 举报
回复
现在还看不懂,做个记号
LYMPC 2011-10-30
  • 打赏
  • 举报
回复
有第二代身份证读卡开发包,
kmyz_yyl 2011-10-30
  • 打赏
  • 举报
回复
11楼强悍
YUAN168 2011-10-21
  • 打赏
  • 举报
回复
cmdRead_click
=========================
DECLARE integer InitComm IN "termb.dll" integer
DECLARE integer Authenticate IN "termb.dll"
DECLARE integer CloseComm IN "termb.dll"
DECLARE integer Read_Content IN "termb.dll" integer

DECLARE INTEGER GetPeopleName IN "termb.dll" string ,integer
DECLARE integer GetPeopleSex IN "termb.dll" string ,integer
DECLARE integer GetPeopleBirthday IN "termb.dll" string,integer
DECLARE integer GetPeopleAddress IN "termb.dll" string ,integer
DECLARE integer GetPeopleNation IN "termb.dll" string ,integer
DECLARE integer GetPeopleIDCode IN "termb.dll" string,integer
DECLARE integer GetDepartment IN "termb.dll" string,integer
DECLARE integer GetStartDate IN "termb.dll" string,integer
DECLARE integer GetEndDate IN "termb.dll" string,integer
DECLARE integer GetReserve IN "termb.dll" string,integer
DECLARE integer GetPhotoBMP IN "termb.dll" string,integer

LOCAL iPort,cValue,cName,cSex,cBirthday,cAddress,cNation,cIDCode,cDepartment,cStartDate,cEndDate,cReserve,cPhotoBMP
iPort=1001
thisform.clearall()

cValue=InitComm(iPort)
IF cValue<>1
MESSAGEBOX("打开端口失败!")
RETURN
ENDIF

WAIT WINDOW "请刷身份证……" NOWAIT NOCLEAR
LOCAL nSeconds
nSeconds=SECONDS()
DO WHILE .t.
cValue=Authenticate()
IF cValue=1
EXIT
ENDIF
=INKEY(0.1,"H")
IF SECONDS()-nSeconds>10
WAIT CLEAR
MESSAGEBOX("没有正确读卡!")
RETURN
ENDIF
ENDDO
WAIT CLEAR

Read_Content(1)
Read_Content(2)
Read_Content(3)
Read_Content(5)

cName=SPACE(10)
GetPeopleName(@cName,10)

cSex=SPACE(2)
GetPeopleSex(@cSex,2)

cNation=SPACE(50)
GetPeopleNation(@cNation,50)

cPhotoBMP=SPACE(1000*1024)
GetPhotoBMP(@cPhotoBMP,100*1024)

cBirthday=SPACE(10)
GetPeopleBirthday(@cBirthday,10)

cAddress=SPACE(500)
GetPeopleAddress(@cAddress,500)

cIDCard=SPACE(30)
GetPeopleIDCode(@cIDCard,30)

cDepartment=SPACE(100)
GetDepartment(@cDepartment,100)

cStartdate=SPACE(10)
GetStartDate(@cStartdate,10)

cEndDate=SPACE(10)
GetEndDate(@cEndDate,10)
CloseComm()

thisform.lblname.Caption=ALLTRIM(cName)
thisform.lblsex.Caption=ALLTRIM(cSex)
thisform.lblnation.Caption=ALLTRIM(cNation)
thisform.lblyear.Caption=left(ALLTRIM(cBirthday),4)
thisform.lblmonth.Caption=SUBSTR(ALLTRIM(cBirthday),5,2)
thisform.lblday.Caption=SUBSTR(ALLTRIM(cBirthday),7,2)
thisform.lblAddress.Caption=ALLTRIM(cAddress)
thisform.lblidCard.Caption=ALLTRIM(cIDCard)
thisform.lbldepartment.Caption=ALLTRIM(cDepartment)
thisform.lblcanUseDate.Caption=ALLTRIM(cstartdate)+'----'+ALLTRIM(cenddate)

thisform.Image1.PictureVal=cPhotoBMP
fnxb22 2011-10-14
  • 打赏
  • 举报
回复
学习一下,以后也许能用上的.
YUAN168 2011-10-12
  • 打赏
  • 举报
回复
QQ:439609487
YUAN168 2011-10-12
  • 打赏
  • 举报
回复
刚才我不久前才做过

读卡器是成都国腾的,有提供 dll文件

我是有把 身份证里的数据全部都 导入到 sqlserver 中了,包括图片(进入text字段)
czw8819 2011-09-22
  • 打赏
  • 举报
回复
网上有VFP例子
自己搜索下
czw8819 2011-09-22
  • 打赏
  • 举报
回复
论论什么厂商什么牌子,所有的身份证阅读器,都共用那几个DLL
接口都是一样的
无须考虑什么牌子
sdjnjdxc 2011-09-22
  • 打赏
  • 举报
回复
并且供应商会提供例子程序(一般会有VB的例子)和接口说明的。
===========
编程时就要知道什么厂商的读卡器了?
没有通用程序吗?
如果要做一个商业的人事管理程序,不知道用户用什么厂商的产品怎么办?
babydog01 2011-09-20
  • 打赏
  • 举报
回复
身份证读卡器限制使用的。

必须有开发控件的,还要带一个许可协议才能读取。
十豆三 2011-09-20
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 sdjnjdxc 的回复:]
单位只借了个读卡器,没有其他附属东西,郁闷
[/Quote]

肯定有 例子程序(一般会有VB的例子)和接口说明的。

如果是键盘口的,就只能读身份证号,这个不需要驱动和接口,不过一般不可能只要身份证号吧。
sdjnjdxc 2011-09-20
  • 打赏
  • 举报
回复
单位只借了个读卡器,没有其他附属东西,郁闷
十豆三 2011-09-20
  • 打赏
  • 举报
回复
购买读卡器(可以读二代身份证的),并且供应商会提供例子程序(一般会有VB的例子)和接口说明的。
可以扫描身份证的 姓名 性别 民族 地址 身份证号码 签发机关 开始日期 结束日期  身份证正面 反面  正反面  证件照 等

2,749

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧