在powerbulider中读写ic卡 在写相关的信息管理系统时，有时会遇见读写相关的外部设备等问题，这类的问题，在powerbulider中实现这类的功能并不是一件难事，现在的相关外部设备厂商在提供产品时，基本都提供了相关编程接口，利用这些接口函数后activex控件，结合powerbulider中外部函数的调用，可以轻松的实现相关功能，以下提供读写ic卡实现的基本代码，以期消除相关编程人员对读写外部设备等问题的恐惧心理 外部函数声明： subroutine postpara(long prot,strig syspara) library “lock739.dll”//传递参数，主要传递串口信息 function long reset() library “lock739.dll”//读写复位 function boolean opencom () library “lock739.dll”//打开串口 subroutine closecom() library “lock739.dll”//关闭串口 function long chkcard() library “lock739.dll”//检查卡是否到位 function long cmpsc(string sc) library “lock739.dll”//核对密码 function long writesc(string sc) library “lock739.dll”//修改加密卡密码 function long readsc(string inbuff,long sclen) library “lock739.dll”//度曲加密卡密码 function long rddat(long cardtype,long start,long ilen,ref string inbuff) library “lock739.dll”//读卡信息 function long wrdat(long cardtype,long start,long ilen,ref string outbuff)library “lock739.dll”//写卡信息 实例变量： public string sc=’272272272’ 写卡函数：wf_write(string as_arg1,long al_start,long al_len) /*参数 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(“提示”,”写卡成功!”) 读卡函数：wf_read(string as_arg1,long al_start,long al_len) /*参数 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(“提示”,”读卡成功!”) 显示错误函数：wf_errormessage(long lerror) choose case lerror case 1 messagebox(“提示”,”写入错误或密码错误！”) case 2 messagebox(“提示”,”卡已损坏或参数越界！“) case 3 messagebox(“提示”,”请插卡！”) case 4 messagebox(“提示”,”通讯错误！”) case else messagebox(“提示”,”未知错误！”) end choose 初始化卡函数wf_initialcard(long al_port) /*参数:long al_port 传入读写器使用的串口*/ psotpara(al_port,””)
