在寫相關的信息管理系統(tǒng)時，有時會遇見讀寫相關的外部設備等問題，這類的問題，在PowerBulider中實現(xiàn)這類的功能并不是一件難事，現(xiàn)在的相關外部設備廠商在提供產品時，基本都提供了相關編程接口，利用這些接口函數(shù)后ActiveX控件，結合PowerBulider中外部函數(shù)的調用，可以輕松的實現(xiàn)相關功能，以下提供讀寫IC卡實現(xiàn)的基本代碼，以期消除相關編程人員對讀寫外部設備等問題的恐懼心理

外部函數(shù)聲明：

Subroutine PostPara(long prot,strig syspara) library “l(fā)ock739.dll”//傳遞參數(shù)，主要傳遞串口信息

Function long Reset() library “l(fā)ock739.dll”//讀寫復位

Function Boolean OpenCom () library “l(fā)ock739.dll”//打開串口

Subroutine CloseCom() library “l(fā)ock739.dll”//關閉串口

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”//寫卡信息

實例變量：

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卡讀寫器

通過以上代碼的示例，實現(xiàn)與外部設備的通訊，并不是一件很難的時吧？！