PB讀寫IC卡實(shí)例
在寫相關(guān)的信息管理系統(tǒng)時(shí)，有時(shí)會遇見讀寫相關(guān)的外部設(shè)備等問題，這類的問題，在PowerBulider中實(shí)現(xiàn)這類的功能并不是一件難事，現(xiàn)在的相關(guān)外部設(shè)備廠商在提供產(chǎn)品時(shí)，基本都提供了相關(guān)編程接口，利用這些接口函數(shù)后ActiveX控件，結(jié)合PowerBulider中外部函數(shù)的調(diào)用，可以輕松的實(shí)現(xiàn)相關(guān)功能，以下提供讀寫IC卡實(shí)現(xiàn)的基本代碼，以期消除相關(guān)編程人員對讀寫外部設(shè)備等問題的恐懼心理
外部函數(shù)聲明：
Subroutine PostPara(long prot,strig syspara) library “l(fā)ock739.dll”//傳遞參數(shù)，主要傳遞串口信息
Function long Reset() library “l(fā)ock739.dll”//讀寫復(fù)位
Function Boolean OpenCom () library “l(fā)ock739.dll”//打開串口
Subroutine CloseCom() library “l(fā)ock739.dll”//關(guān)閉串口
Function long ChkCard() library “l(fā)ock739.dll”//檢查卡是否到位
Function long CmpSc(string sc) library “l(fā)ock739.dll”//核對密碼
Function long WriteSc(string sc) library “l(fā)ock739.dll”//修改加密卡密碼
Function long ReadSc(string inbuff,long sclen) library “l(fā)ock739.dll”//度曲加密卡密碼
Function long RdDat(long cardtype,long start,long ilen,ref string inbuff) library “l(fā)ock739.dll”//讀卡信息
Function long WrDat(long cardtype,long start,long ilen,ref string outbuff)library “l(fā)ock739.dll”//寫卡信息
實(shí)例變量：
public string sc=’272272272’
寫卡函數(shù)：wf_write(string as_arg1,long al_start,long al_len)
/*參數(shù) string as_arg1 寫入的字符串；
long al_start 寫入的位置
long al_len 寫入的長度*/
long l_rtn
if opencom()=false then
messagebox(“提示”,”串口連接失敗”)
return
end if
l_rtn=chkcard()
if l_rtn<>0 then
??wf_errormessage(l_rtn)
closecom()
return
end if
l_rtn=cmpsc(sc)//sc為密碼
if l_rtn<>0 then
wf_errormessage(l_rtn)
closecom()
return
end if
l_rtn=wrdat(1,al_start,al_len,as_agr1)
if l_rtn<>0 then
??wf_errormessage(l_rtn)
closecom()
return
end if
messagebox(“提示”,”寫卡成功!”)
讀卡函數(shù)：wf_read(string as_arg1,long al_start,long al_len)
/*參數(shù) string as_arg1 保存讀出信息的字符串；
long al_start 開始讀卡入的位置
long al_len 讀卡的長度*/
long l_rtn
if opencom()=false then
messagebox(“提示”,”串口連接失敗”)
return
end if
l_rtn=chkcard()
if l_rtn<>0 then
??wf_errormessage(l_rtn)
closecom()
return
end if
l_rtn=rddat(1,al_start,al_len,as_agr1)
if l_rtn<>0 then
??wf_errormessage(l_rtn)
closecom()
return
end if
messagebox(“提示”,”讀卡成功!”)
顯示錯誤函數(shù)：wf_errormessage(long lerror)
choose case lerror
case 1
messagebox(“提示”,”寫入錯誤或密碼錯誤！”)
case 2
messagebox(“提示”,”卡已損壞或參數(shù)越界！“)
case 3
messagebox(“提示”,”請插卡！”)
case 4
messagebox(“提示”,”通訊錯誤！”)
case else
messagebox(“提示”,”未知錯誤！”)
end choose
初始化卡函數(shù)wf_initialcard(long al_port)
/*參數(shù):long al_port 傳入讀寫器使用的串口*/
psotpara(al_port,””)
以上的例子代碼所使用的ic卡為sle4442 加密存儲器卡，讀卡器為wb1000 IC卡讀寫器
通過以上代碼的示例，實(shí)現(xiàn)與外部設(shè)備的通訊，并不是一件很難的時(shí)吧？！
下載文檔
