surehope_api.pas

delphi写的人员登记系统IC卡版,还是一个不错的系统,初学员可以

unit surehope_api;

interface

const
  SURE_HOPE_OK=0;  //操作正确
  SURE_HOPE_VERIFYORERROR=1;  //校验和错误
  SURE_HOPE_NOCARD=2;  //无卡
  SURE_HOPE_CARDNOPOWER=3;  //卡未上电
  SURE_HOPE_COMERROR=4;  //串口错误
  SURE_HOPE_QUITCARDERROR=5;  //退卡错误
  SURE_HOPE_ZONEERROR=6;  //区域错误
  SURE_HOPE_PAGENUMBERERROR=7;  //页号错误
  SURE_HOPE_ADDRESSERROR=8;  //地址错误
  SURE_HOPE_DATALENGTHERROR=9;  //数据长度错误
  SURE_HOPE_DATAERROR=10;  //数据错误
  SURE_HOPE_PASSWORDERROR=11;  //密码错误
  SURE_HOPE_ERASEPASSWORDERROR=12;  //擦除密码错误
  SURE_HOPE_ERASEPASSWORDCOUNTERTOZERO=13;  //擦除密码计数器为零
  SURE_HOPE_CARDBAD=14;  //卡损坏错误
  SURE_HOPE_COMMANDFORMATERROR=15;  //命令格式错误
  SURE_HOPE_CARDTYPEERROR=16;  //卡型错误
  SURE_HOPE_NOMEMORY=17;  //内存不足

//初始化端口,串口选择.返回值: 0：正确； 4：串口错误；
function init_com(Port: integer): integer; stdcall; external 'SURE32WC.DLL';

//卡型选择,返回值: 0：正确
function sele_card(crdno: integer): integer; stdcall; external 'SURE32WC.DLL';

//给卡上电,返回值: 0： 正确；2： 无卡；4：串口错误；
function power_on: integer; stdcall; external 'SURE32WC.DLL';

//卡下电, 同时退卡,返回值: 0： 正确；2： 无卡；4：串口错误；
function power_off: integer; stdcall; external 'SURE32WC.DLL';

//关闭串口,返回值: 0：正确； 4：串口错误；
function close_com: integer; stdcall; external 'SURE32WC.DLL';

//读卡中HEX码数据,返回值: 3： 无卡；4： 串口错误；9：长度超出错误；(apz:区号)
function rd_asc(apz, address, Length: integer; buffer: pchar): integer; stdcall;external 'SURE32WC.DLL';

//将HEX码数据写入卡中,返回值: 0： 正确；2： 无卡；3:未上电；4：串口错误；9：长度超出错误；
function wr_asc(apz, address, Length: integer; buffer: pchar): integer; stdcall;external 'SURE32WC.DLL';

//读卡中ASCII码数据,返回值: 3： 无卡；4： 串口错误；9：长度超出错误；(apz:区号)
function rd_str(apz, address, Length: integer; buffer: pchar): integer; stdcall;external 'SURE32WC.DLL';

//将ASCII码数据写入卡中,返回值: 0： 正确；2： 无卡；3:未上电；4：串口错误；9：长度超出错误；
function wr_str(apz, address, Length: integer; buffer: pchar): integer; stdcall;external 'SURE32WC.DLL';

//取读写机对卡操作的历史状态,返回值: 0： 正确；4：串口错误；
function inquire(buffer:pchar):integer;stdcall;external 'sure32wc.dll';

//用DES算法加密8字节ASCII码或返回值: 无；
function des_str(buffer,des_str:pchar):integer;stdcall;external'sure32wc.dll';

//把用DES算法加密8字节ASCII码密文转换为8字节ASCII码或明文,返回值: 无；
function undes_str(buffer,des_str:pchar):integer;stdcall;external'sure32wc.dll';

//用DES算法加密16字节HEX码数据,返回值: 无；
function des_asc(buffer,des_str:pchar):integer;stdcall;external'sure32wc.dll';

//把用DES算法加密16字节HEX码密文转换为16字节HEX码或明文,返回值: 无；
function undes_asc(buffer,des_str:pchar):integer;stdcall;external'sure32wc.dll';
//----------------以上是通用接口函数-------------------------------

//写HEX码数据到卡的相应单元, 若相同则保护位写0(永久保留)；
//返回值: 0: 正确；2:无卡；3:未上电；4:串口错误；9:长度超出错误；16:卡型错误；
function cpwr_asc(apz,address,length:integer;buffer:pchar):integer;stdcall;external'sure32wc.dll';

//写ASCII码数据到卡的相应单元, 若相同则保护位写0(永久保留)；
//返回值: 0: 正确；2:无卡；3:未上电；4:串口错误；9:长度超出错误；16:卡型错误；
function cpwr_str(apz,address,length:integer;buffer:pchar):integer;stdcall;external'sure32wc.dll';

//读卡保护位
//返回值: 0:正确, 2:无卡；3:未上电；4:串口错误；9:长度超出错误；16:卡型错误；正确则返回读出的HEX码保护位, 每保护位对应一个字符；
function rd_pm(apz,address,length:integer;buffer:pchar):integer;stdcall;external'sure32wc.dll';
//----------------以上是SIEMENS卡专用接口函数-------------------------------

//核对密码,返回值: 0:正确；2:无卡；3:未上电；4:串口错误；9:数据长度错误；11:密码错误；14:卡已损坏；
function chk_sc(apz, length: Integer; buffer: pchar): integer; stdcall; external 'SURE32WC.DLL';
//----------------以上是所有加密卡专用接口函数----------------------------------

//读卡密码区(sle4442)
//返回值：0:正确； 2:无；3:未上电；4：串口错误；16：卡型错误；
//正确则返回读出的一个字节错码计数和三字节密码；
function rd_sm(password_Str: pchar): integer; stdcall; external 'SURE32WC.DLL';

//改写密码 (sle4428)
function wr_sc(password_Str: pchar): integer; stdcall; external 'SURE32WC.DLL';
//----------------以上是SIEMENS 4442卡专用接口函数------------------------------

implementation

end.