ic24c64.prg

IC卡编程

SET TALK ON
*假定动态库已被拷至C:\WIN95\SYSTEM下
DECLARE INTEGER IC_InitComm IN lkic32 INTEGER port
DECLARE SHORT IC_ExitComm IN lkic32 INTEGER port
DECLARE SHORT IC_InitType IN lkic32 INTEGER port,INTEGER cardtype
DECLARE SHORT IC_Read IN lkic32 INTEGER port,INTEGER offset,INTEGER length,STRING @buffer
DECLARE SHORT IC_Write IN lkic32 INTEGER port,INTEGER offset,INTEGER length,STRING @buffer
DECLARE SHORT IC_Erase IN lkic32 INTEGER port,INTEGER offset,INTEGER length
DECLARE SHORT IC_CheckPass_102 IN lkic32 INTEGER port,STRING @buffer
DECLARE SHORT IC_ChangePass_102 IN lkic32 INTEGER port,STRING @buffer
DECLARE SHORT IC_ReadCount_102 IN lkic32 INTEGER port
DECLARE SHORT IC_CheckAZPass_102 IN lkic32 INTEGER port,INTEGER passtype,STRING @buffer
DECLARE SHORT IC_Erase_102 IN lkic32 INTEGER port,INTEGER offset,INTEGER length

CLEAR
com=1
icdev=ic_initcomm(com)
if icdev<0
  ?"error 1"
  retu
endi
x=ic_inittype(icdev,192)
if x<>0 
  ?"error 3"
  x=ic_exitcomm(icdev)
  retu
endi
data1="Gicom_ICCard"
x=ic_write(icdev,0,12,@data1)
if x<>0 
  ?"error 4"
  x=ic_exitcomm(icdev)
  retu
endi
data2=space(12)
x=ic_read(icdev,0,12,@data2)
if x<>0 
  ?"error 8"
  x=ic_exitcomm(icdev)
  retu
endi
?data2
&&x=ic_PushOut(icdev)
x=ic_exitcomm(icdev)
?"ok!!!"
clear dlls