Attribute VB_Name = "XCRF500Wapi"
'*************************************************************
'版本說明：本模塊為XCRF-500W型讀寫器API 接口聲明 1.0版本
'          動(dòng)態(tài)庫對(duì)應(yīng)Visual Basic模塊文件
'
'
'修改日期：2004-06-22
' '***********************注意修改
'代碼編寫：孫銘
'*************************************************************
Option Explicit

'Public glbIdStr As String '保存讀到標(biāo)簽的id,用于傳遞給其他窗體 2004-10-29 sunming 增加
Public Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long

'全局定義
'Public isReaderOpen As Boolean   ' 讀寫器是否已經(jīng)打開

'Public hCom As Long        ' 串口句柄
'Public aStatus As Long  ' api 函數(shù)狀態(tài)
'Public aCardType As Byte   ' 標(biāo)簽類型
Public Const INVALID_HANDLE_VALUE = -1

'波特率設(shè)置說明
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      '  沒有數(shù)據(jù)返回，接收數(shù)據(jù)長度不足
Public Const ERROR_HANDLE_VALUE = -1      '  錯(cuò)誤的端口句柄
Public Const ERROR_USERDATA_LEN = -2      '  用戶數(shù)據(jù)長度錯(cuò)
Public Const ERROR_USERDATA_ADDRESS = -3  '  用戶數(shù)據(jù)地址錯(cuò)
Public Const ERROR_RECEIVEDATA_LEN = -4   '  接收數(shù)據(jù)長度不符
Public Const ERROR_SENDDATA_FAIL = -5     '  數(shù)據(jù)格式錯(cuò)誤 0X3F
Public Const ERROR_SENDCOMMOND_FAIL = -6  '  發(fā)送命令失敗
Public Const ERROR_READWRITE_FAIL = -7    '  讀寫數(shù)據(jù)失敗
Public Const ERROR_IDENTIFY_FAIL = -8     '  識(shí)別標(biāo)簽ID失敗 0X3A

Public Const ERROR_PORT_OPENED = -10      '  端口已經(jīng)打開,句柄非INVALID_HANDLE_VALUE
Public Const ERROR_CONFIG_LOST = -11      '  配置文件未找到或讀取失敗,主要參數(shù)無法初始化
Public Const ERROR_CONNECT_FAIL = -12     '  連接失敗
Public Const ERROR_OPENPORT_FAIL = -13    '  打開端口失敗
Public Const ERROR_CLOSEPORT_FAIL = -14   '  關(guān)閉端口失敗

Public Const ERROR_PARAMETER_LEN = -15    '  查詢/設(shè)定參數(shù)數(shù)據(jù)長度超出
Public Const ERROR_PARAMETER_FAIL = -16   '  查詢/設(shè)定參數(shù)失敗

Public Const ERROR_OTHER_FAIL = -20       '  其它錯(cuò)誤失敗

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
'關(guān)閉通訊端口
Declare Function XCClose Lib "XCRF500API.dll" ( _
    ByRef hCom As Long _
) As Long

'功率測(cè)試
Declare Function XCPowerOn Lib "XCRF500API.dll" ( _
    ByVal hCom As Long _
) As Integer
'關(guān)閉功率，停止讀卡
Declare Function XCPowerOff Lib "XCRF500API.dll" ( _
    ByVal hCom As Long _
) As Long
'讀ID號(hào)
'返回值：已經(jīng)讀到ID號(hào)的標(biāo)簽數(shù)量
Declare Function XCIdentify Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal TagType As Byte, _
    ByVal ucAntenna As Byte, _
    ByVal ucScanTimes As Byte _
) As Integer
'返回標(biāo)簽ID
'返回值：接收數(shù)據(jù)字節(jié)長度>7，時(shí)為讀到ID號(hào)
Declare Function XCReport Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByRef pIdentify As Byte _
) As Long
'讀數(shù)據(jù)
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
'寫數(shù)據(jù)
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
'系統(tǒng)復(fù)位操作
Declare Function XCReset Lib "XCRF500API.dll" ( _
    ByVal hCom As Long _
) As Long

'查詢?cè)O(shè)備狀態(tài)
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
'設(shè)置設(shè)備參數(shù)
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
    
'報(bào)警設(shè)置
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號(hào)
'返回值：已經(jīng)讀到ID號(hào)的標(biāo)簽數(shù)量
Declare Function XCLongIdentify Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByVal TagType As Byte, _
    ByVal ucAntenna As Byte, _
    ByVal ucScanTimes As Byte _
) As Integer
'返回標(biāo)簽ID
'返回值：接收數(shù)據(jù)字節(jié)長度>7，時(shí)為讀到ID號(hào)
Declare Function XCLongReport Lib "XCRF500API.dll" ( _
    ByVal hCom As Long, _
    ByRef pReciveData As Byte _
) As Long