dlldef.pas

网吧管理系统 网吧IC卡计费管理系统源码

unit DllDef;

interface
//注：以下函数参数中，nport:读写器所使用的串口　COM1为1，COM2为2
//          no:为卡型（1个字符）＋卡号（5个数字字符），如'100005'
//返回值：0：OK         1：读写错误     2：卡已损坏
//        4: 串口错误   5：卡被更换     6：不是新卡
//        7: 卡为新卡   8：非本系统卡   14：数据有误

procedure ps(syspara:pchar);stdcall; external 'netbar.dll';
//传输系统标识　4个数字字符　如:PS('0001')

function OpenCom(nport:integer):boolean;stdcall;external 'netbar.dll';

procedure CloseCom;stdcall;external 'netbar.dll';

function PopCard(nport:integer):integer;stdcall;external 'netbar.dll';
//弹卡，用于自弹式发行机　　如:i:=PopCard(1);

function CheckCard(nport:integer):integer;stdcall;external 'netbar.dll' name 'ChkCard';
//检查是否插卡　　如:i:=ChkCard(1);   0=插卡

function issue(nport:integer;no,info:pchar):integer;stdcall;external 'netbar.dll';
//发行卡：其中info:14个字符的串　即余额（6）＋终止时间（8）
//例如：i:=issue(1,'100001','0080000210010202')将发行卡型为1，卡号为1，
//                  余额为80.00　终止时间为2002.10.1的卡

function canc(nport:integer;no:pchar):integer;stdcall;external 'netbar.dll';
//注销卡

function change(nport:integer;no,info:pchar):integer;stdcall;external 'netbar.dll';
//修改卡，参数同issue

function ChgMoney(nport:integer;no,info:pchar):integer;stdcall;external 'netbar.dll' name 'ChgMoneyTimes';
//修改余额　如i:=ChgMoneyTimes(1,'100001','006000')

function getno(nport:integer;p:pchar):integer;stdcall;external 'netbar.dll';
//读取卡信息　P:存储读回的信息(20) 格式为卡型(1)+卡号(5)+到时(2)+余额(6)+终止时间(6)
//例如：读回信息为：'1000010010500212310202'表示：
//此卡卡型为1，卡号为1，余额为10.5元，终止时间为2002.12.31 02:02

implementation


end.