用pb调用IC卡读写器的程序 例子代码

在PB中调用IC卡读写器的程序例子代码

读取卡号

Integer i, li_rtn, area, keya1b0
byte ctrlword, serial[4], picckey[6], piccdata0_2[48]

area = 8//操作第8区
keya1b0 = 1//大于表示A密码
ctrlword = ( BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY )//控制字

//旧密码
picckey[1] = 255
picckey[2] = 255
picckey[3] = 255
picckey[4] = 255
picckey[5] = 255
picckey[6] = 255

li_rtn = piccreadex ( ctrlword , serial , area , keya1b0 , picckey , piccdata0_2 )
DebugBreak ()
CHOOSE CASE li_rtn
 CASE 0
  MsgBox("操作成功")
 CASE 8
  MsgBox("请将卡放在感应区")
 CASE 21 //没有动态库
  MsgBox("找不到接口文件ICUSB.DLL和OUR_MIFARE.dll")
 CASE ELSE
  MsgBox("错误代码" + string(li_rtn))
END CHOOSE

//返回解释
/*
#define ERR_REQUEST 8//寻卡错误
#define ERR_READSERIAL 9//读序列吗错误
#define ERR_SELECTCARD 10//选卡