scdllunit.pas

对带LED显示的非接触IC卡读写器的控制

//QQ:737375985
//mail:[e-mail]
unit SCDLLUnit;

interface

{
Function InitPort(  iPort: Longint ): Longint;stdcall;
Function ClosePort( iPort: Integer):integer;StdCall;
Function SC_Request(iPort: Integer):integer;stdcall; //寻卡
Function SC_GetSnr(iPort: Longint;pSNR:Pchar):Longint;stdcall; //得到卡片序列号
Function SC_SelectSnr(iPort: Longint;pSNR:Pchar):Longint;stdcall; //选择卡
Function SC_Authentication( iPort: Longint; iMode:integer;iSector:integer;pKey:Pchar):Longint;stdcall; //核对密钥
}

  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; iCount:integer; iTimes:integer):integer;stdcall;
  //Function SC_Request(Const Handle:THandle; Out iCardType:integer):integer;stdcall;
  Function SC_Request(Const Handle:THandle ):integer;stdcall;
  Function SC_GetSnr(Const Handle:THandle; pSNR:Pchar):integer;stdcall;
  Function SC_SelectSnr(Const Handle:THandle; pSNR:Pchar):integer;stdcall;
  Function SC_Halt(Const Handle:THandle; pSNR:Pchar):integer;stdcall;

  Function SC_Authentication(Const Handle:THandle; iMode:integer;iSector:integer;pKey:Pchar):integer;stdcall;
  Function SC_RFRead(Const Handle:THandle; iBlock:integer;pData:Pchar):integer;stdcall;
  Function SC_RFWrite(Const Handle:THandle; iBlock:integer;pData:Pchar):integer;stdcall;

  Function SC_LEDDSP(Const Handle:THandle; pData:Pchar;idot:integer):integer;stdcall;
  Function SC_LEDDSPV(Const Handle:THandle; fValues:Extended):integer;stdcall;
  Function SC_LCDDSP(Const Handle:THandle; iline:integer;ilen:integer;sData:pchar):integer;stdcall;
  Function SC_LCDDSPCN(Const Handle:THandle; iline:integer;ilen:integer;sData:pchar):integer;stdcall;
  Function SC_AutoRequest(Const Handle:THandle;isAuto:integer ):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_Halt;external 'SCDLL32.dll';

  Function SC_Authentication;external 'SCDLL32.dll';
  Function SC_RFRead;external 'SCDLL32.dll';
  Function SC_RFWrite;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_AutoRequest;external 'SCDLL32.dll';
  


end.