onlinedll.bas

来自「MR320数据采集程序」· BAS 代码 · 共 755 行 · 第 1/2 页

 ByVal Parity As Integer) As Integer

Declare Function Online_TcpIpEx _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Host As String, _
 ByVal Port As String, _
 ByVal Time As String) As Integer

Declare Function Online_TcpIp _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Host As String, _
 ByVal Port As String, _
 ByVal Time As String) As Integer

Declare Function Online_ModemInit _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Delay As Long, _
 ByVal hList As Long, _
 ByVal Msg As String, _
 ByVal nMax As Long, _
 ByVal Init As String) As Integer

Declare Function Online_ModemDialEx _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Delay As Long, _
 ByVal hList As Long, _
 ByVal Msg As String, _
 ByVal nMax As Long, _
 ByVal Dial As String, _
 ByVal Phone As String, _
 ByVal Retry As Integer) As Integer

Declare Function Online_ModemDial _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Delay As Long, _
 ByVal hList As Long, _
 ByVal Msg As String, _
 ByVal nMax As Long, _
 ByVal Dial As String, _
 ByVal Phone As String) As Integer

Declare Function Online_ModemHangUp _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Delay As Long, _
 ByVal hList As Long, _
 ByVal Msg As String, _
 ByVal nMax As Long, _
 ByVal HangUp As String) As Integer

Declare Function Online_ModemWaitForCall _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Delay As Long, _
 ByVal hList As Long, _
 ByVal Msg As String, _
 ByVal nMax As Long) As Integer

Declare Sub Online_ModemATCmd _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal ATCmd As String)

Declare Function Online_ModemEcho _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Msg As String, _
 ByVal nMax As Long) As Integer

Declare Function Online_GetVersion _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Sub Online_ACK _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer)

Declare Sub Online_NAK _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer)

Declare Function Online_ESC_A _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer) As Integer

Declare Function Online_ESC_H _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer) As Integer

Declare Function Online_ESC_0 _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_POLL _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_BELL _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer) As Integer

Declare Function Online_ESC_9 _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_G _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_I _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal bAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_R _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_5 _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal nAdd As Integer) As Integer

Declare Function Online_ESC_K _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Data As Integer) As Integer

Declare Function Online_ESC_M _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String) As Integer

Declare Function Online_ESC_N _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Data As Integer) As Integer

Declare Function Online_ESC_O _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_ESC_P _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_ESC_B _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_ESC_C _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_ESC_T _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, ByVal Addr As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer, _
 ByVal ISet As Integer) As Integer

Declare Function Online_ESC_V _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_FindFirst _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Info As String, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_FindNext _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal Addr As Integer, _
 ByVal Info As String, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_D _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_E _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_ESC_J _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_L _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_ESC_U _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_ESC_Y _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_Z _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer) As Integer

Declare Function Online_ESC_X _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByVal bLen As Integer) As Integer

Declare Function Online_DBG _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal Msg As String, _
 ByRef bLen As Byte) As Integer

Declare Function Online_ESC_BCFG _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
Alias "Online_ESC_B" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByRef Dat As BARCFG, _
 ByVal bLen As Integer) As Integer
' bLen = 7

Declare Function Online_ESC_CCFG _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
Alias "Online_ESC_C" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByRef Dat As COMCFG, _
 ByVal bLen As Integer) As Integer
' bLen = 9

Declare Function Online_ESC_TCFG _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
Alias "Online_ESC_T" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByRef Dat As TRMCFG, _
 ByVal bLen As Integer, ByVal Setting As Integer) As Integer
' bLen = 15

Declare Function Online_ESC_VCFG2 _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
Alias "Online_ESC_V" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByRef Dat As DEVCFG2, _
 ByVal bLen As Integer) As Integer
' bLen = 8

Declare Function Online_ESC_VCFG5 _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
Alias "Online_ESC_V" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByRef Dat As DEVCFG5, _
 ByVal bLen As Integer) As Integer
' bLen = 6

Declare Function Online_ESC_VCFG8 _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
Alias "Online_ESC_V" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByRef Dat As DEVCFG8, _
 ByVal bLen As Integer) As Integer
' bLen = 6

Declare Function Online_DnLoad _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal sName As String, _
 ByVal lName As String, _
 ByVal Timeout As Long, _
 ByVal Retry As Integer) As Integer

Declare Function Online_UpLoad _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal tAdd As Integer, _
 ByVal lName As String, _
 ByVal sName As String, _
 ByVal Timeout As Long, _
 ByVal Retry As Integer) As Integer

Declare Function Online_StLoad _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal CommData As Long, _
 ByVal iStop As Integer, _
 ByRef sSize As Long, _
 ByRef lSize As Long) As Integer

Declare Function Online_ResetMR053 _
Lib "C:\OnlineCommManager\OnlineDll.Dll" _
(ByVal Host As String, _
 ByVal Port As String, _
 ByVal Time As String) As Integer