『分享』IFIX冗余系统之切换主节点代码-专业自动化论坛-中国工控网论坛

『分享』IFIX冗余系统之切换主节点代码点击：3021 | 回复：16

精华：1帖
求助：0帖
帖子：50帖 | 31回
年度积分：0
历史总积分：458
注册：2006年2月08日

发表于：2006-11-21 12:17:00

楼主

IFIX切换回主节点代码
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 FailOverToPrimary(ScadaID As String)
'ScadaID表示网络节点名
Dim strMyName As String '表示当前节点
Dim strActiveNode As String
Dim vActNode As Variant '表示活动节点 (0 = 主节点, > 1 = 备节点)
Dim vPrimStat
Dim strPrimStatus As String '表示主节点状态 (例如: "OK")
On Error Resume Next
strMyName = GetLocalNode '获得节点名
strActiveNode = "Fix32." & strMyName & ".nsd.f_curactivenode_" & ScadaID
vActNode = ReadValue(strActiveNode)
If vActNode <> 0 Then '当活动节点是备节点时，切换
strPrimStatus = "Fix32." & strMyName & ".nsd.a_primarystatus_" & ScadaID
    vPrimStat = ReadValue(strPrimStatus)
    If vPrimStat = "OK" Then writevalue "0", strActiveNode
End If
End Sub
―――――――――――以下是调用代码，以定时器为例―――――――――――――
Private Sub FixTimer3_OnTimeOut(ByVal lTimerId As Long)
FailOverToPrimary "0"
End Sub
――――――――――――――――――――――――――――――――――――――――
[color=#FF0000]以上代码由杭州集益科技有限公司提供，转载请复制此段内容！
杭州集益科技网址 www.jiyitech.com   下载中心有丰富的IFIX资料！
IFIX交流群：21259526   这里有专业的IFIX技术支持，欢迎加入！
在此群中有杭州集益科技不定期的网络培训！！[/color]

分享到：

邀请回答

回复楼主

昆仑摩勒

精华：1帖
求助：1帖
帖子：32帖 | 446回
年度积分：0
历史总积分：1058
注册：2004年11月22日

发表于：2006-11-21 12:54:00

1楼

收下了谢谢~~~~~~~~~

回复引用举报

shhx

精华：0帖
求助：0帖
帖子：11帖 | 95回
年度积分：0
历史总积分：3355
注册：2005年7月29日

发表于：2006-12-14 23:17:00

2楼

呵呵,不错

回复引用举报

gelic

精华：0帖
求助：0帖
帖子：5帖 | 42回
年度积分：0
历史总积分：121
注册：2005年10月12日

发表于：2006-12-15 10:52:00

3楼

切换到备用节点后，不用管他，等主节点恢复后，仍然运行在备用节点，当备用节点出问题，自动又会切换到主节点。

回复引用举报

杭州集益

精华：0帖
求助：0帖
帖子：10帖 | 4回
年度积分：0
历史总积分：32
注册：2006年10月17日

发表于：2007-01-05 11:47:00

4楼

GE IFIX/PLC资料 4G的DVD资料免费快递送

把公司名称和地址，姓名，联系电话发到
e－mail：spftony@163.com

我们会寄DVD光盘给大家

DVD资料内容: http://www.jiyitech.com/DVD/Menu.files/frame.htm

Email标题：IFIX资料索取

内容：公司名称和详细地址，姓名，联系电话,邮编

回复引用举报

杭州集益科技