scdllunit.pas

Delphi源码实现的SC1000非接触式IC卡读写器

unit SCDLLUnit;

interface


  Function InitPort(Const iPort: Integer;Out rHandle:Thandle): Integer;StdCall;//打开串口
  Function ClosePort(Const Handle:THandle):integer;StdCall;//关闭串口

  Function SC_Beep(Const Handle:THandle; icount:integer; Times:integer):integer;stdcall;//蜂鸣器
  Function SC_LED(Const Handle:THandle; iType:integer; iTimes:integer):integer;stdcall;//指示灯控制
  Function SC_Request(Const Handle:THandle ):integer;stdcall;//寻卡
  Function SC_GetSnr(Const Handle:THandle; pSNR:Pchar):integer;stdcall;//得到IC卡的序列号
  Function SC_SelectSnr(Const Handle:THandle; pSNR:Pchar):integer;stdcall;//选择卡

  Function SC_LEDDSP(Const Handle:THandle; pData:Pchar;idot:integer):integer;stdcall;//8位LED数码管显示数据
  Function SC_LEDDSPV(Const Handle:THandle; fValues:Extended):integer;stdcall;//
  Function SC_LCDDSP(Const Handle:THandle; iline:integer;ilen:integer;sData:pchar):integer;stdcall;//液晶显示ASCII
  Function SC_LCDDSPCN(Const Handle:THandle; iline:integer;ilen:integer;sData:pchar):integer;stdcall;//液晶汉字显示

  Function SC_EncryptAuth(Const Handle:THandle; iSector:integer; iMode:integer; pKey:Pchar):integer;stdcall;//核对卡密钥
  Function SC_LoadKey(Const Handle:THandle;iKeyNum:integer;iSector:integer; iMode:integer; pKey:Pchar):integer;stdcall;//下载密钥到读写器
  Function SC_Auth(Const Handle:THandle; iKeyNum:integer):integer;stdcall; //认证下载的密钥
  Function SC_ENRead(Const Handle:THandle; iBlock:integer;pData:Pchar):integer;stdcall; //读卡
  Function SC_ENWrite(Const Handle:THandle; iBlock:integer;pData:Pchar):integer;stdcall;//写卡
  Function SC_EnChangekey(Const Handle:THandle; iSector:integer; pKey:Pchar):integer;stdcall;//改密钥

implementation
  Function InitPort;external 'SCDLL32.dll';
  Function ClosePort;external 'SCDLL32.dll';

  Function SC_Beep;external 'SCDLL32.dll';
  Function SC_LED;external 'SCDLL32.dll';

  Function SC_Request;external 'SCDLL32.dll';
  Function SC_GetSnr;external 'SCDLL32.dll';
  Function SC_SelectSnr;external 'SCDLL32.dll';

  Function SC_LEDDSP;external 'SCDLL32.dll';

  Function SC_LEDDSPV;external 'SCDLL32.dll';
  Function SC_LCDDSP;external 'SCDLL32.dll';
  Function SC_LCDDSPCN;external 'SCDLL32.dll';

  Function SC_EncryptAuth;external 'SCDLL32.dll';
  Function SC_LoadKey;external 'SCDLL32.dll';
  Function SC_Auth;external 'SCDLL32.dll';
  Function SC_ENRead;external 'SCDLL32.dll';
  Function SC_ENWrite;external 'SCDLL32.dll';
  Function SC_EnChangekey;external'SCDLL32.dll';
end.