Attribute VB_Name = "XCRF500Wapi"
'*************************************************************
'版本說明：本模塊為XCRF-500W型讀寫器API 接口聲明 1.2.2版本
'          動態庫對應Visual Basic模塊文件
'
'
'修改日期：2004-06-28
' '***********************注意修改
'代碼編寫：孫銘
'*************************************************************
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