module1.bas

opc client 的开发工具

Attribute VB_Name = "mOPC"
Global ClsID As String
Global ProgID As String
Global Description As String
Global InitOPCOK As Boolean

''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  InitOPCSvr
'功能    :  初始化服务器
'参数说明:  pCLSID  类标识  必须是一个合法的GUID
'          ServerRate 服务器标签刷新速率
''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function InitOPCSvr Lib "opcdll.dll" (ByVal pCLSID As String, _
         ByVal ServerRate As Long) As Long
         
''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  UninitOPCSvr
'功能    :  反初始化服务器
''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Sub UninitOPCSvr Lib "opcdll.dll" ()

''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  RunSvr
'功能    :  设置服务器为运行状态和初始化完毕状态
''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function RunSvr Lib "opcdll.dll" () As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  RegServer
'功能    :  注册服务器
'参数说明:  pCLSID      类标识  必须是一个合法的GUID
'           Name        应用程序标识
'           Descr       服务器注册说明
'           ExePath     服务器可执行文件的路径
''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function RegServer Lib "opcdll.dll" (ByVal pCLSID As String, _
         ByVal Name As String, ByVal Descr As String, ByVal ExePath As String) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  UnregServer
'功能    :  注销服务器
'参数说明:  pCLSID      类标识  必须是一个合法的GUID
'           Name         应用程序标识
''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Declare Function UnregServer Lib "opcdll.dll" (ByVal pCLSID As String, _
         ByVal Name As String) As Long
         
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  CreateTag
'功能    :  向服务器地址空间增加标签
'参数说明:  Name      类标识  必须是一个合法的GUID
'           Value           初始化标签值
'           InitialQuality  初始化标签值质量
'           IsWriteable     标签可写标志  true - 可以写入  false - 只读
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function CreateTag Lib "opcdll.dll" (ByVal Name As String, _
         ByVal Value As Variant, ByVal InitialQuality As Integer, ByVal IsWriteable As Long) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  SetTagProperties
'功能    :  向服务器地址空间标签属性
'参数说明:  TagHandle        标签句柄
'           PropertyID      属性索引
'           Description     标签属性说明
'           Value           属性值
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function SetTagProperties Lib "opcdll.dll" (ByVal TagHandle As Long, _
         ByVal PropertyID As Long, ByVal Description As String, ByVal Value As Any) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  UpdateTagWithTimeStamp
'功能    :  更新服务器地址空间标签数据
'参数说明:  TagHandle        标签句柄
'           Value           标签值
'           Quality         标签值质量
'           timestamp       标签值时间
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function UpdateTagWithTimeStamp Lib "opcdll.dll" (ByVal TagHandle As Long, _
         ByVal Value As Variant, ByVal Quality As Integer, timestamp As FILETIME) As Long

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  UpdateTag
'功能    :  更新服务器地址空间标签数据
'参数说明:  TagHandle        标签句柄
'           Value           标签值
'           Quality         标签值质量
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function UpdateTag Lib "opcdll.dll" (ByVal TagHandle As Long, ByVal Value As Variant, ByVal Quality As Integer) As Long
    
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  EnableWriteNotification
'功能    :  设置服务器写设备数据回调函数
'参数说明:  lpCallback      写防范回调函数指针
'           格式 WriteTag(ByVal Handle As Long, pNewValue As Variant, _
'                pDeviceError As Integer)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function EnableWriteNotification Lib "opcdll.dll" (ByVal lpCallback As Long) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  EnableDisconnectNotification
'功能    :  设置服务器客户端断开连接回调函数
'参数说明:  lpCallback      写防范回调函数指针
'           格式 ShutDownNotify(ByVal ConnectedNum As Long)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function EnableDisconnectNotification Lib "opcdll.dll" (ByVal lpCallback As Long) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数名称:  SetServerState
'功能    :  设置服务器状态
'参数说明:  SvrState      服务器状态
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Declare Function SetServerState Lib "opcdll.dll" (ByVal SvrState As Long) As Long