readeriniop.bas

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

'    ft.WriteLine "XC_GATE=" & gateway
'    ft.WriteLine "XC_SCAN_TRIES=5"
'    ft.WriteLine "XC_RETRIES=1"
'    ft.WriteLine "XC_READ_TRIES=0"
'    ft.WriteLine "XC_WRITE_TRIES=0"
'    ft.WriteLine "XC_ANTENNAS=2"
'    ft.WriteLine "XC_ANTENNA_CONCTL=0"
'    ft.WriteLine "XC_SAVE_LOG_FILE=0"
'    ft.WriteLine "XC_LOG_FILE_NAME="
'
'    '写入2个空行
'    ft.WriteBlankLines 2
'
'    '写入警告信息
'    ft.WriteLine ";－－－－－－－－RFID API参数设置文件－－－－－－－－－－"
'    ft.WriteLine ";－－－－－请勿删除和修改，否则系统将无法正常运行！！！－－－－－"
'
'
'    '初始化INI文件成功
'    InitRFID_API_INIFile = True
'
'    Call PDTRACELOG(2, "000-ModeWithINI.bas", "------in InitRFID_API_INIFile")
'    Exit Function
'Err:
'    '显示错误信息
'    Call PDTRACELOG(1, "000-ModeWithINI.bas", "---初始化参数设置INI文件失败 in InitRFID_API_INIFile")
'
'     '初始化INI文件失败
'    InitRFID_API_INIFile = False
'
'    Call PDTRACELOG(2, "000-ModeWithINI.bas", "------out InitRFID_API_INIFile")
'End Function
'
''***************************************************
''功能：初始化RFID Ctrl INI文件
''***************************************************
'Public Function InitRFIDCtrlINIFile(ft As Scripting.TextStream) As Boolean
'    On Error Resume Next
'
''    Call PDTRACELOG(2, "000-ModeWithINI.bas", "------in InitRFIDCtrlINIFile")
'
''    On Error GoTo Err
'
'    '写入警告信息
'    ft.WriteLine ";－－－－－－－－RFID设备参数设置文件－－－－－－－－－－"
'    ft.WriteLine ";－－－－－请勿删除和修改，否则系统将无法正常运行！！！－－－－－"
'
'    '写入2个空行
'    ft.WriteBlankLines 2
'
'    '定义LOG参数
'    ft.WriteLine "[LOG]"
'    ft.WriteLine "Level = 1"
'    ft.WriteLine "KeepDays = 7"
'
'
'    '写入2个空行
'    ft.WriteBlankLines 2
'
'    ft.WriteLine "[Param]"
'    ft.WriteLine "PollingInterval=1"
'    ft.WriteLine "DispatchMethodWhenGetID=1"
'    ft.WriteLine "SameIDinterval=300"
'    ft.WriteLine "ReaderResponseTimeout=200"
'
'    '写入2个空行
'    ft.WriteBlankLines 2
'
'    '写入警告信息
'    ft.WriteLine ";－－－－－－－－RFID设备参数设置文件－－－－－－－－－－"
'    ft.WriteLine ";－－－－－请勿删除和修改，否则系统将无法正常运行！！！－－－－－"
'
'
'    '初始化INI文件成功
'    InitRFIDCtrlINIFile = True
'
''    Call PDTRACELOG(2, "000-ModeWithINI.bas", "------in InitRFIDCtrlINIFile")
'    Exit Function
'Err:
'    '显示错误信息
''    Call PDTRACELOG(1, "000-ModeWithINI.bas", "---初始化参数设置INI文件失败 in InitRFIDCtrlINIFile")
'
'     '初始化INI文件失败
'    InitRFIDCtrlINIFile = False
'
''    Call PDTRACELOG(2, "000-ModeWithINI.bas", "------out InitRFIDCtrlINIFile")
'End Function
'
'''***************************************************
'''功能：根据RFIDController的属性创建/修改相应的INI文件，
'''以便RFID设备初始化。
'''***************************************************
''Public Sub GenerateSettingFile(RFIDCtrlRef As RFIDCtrl)
''    On Error Resume Next
''
''    Call PDTRACELOG(2, "000-ModeWithINI.bas", "------in GenerateSettingFile")
''
''    '检查文件是否存在，如果不存在，创建之
''    CheckINIExist RFIDCtrlRef
''
''    '修改文件内容
''    Dim DetailParams(9) As String
''    DetailParams(0) = "XC_SUBNET"
''    DetailParams(1) = "XC_GATE"
''    DetailParams(2) = "XC_SCAN_TRIES"
''    DetailParams(3) = "XC_RETRIES"
''    DetailParams(4) = "XC_READ_TRIES"
''    DetailParams(5) = "XC_WRITE_TRIES"
''    DetailParams(6) = "XC_ANTENNAS"
''    DetailParams(7) = "XC_ANTENNA_CONCTL"
''    DetailParams(8) = "XC_SAVE_LOG_FILE"
''    DetailParams(9) = "XC_LOG_FILE_NAME"
''
''    Dim temp() As String
''    temp = Split(RFIDCtrlRef.OtherParam, "|")
''
''    'XC_PORT_TYPE COM “COM”串口通讯、“TCP”网络通讯
''    'XC_COM_NUMBER COM1 COM1-COM4 仅在COM通讯模式有效
''    'XC_HOST_NAME 192.168.0.210 本机的IP地址，仅在网络通讯模式有效
''    If RFIDCtrlRef.CommType = 0 Then 'tcp
''        WriteStringIntoINI READER_INI_ITEM, "XC_PORT_TYPE", "TCP"
''        WriteStringIntoINI READER_INI_ITEM, "XC_COM_NUMBER", "COM1"
''        WriteStringIntoINI READER_INI_ITEM, "XC_CONFIG_PORT", "COM1"
''        WriteStringIntoINI READER_INI_ITEM, "XC_HOST_NAME", UCase(Left(RFIDCtrlRef.CommParam, InStr(1, RFIDCtrlRef.CommParam, ":") - 1))
''    Else '1,com
''        WriteStringIntoINI READER_INI_ITEM, "XC_PORT_TYPE", "COM"
''        WriteStringIntoINI READER_INI_ITEM, "XC_COM_NUMBER", UCase(Left(RFIDCtrlRef.CommParam, InStr(1, RFIDCtrlRef.CommParam, ";") - 1))
''        WriteStringIntoINI READER_INI_ITEM, "XC_CONFIG_PORT", UCase(Left(RFIDCtrlRef.CommParam, InStr(1, RFIDCtrlRef.CommParam, ";") - 1))
''        WriteStringIntoINI READER_INI_ITEM, "XC_HOST_NAME", "192.9.100.1"
''    End If
''
''    Dim Index As Integer
''    For Index = 0 To 9
''        WriteStringIntoINI READER_INI_ITEM, DetailParams(Index), temp(Index + 1) 'temp(0)是配置文件的路径
''    Next
''
''    Call PDTRACELOG(2, "000-ModeWithINI.bas", "------out GenerateSettingFile")
''End Sub
''
'
'
''读取INI文件内容，初始化配置信息
'Public Sub InitCfgFromINIFile()
'
'    '判断INI配置文件是否存在
'    Call CheckRFIDCtrlINIExist
'
'    InnerPollingInterval = ReadIntFromINI("Param", "PollingInterval", RFIDCtrlINISettingFile)
'    If InnerPollingInterval = -1 Then
'        InnerPollingInterval = 1
'        WriteStringIntoINI "Param", "PollingInterval", "1", RFIDCtrlINISettingFile
'    End If
'
'    InnerDispatchMethodWhenGetID = ReadIntFromINI("Param", "DispatchMethodWhenGetID", RFIDCtrlINISettingFile)
'    If InnerDispatchMethodWhenGetID = -1 Then
'        InnerDispatchMethodWhenGetID = 1
'        WriteStringIntoINI "Param", "DispatchMethodWhenGetID", "1", RFIDCtrlINISettingFile
'    End If
'
'    InnerSameIDinterval = ReadIntFromINI("Param", "SameIDinterval", RFIDCtrlINISettingFile)
'    If InnerSameIDinterval = -1 Then
'        InnerSameIDinterval = 300
'        WriteStringIntoINI "Param", "SameIDinterval", "300", RFIDCtrlINISettingFile
'    End If
'
'    InnerReaderResponseTimeout = ReadIntFromINI("Param", "ReaderResponseTimeout", RFIDCtrlINISettingFile)
'    If InnerReaderResponseTimeout = -1 Then
'        InnerReaderResponseTimeout = 200
'        WriteStringIntoINI "Param", "ReaderResponseTimeout", "200", RFIDCtrlINISettingFile
'    End If
'
'    InnerLogLevel = ReadIntFromINI("LOG", "Level", RFIDCtrlINISettingFile)
'    If InnerLogLevel = -1 Then
'        InnerLogLevel = 1
'        WriteStringIntoINI "LOG", "Level", "1", RFIDCtrlINISettingFile
'    End If
'
'    InnerLogKeepDays = ReadIntFromINI("LOG", "KeepDays", RFIDCtrlINISettingFile)
'    If InnerLogKeepDays = -1 Then
'        InnerLogKeepDays = 7
'        WriteStringIntoINI "LOG", "KeepDays", "7", RFIDCtrlINISettingFile
'    End If
'
'    InnerLogPath = ReadStringFromINI("LOG", "LogPath", 255, RFIDCtrlINISettingFile)
'    If Trim(InnerLogPath) = "" Then
'        InnerLogPath = InnerWorkingFolder & "\Log"
'        WriteStringIntoINI "LOG", "LogPath", InnerLogPath, RFIDCtrlINISettingFile
'    End If
'End Sub