在PowerBulider中读写IC卡

原创 2004年09月21日 19:06:00
在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卡读写器
通过以上代码的示例,实现与外部设备的通讯,并不是一件很难的时吧?!

在PowerBulider中读写IC卡

在写相关的信息管理系统时,有时会遇见读写相关的外部设备等问题,这类的问题,在PowerBulider中实现这类的功能并不是一件难事,现在的相关外部设备厂商在提供产品时,基本都提供了相关编程接口,利用这...
  • hui2006
  • hui2006
  • 2006年08月04日 16:02
  • 899

网页调用智能IC卡读写器的解决方案

一、 把智能IC卡读写器的开发接口做成OCX或ActiveX控件           和几家做IC卡读写设备的厂商的工程师沟通过,通常的做法是把IC卡读写器的开发接口封装成OCX控件或Acti...
  • wokuaile123321
  • wokuaile123321
  • 2014年09月15日 15:28
  • 2055

安卓NFC读写非接触IC卡实例

 安卓NFC读写非接触IC卡实例 http://www.okbase.net/file/item/28595
  • dongsheng186
  • dongsheng186
  • 2015年04月08日 11:27
  • 1873

USB接口IC读写器oem软件_AB密码完整解决方案/读写卡测试程序及源代码/VB源代码

界面    详细代码如下:   Open the comportPrivate Declare Function piccreadex Lib "sycomdll.dll" (ByVal ctrlwo...
  • car_reader
  • car_reader
  • 2011年06月17日 11:25
  • 1277

ic卡读写器:非接触式IC卡的读写程序怎么写?

        关IC卡没有任何关系,主要是读卡器的问题,看你的是串口,还是USB啊,如果是USB的应该就有相应的动态库,如果说是串口就按相关的协议进行串口读写即可.          有window...
  • zhouyu5241
  • zhouyu5241
  • 2008年12月05日 13:24
  • 4824

C#程序开发范例_IC卡读写

C#程序开发范例_IC卡读写 13.3 IC卡应用 IC(Integrated Circuit)卡,也被称作智能卡(Smart Card),具有写入数据和存储数据的功能,IC卡内存储器的内容...
  • yjg428
  • yjg428
  • 2011年01月05日 21:03
  • 2540

IC卡读写

IC卡应用 IC(Integrated Circuit)卡,也被称作智能卡(Smart Card),具有写入数据和存储数据的功能,IC卡内存储器的内容可以根据需要有条件地供外部读取,完成信息处理和判...
  • zhensoft163
  • zhensoft163
  • 2009年02月18日 17:59
  • 7040

C# 读IC卡程序

本例使用的是深圳明华生产的明华IC卡读写器,用户在使用时将驱动程序安装完毕后,即可正常使用本系统。 本例通过调用Mwic_32.dll链接库,进行IC卡的读写工作。下面介绍与IC卡写操作相关的几...
  • red_sky_blue
  • red_sky_blue
  • 2014年12月19日 14:58
  • 1942

IC卡读写器DELPHI源代码

   详细代码: #ifndef _EXPORT_FUNC_H_#define _EXPORT_FUNC_H_//广州荣士电子有限公司,联系电话020-82318861,82322852,定制1382...
  • car_reader
  • car_reader
  • 2011年06月16日 16:28
  • 1648

常用智能IC卡芯片类型

今天的半导体技术使通过减少结构在相同大小的硅片上封装越来越多的功能成为可能。这就在不增加芯片面积的同时扩大了芯片卡的存储容量和处理能力。 一般IC卡所使用的主要芯片分为通用芯片和专用芯片两大类...
  • u012521203
  • u012521203
  • 2015年09月12日 20:13
  • 1487
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在PowerBulider中读写IC卡
举报原因:
原因补充:

(最多只允许输入30个字)