• 当前位置:首页>>VC语言>>VC基础教程>>在PowerBulider中读写IC卡
  • 在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,””)

    以上的例子代码所使用的ic卡为sle4442 加密存储器卡,读卡器为wb1000 IC卡读写器
    通过以上代码的示例,实现与外部设备的通讯,并不是一件很难的时吧?!

    [1]

  • 上一篇:PB中保存图片
    下一篇:用PB编写邮件应用程序