Public Function WinsockNet()
mainform.SysWinsock(0).Close
mainform.SysWinsock(0).RemoteHost = m_sWritingServerIP
mainform.SysWinsock(0).RemotePort = Val(m_sWritingServerPort)
mainform.SysWinsock(0).Connect
End Function
Public Function WinsockNet_2()
mainform.SysWinsock(1).Close
mainform.SysWinsock(1).RemoteHost = m_sWritingServerIP_2
mainform.SysWinsock(1).RemotePort = Val(m_sWritingServerPort_2)
mainform.SysWinsock(1).Connect
End Function
我現在時用上面兩個直接鏈接2個IP
但這兩個IP未必時都能連上，所以我用如下代碼進行重連
If mainform.SysWinsock(0).State <> 7 Then
m_lpSysWarningTwo = m_lpSysWarningTwo Or MCA_DATASERVER_UNCONNECTED '網路中斷
Call WinsockNet
end if
If mainform.SysWinsock(1).State <> 7 Then
m_lpSysWarningThree = m_lpSysWarningThree Or MCA_DATASERVER_UNCONNECTED_TWO '網路中斷
Call WinsockNet_2
end if
但是現在當我SysWinsock(0)連不上時，接收的資訊正常，但是當我時SysWinsock(1)連不上時 SysWinsock(0)接收不到資訊
請問這種情況該怎么撰寫鏈接的程式
uj5u.com熱心網友回復：
tcp重連機制的水很深、很深。試試每次重連之前延遲30秒。
如何延遲參考下面：
http://bbs.csdn.net/topics/391882378
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81869.html
標籤：控件
上一篇：vb 串口通信快取區不會清除