首页 >> 读书频道 >> 电脑 >> 在PowerBulider中读写IC卡
 
· 关于在 win2000
· PB通过OLEObjec
· 哪一个SQL net-l
· PB中读取地磅BCD解码
· 如何在SQL数据库中得到
· 浅析PowerBuild
· SQL问题汇编(3)
· PB中的数据窗口自动刷新
· 用SQL如何建立表?
· PB和EAServer共
· SQL问题汇编(1)
· 如何在PB中制作特殊形状
 
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

在PowerBulider中读写IC卡


查看有无更新版本

关键字:PowerBuilder 2006-9-21

 

在写相关的信息管理系统时,有时会遇见读写相关的外部设备等问题,这类的问题,在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卡读写器
通过以上代码的示例,实现与外部设备的通讯,并不是一件很难的时吧?!

在PowerBulider中读写IC卡

[ 1 ]
在PowerBulider中读写IC卡 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑