Need a sample of code.

[xT-Dart-Tx]

I need some code for winsock, I couldnt find it anywhere.
If the connection is dropped, it connects to a different server. But I have 4 servers I want to switch around.

So lets say one is

z.z.z.z and it fails it goes to
y.y.y.y and it fails it goes to
x.x.x.x and it fails it goes to
w.w.w.w and if it fails to goes back to z.z.z.z and so on and so forth.

Help?

[Jean.B]

make a string array for those 4 servers and 1 integer variable.. Connect to 1st address in array and set integer value to 1. Then check winsock state, if the connection is not made then close winsock and jump to next server in array (array(yourInteger + 1). and so on.. If yourInteger=4 then Yourinteger=1 again.. To check if server is working you can use Winsock_Connect event, and a timer for timeout.

[xT-Dart-Tx]

Example please.

[Al42]

Something like

Dim sServer As String(4)
 
Private Sub Form_Activate()
 
  sServer(0) = "z.z.z.z"
  sServer(1) = "y.y.y.y"
  sServer(2) = "x.x.x.x"
  sServer(3) = "w.w.w.w"
 
End Sub
 
Private Sub ConnectToServer()
Dim s As String, i As Integer
 
  Do
    ConnectToServer(sServer(i))
    if ConnectedToServer Then Exit Do
    i = i + 1
    If i = 4 Then i = 0
  While Not ConnectedToServer
 
'rest of code if connected
 
End Sub
 
Private Sub ConnectToServer(sServerName As String)
'code to connect to server
End Sub
 
Private Function ConnectedToServer() As Boolean
'code to determine whether we're connected to server
'wait while we're connecting - we should get either a connection or a timeout
  ConnectedToServer = 'True if we connected, False if we timed out
End Function

[xT-Dart-Tx]

Hmm, what about if we dont recieve data it switches to the next server?