rd32_24.prg

来自「IC卡分为两种 一种是接触式的 还一种是非接触式的 此文件二种程序都有 希望能帮」· PRG 代码 · 共 58 行

declare integer auto_init in c:\windows\system\mwic_32.dll short port,integer baud
declare integer  ic_init in c:\windows\system\mwic_32.dll short port,integer baud
declare short ic_exit in c:\windows\system\mwic_32.dll  integer icdev
declare short chk_24c02 in c:\windows\system\mwic_32.dll integer icdev
declare short srd_24c02 in c:\windows\system\mwic_32.dll integer icdev, short offset,short len,string @buffer
declare short swr_24c02 in c:\windows\system\mwic_32.dll integer icdev, short offset,short len,string @buffer
declare short get_status in c:\windows\system\mwic_32.dll integer icdev,short @status

&&icdev=auto_init(1,9600)
icdev=ic_init(1,9600)
if icdev<0
    ? "init error."
    retu
endif
? "init ok."

status=0
st=get_status(icdev,@status)
if st<>0
    ?"status error."
	retu
endif
?"status ok."

st=chk_24c02(icdev)
if st<>0 
    ? "chk card error."
     retu
endif
? "chk card ok."

offset=10
le=8
st=swr_24c02(icdev,offset,le,"abcdefgh")
if st<>0
    ? "write error."
   retu
endif
? "write ok."

data1=space(8)
st=srd_24c02(icdev,offset,le,@data1)   
if st<>0
    ? "read error."
   retu
endif
? "read ok"
&&? data1   

st=ic_exit(icdev)
if st<>0
    ? "exit error."
    retu
endif
? "exit ok."

retu