请问哪里有身份证阅读器提取身份证信息的代码 提取出来并填到表单的text控件中 谢谢 看了论坛的帖子还是不太明白

阅读器都有程序接口的，看说明，另外，以前有个帖子说这事，可以搜一下。

nusb = 1001
zp=m.mypath+"\sfzzp\"
dkPath =m.mypath+"\SynIDCardAPI.dll"

SET DEFA TO(m.mypath)

LOCAL lcText ,lcpucIIN,lcpucSN,test
m.sfztxt   = SPACE(1280)
m.lcpucIIN = SPACE(4)
m.lcpucSN = SPACE(8)
m.test=SPACE(255)
*!*        DELETE FILE mypath+"\data\temp.txt"
**--端口控制
DECLARE INTEGER Syn_OpenPort IN (dkPath) INTEGER
DECLARE INTEGER Syn_ClosePort IN (dkPath) INTEGER
**--

**--寻卡与读卡
DECLARE INTEGER Syn_StartFindIDCard IN (dkPath) INTEGER,STRING @,INTEGER
DECLARE INTEGER Syn_SelectIDCard IN (dkPath) INTEGER,STRING @,INTEGER
DECLARE INTEGER Syn_ReadMsg IN (dkPath) INTEGER,INTEGER,STRING @

DECLARE INTEGER Syn_SetPhotoPath IN (dkPath) INTEGER,STRING @
DECLARE INTEGER Syn_SetPhotoType IN (dkPath) INTEGER
DECLARE INTEGER Syn_SetPhotoName IN (dkPath) INTEGER
LOCAL loMsg AS COLLECTION
loMsg = CREATEOBJECT("Collection")

IF Inita()

    IF Syn_OpenPort(nUSB) =0
        =Syn_StartFindIDCard(nUsb,@lcpucIIN,0)
        =Syn_SelectIDCard(nUsb,@lcpucSN,0)
        =Syn_SetPhotoPath(2,@zp)
        =Syn_SetPhotoType(1)
        =Syn_SetPhotoName(2)
Syn_ReadMsg(nUsb,0,@m.sfztxt)
IF LEN(ALLTRIM(m.sfztxt))>0 THEN
*!*            IF Syn_ReadMsg(nUsb,0,@m.sfztxt) =0

*!*                                STRTOFILE(lcText,mypath+"\data\temp.txt")

        ELSE
            zttxt="读身份证失败！"
            m.dqzt=.F.
        ENDIF
        Syn_ClosePort(nUsb)
    ELSE
        zttxt="打开端口失败！"
        m.dqzt=.F.
    ENDIF

ENDIF

*!*    MESSAGEBOX("姓名："+qk(SUBSTR(m.lcText,1,32)))
*!*    MESSAGEBOX("性别："+SUBSTR(m.lcText,33,1))
*!*    MESSAGEBOX("性别："+SUBSTR(m.lcText,39,2))
*!*    MESSAGEBOX("出生日期："+SUBSTR(m.lcText,59,8))
*!*    MESSAGEBOX("地址："+SUBSTR(m.lcText,77,72))
*!*    MESSAGEBOX("身份证号："+SUBSTR(m.lcText,149,18))
*!*    MESSAGEBOX("发证："+qk(SUBSTR(m.lcText,187,32)))
*!*    MESSAGEBOX("开始："+SUBSTR(m.lcText,219,8))
*!*    MESSAGEBOX("结束："+SUBSTR(m.lcText,237,8))





PROCEDURE DLLS


**----
ENDPROC


PROCEDURE inita
*//初始化读卡器

LOCAL i,lnReutls

DLLS()
lnReutls =.F.
FOR i=1001 TO 1017
    IF Syn_OpenPort(i)=0
        Syn_ClosePort(i)
        lnReutls =.T.
        nUsb =i
        zttxt="读卡器连接在"+STR(i,4)+"USB口上"

        EXIT
    ENDIF
ENDFOR

IF !lnReutls
    zttxt="打开端口失败！"
    m.dqzt=.F.
ENDIF

RETURN lnReutls
ENDPROC

打身份证阅读器的卖家要接口。