IFIX冗余时切换回主节点代码_GE_FANUC百度首页 | 百度空间 | 登录 GE_FANUC相互学习,共同进步! 主页博客相册|个人档案
查看文章
IFIX冗余时切换回主节点代码2007-02-28
11:38IFIX冗余时,当主节点停机,客户端将自动切换到备份节点。但此后即使主节点恢复正常,iFIX也不会从备份节点切换回主节点,直到备份节点停机才切换回主节点。可以运用如下代码将IFIX直接切换回主节点。
此段代码可以加到 调度、定时器、按钮等。
添加步骤:
1. 打开VBA,在Project_User中插入一个新的模块。
2. 将代码加到模块中。
3. 在合适的地方添加调用的代码
――――――――――――――――模块中代码――――――――――――――――――
Public Function GetLocalNode() As String
On Error Resume Next
Dim strMyName As String * 9
Dim iErr As Integer
Dim lngLength As Long
iErr = eda_get_my_physical_name(strMyName)
lngLength = InStr(1, strMyName, Chr(0)) – 1
If lngLength > 0 Then
strMyName = Left(strMyName, lngLength)
GetLocalNode = Trim(strMyName)
End If
End Function
Public Sub FailOverToPr