xcrf500wapi(err).bas

这个是我们为烟草行业出厂管理编写的RFID读写软件

Attribute VB_Name = "XCRF500Wapi"
'*************************************************************
'版本说明：本模块为XCRF-500W型读写器API 接口声明 1.0版本
'          动态库对应Visual Basic模块文件
'
'
'修改日期：2004-06-22
' '***********************注意修改
'代码编写：孙铭
'*************************************************************
Option Explicit

'Public glbIdStr As String '保存读到标签的id,用于传递给其他窗体 2004-10-29 sunming 增加
Public Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long

'全局定义
'Public isReaderOpen As Boolean   ' 读写器是否已经打开

'Public hCom As Long        ' 串口句柄
'Public aStatus As Long  ' api 函数状态
'Public aCardType As Byte   ' 标签类型
Public Const INVALID_HANDLE_VALUE = -1

'波特率设置说明
Public Const B2400 = &H9
Public Const B4800 = &HA
Public Const B7200 = &HB
Public Const B9600 = &HC
Public Const B19200 = &HD
Public Const B38400 = &HE
Public Const B57600 = &HF

Public Const FUCCESS_RETURN = 1           '  操作成功返回

Public Const ERROR_NODATA_RETURN = 0      '  没有数据返回，接收数据长度不足
Public Const ERROR_HANDLE_VALUE = -1      '  错误的端口句柄
Public Const ERROR_USERDATA_LEN = -2      '  用户数据长度错
Public Const ERROR_USERDATA_ADDRESS = -3  '  用户数据地址错
Public Const ERROR_RECEIVEDATA_LEN = -4   '  接收数据长度不符
Public Const ERROR_SENDDATA_FAIL = -5     '  数据格式错误 0X3F
Public Const ERROR_SENDCOMMOND_FAIL = -6  '  发送命令失败
Public Const ERROR_READWRITE_FAIL = -7    '  读写数据失败
Public Const ERROR_IDENTIFY_FAIL = -8     '  识别标签ID失败 0X3A

Public Const ERROR_PORT_OPENED = -10      '  端口已经打开,句柄非INVALID_HANDLE_VALUE
Public Const ERROR_CONFIG_LOST = -11      '  配置文件未找到或读取失败,主要参数无法初始化
Public Const ERROR_CONNECT_FAIL = -12     '  连接失败
Public Const ERROR_OPENPORT_FAIL = -13    '  打开端口失败
Public Const ERROR_CLOSEPORT_FAIL = -14   '  关闭端口失败

Public Const ERROR_PARAMETER_LEN = -15    '  查询/设定参数数据长度超出
Public Const ERROR_PARAMETER_FAIL = -16   '  查询/设定参数失败

Public Const ERROR_OTHER_FAIL = -20       '  其它错误失败

Type TagID
    id(8) As Long
End Type

'----------------------------------------------------------
'打开通讯端口
Declare Function XCOpen Lib "XCRF500API.dll" ( _
    ByRef hCom As Long, _
    ByVal lsCfgFile As String, _
    ByVal CfgItemName As String _
) As Long
'关闭通讯端口
Declare Function XCClose Lib "XCRF500API.dll" ( _
    ByRef hCom As Long _
) As Long

'功率测试
Declare Function XCPowerOn Lib "XCRF500API.dll" ( _
    ByVal hCom As Long _
) As Integer
'关闭功率，停止读卡
Declare Function XCPowerOff Lib "XCRF500API.dll" ( _
    ByVal hCom As Long _
) As Long
'读ID号
'返回值：已经读到ID号的标签数量
Declare Function XCIdentify Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal TagType As Byte, _
    ByVal ucAntenna As Byte, _
    ByVal ucScanTimes As Byte _
) As Integer
'返回标签ID
'返回值：接收数据字节长度>7，时为读到ID号
Declare Function XCReport Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByRef pIdentify As Byte _
) As Long
'读数据
Declare Function XCReadUserData Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal TagType As Byte, _
    ByVal TagAddr As Byte, _
    ByVal TagSize As Byte, _
    ByRef pTagID As Byte, _
    ByRef pValue As Byte _
) As Long
'写数据
Declare Function XCWriteUserData Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal TagType As Byte, _
    ByVal TagAddr As Byte, _
    ByRef pTagID As Byte, _
    ByRef pValue As Byte, _
    ByVal nLength As Byte _
) As Long
'系统复位操作
Declare Function XCReset Lib "XCRF500API.dll" ( _
    ByVal hCom As Long _
) As Long

'查询设备状态
Declare Function XCSysQuery Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal Sys_addr As Long, _
    ByVal Size As Long, _
    ByRef pdata As Byte _
) As Long
'设置设备参数
Declare Function XCSysSet Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal Sys_addr As Long, _
    ByVal Size As Long, _
    ByRef pdata As Byte _
) As Long
'读写器口令修改
Declare Function XCPassWordSet Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal OldPwd As String, _
    ByVal NewPwd As String _
    ) As Long
'IP地址修改
Declare Function XCNetAddrSet Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal Pwd As String, _
    ByVal CfgItemName As String, _
    ByVal IP_Addr As String, _
    ByVal NetMark As String, _
    ByVal Gateway As String _
    ) As Long
    
'报警设置
Declare Function XCSysFastSet Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal iInfoType As Long, _
    ByVal size As Long, _
    ByRef Param As Byte _
    ) As Byte

'******************************* add in 2005-05-04 *****************
'读ID号
'返回值：已经读到ID号的标签数量
Declare Function XCLongIdentify Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal TagType As Byte, _
    ByVal ucAntenna As Byte, _
    ByVal ucScanTimes As Byte _
) As Integer
'返回标签ID
'返回值：接收数据字节长度>7，时为读到ID号
Declare Function XCLongReport Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByRef pReciveData As Byte _
) As Long