carddllft.pas

计量功能 事件记录 购电提醒 欠费报警 负荷控制 自检功能 显示功能 用户插卡错误信息显示

unit CardDLLFT;

interface

uses ConstDef, SysUtils, Classes;

type
/////////////////////////////////////////////////////////////////////
///////                    写卡器函数库                       ///////
/////////////////////////////////////////////////////////////////////
FTswr_4442=function(icdev:longint;offset:smallint;len:smallint;data1:pchar):smallint;stdcall;
FTsrd_4442=function (icdev: longint;offset:smallint;len:smallint; data1:pchar):smallint;stdcall;
FTprd_4442=function(icdev:longint;len:smallint;data1:pchar):smallint;stdcall;
FTpwr_4442=function(icdev: longint;offset:smallint;len:smallint;data1:pchar):smallint;stdcall;
FTchk_4442=function(icdev: longint):smallint;stdcall;
FTcsc_4442=function(icdev:longint;len:smallint;password:pchar):smallint;stdcall;
FTwsc_4442=function(icdev: longint;len:smallint; password:pchar):smallint;stdcall;
FTrsc_4442=function(icdev: longint;len:smallint; password:pchar):smallint;stdcall;
FTrsct_4442=function(icdev: longint;counter:pchar):smallint;stdcall;

//use general function
FTic_init=function(port: smallint;baud:longint): longint; stdcall;
FTauto_init=function(port: smallint;baud:longint): longint; stdcall;
FTic_exit=function(icdev: longint):smallint;stdcall;
FTget_status=function (icdev: longint;status:pchar):smallint;stdcall;
FTset_baud=function(icdev: longint;baud:longint):smallint;stdcall;
FTcmp_dvsc=function(icdev:longint;len:smallint;password:pchar):smallint;stdcall;
FTsetsc_md=function(icdev: longint;mode:smallint):smallint;stdcall;
FTsrd_dvsc=function(icdev: longint;len:smallint;password:pchar):smallint;stdcall;
FTswr_dvsc=function(icdev: longint;len:smallint;password:pchar):smallint;stdcall;
FTturn_off=function(icdev: longint):smallint;stdcall;
FTturn_on=function(icdev: longint):smallint;stdcall;
FTauto_pull=function(icdev: longint):smallint;stdcall;
FTsrd_ver=function(icdev: longint;len:smallint;ver:pchar):smallint;stdcall;
FTdv_beep=function(icdev: longint;time:smallint):smallint;stdcall;

// Tool Function
FTasc_hex=function(asc:pchar;hex:pchar;len:smallint):smallint;stdcall;
FThex_asc=function(hex:pchar;asc:pchar;len:smallint):smallint;stdcall;
////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////
///////                    IC卡内存数据计算函数库                ///////
////////////////////////////////////////////////////////////////////////
FTget_ecardkind=function(cardmem: pchar):CardKindType;stdcall;
FTset_ecardmem=function(WriteCD:RecRWCustDataType;WriteCK:RecWriteCardKindType;
      cardmem: pchar): Boolean;stdcall;
FTget_ecarddata=function(var ReadCD:RecRWCustDataType;var ReadCK:RecWriteCardKindType;
      cardmem: pchar): Boolean;stdcall;
////////////////////////////////////////////////////////////////////////

implementation

end.