mainfk.prg

利用DLL对IC卡进行发卡充值的PB VF BCB DELPHI VC等源代码程序,内有详细说明

declare long OpenComm in dascard integer commport
declare integer CloseComm in dascard long icdev
declare integer Check_Reader in dascard long icdev
declare integer Init_SysCard in dascard long icdev,string userpwd,integer systype,integer mjsec,integer mjcardtype,;
                integer xfsec,string @ commpwd
declare integer Init_Pos_UserCard in dascard long icdev,integer serno,string cardno,integer usertype,integer waitime,;
                long @ cardserno
declare integer Init_Pos_UserCard_N in dascard long icdev,integer serno,string cardno,integer usertype,integer value1,;
                integer count1,integer waitime,long @ cardserno
declare integer Init_Pos_OPTCard in dascard long icdev,integer opt_num,integer waitime,long @ cardserno
declare integer RST_Pos_UserCard in dascard long icdev,long cardserno,integer waittime                
declare integer RST_Pos_OPTCard in dascard long icdev,long cardserno,integer waitime
declare integer WRT_Pos_UserCard in dascard long icdev,integer value1,long cardserno,integer waitime
declare integer Query_Pos_Card in dascard long icdev,integer @ cardtype,integer @ opt_num,integer @serno,string @ cardno,;
				long @ cardserno,integer @ value1,integer @ count1,integer waitime,integer @ usertype
declare integer Init_Access_UserCard in dascard long icdev,integer serno,integer cardno,integer usertype,integer waitime,;
				long @ cardserno
declare integer RST_Access_UserCard in dascard long icdev,long cardserno,integer waitime
declare integer Init_Access_UserCard_UsePassword in dascard long icdev,long cardserno,integer waitime
declare integer Query_Access_Card in dascard long icdev,integer @ cardtype,integer @ serno,integer @ cardno,long @ cardserno,;
				integer	usertype,integer waitime


public icdev
public st

store 0 to icdev
st=-1
icdev=OpenComm(1)
if icdev <= 0
	iccdev=OpenComm(0)
	if icdev <= 0
	 	messagebox("初始化串口错误!")
	else
		set default to E:\gxh\project\fk_routine\Vfp
        do form fk
        read events
      	=CloseComm(icdev)
      	clear dlls
    EndIf
Else
    set default to E:\gxh\project\fk_routine\Vfp
    do form fk    
	read events
   	=CloseComm(icdev)
   	clear dlls
EndIf