wisock

[basti42]

hello!
how can i send data? (server to all clients)
1. open 3 clients
2. close client1 (of course use for loop 1 to 3 and send to all)
3. i have condition in clents if recieved ("Close") then End/unload
4. open again client1
5. you can's use for loop again because 1 can't find because i closed it before

how to use my index then?
in the server winsock(0)

tnx

[debasisdas]

Can you post your code for reference of our experts please.

[basti42]

'client side

Private Sub Winsock1_Close()
On Error Resume Next
 Label3.Caption = ""
 Winsock1.Close
 Winsock1.Connect txtIP.Text, 1007
End Sub
 
Private Sub Winsock1_Connect()
 Label4.Caption = "Connected"
 Winsock1.SendData txtName.Text + "|" + Winsock1.LocalIP + "|" + Winsock1.LocalHostName
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
 
Winsock1.GetData sData, vbString
Winsock1.SendData "from " + txtName.Text + " - " + sData + "|" + "|"
'Label1.Caption = sData
txtPrice.Text = sData
Label3.Caption = "Received Data"
shpGo.Visible = True
shpWait.Visible = False
shpError.Visible = False
 If sData = txtName.Text Then
  Winsock1.Close
  End
 ElseIf sData = "Disconnected" Then
  Winsock1.Close
  Label4.Caption = "Disconnected"
 End If
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
 Winsock1.Close
 Winsock1.Connect txtIP.Text, 1007
 'Label4.Caption = "Disconnected1 " + err.Description
End Sub
 
 
Private Sub Timer1_Timer()
On Error GoTo err
 If Winsock1.State <> 7 Then
   Winsock1.Close
   Winsock1.Connect txtIP.Text, 1007
   Label4.Caption = "Disconnected2 " '+ Winsock1.State
 End If
 Exit Sub
err:
Winsock1.Close
Label4.Caption = "Disconnected " '+ CStr(Winsock1.State)
'MsgBox Winsock1.State
End Sub
 

'server side

Private Sub cmdPC_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
 If Button = vbRightButton Then
  cmdPC(Index).SetFocus
  sClientName = cmdPC(Index).Caption
  idxPC = Index
  idxSocket = Index
  PopupMenu mnu
 End If
End Sub
 
Private Sub mnuClose_Click()
Dim i As Long
 
'For i = 1 To iSockets
 If Socket(idxPC).State = sckConnected Then
   If cmdPC(idxPC).Enabled = True Then
     Socket(idxPC).SendData sClientName
     cmdPC(idxPC).Enabled = False
     List1.AddItem "send to: " + CStr(Socket(idxPC)) + "-" + sClientName
   Else
     MsgBox "client is not connected"
   End If
 End If
'Next
End Sub
 
Private Sub Form_Load()
    lblHostID.Caption = Socket(0).LocalHostName
    lblAddress.Caption = Socket(0).LocalIP
    Socket(0).LocalPort = 1007
    sServerMsg = "Listening to port: " & Socket(0).LocalPort
    List1.AddItem (sServerMsg)
    Socket(0).Listen
End Sub
 
Private Sub socket_Close(Index As Integer)
    sServerMsg = "Connection closed: " & Socket(idxPC).RemoteHostIP
    List1.AddItem (sServerMsg)
    Socket(idxPC).Close
    Unload Socket(idxPC)
    cmdPC(idxPC).Enabled = False
    iSockets = iSockets - 1
    lblConnections.Caption = iSockets
End Sub
 
Private Sub socket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error GoTo err
  sServerMsg = "Connection request id " & requestID & " from " & Socket(Index).RemoteHostIP
 
  If Index = 0 Then
    'List1.AddItem (sServerMsg)
    sRequestID = requestID
    If err.Number = 360 Then
     Socket(0).Close
     Socket(0).Listen
    End If
    iSockets = iSockets + 1
    lblConnections.Caption = iSockets
    Load Socket(iSockets)
    'Load Socket(Socket.UBound + 1)
    Socket(iSockets).LocalPort = 1007
    Socket(iSockets).Accept requestID
    Label1.Caption = ""
  End If
 
  Exit Sub
err:
 Socket(0).Close
 Socket(0).Listen
 iSockets = 0
 'iSockets = iSockets - 1
 Label1.Caption = CStr(err.Number) + " " + err.Description + "-" + sClientName
End Sub
 
Private Sub socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
 Socket(Index).GetData strReceived
 strSplit() = Split(strReceived, "|")
 sClientName = strSplit(0)
 strIP = strSplit(1)
 strHostName = strSplit(2)
 txtClientName.Text = sClientName
 txtHostName.Text = strHostName
 txtIP.Text = strIP
 List1.AddItem (sServerMsg + "-" + sClientName)
  Select Case (sClientName)
    Case "PC1"
      Index = 1
      cmdPC(Index).Enabled = True
    Case "PC2"
      Index = 2
      cmdPC(Index).Enabled = True
    Case "PC3"
      Index = 3
      cmdPC(Index).Enabled = True
  End Select
End Sub
 

hope it will help, with simple server and 1 client there is no problem
but server and many clients kinda tricky...