Sockets multi clients

**shinji_rem** · 26/06/2007, 15h10

Bonjour,

je suis sur un appli serveur avec plusieurs clients, mais dans ma fonction de réception des messages, je reçois seulement ceux de mon premier client, mais pas du second.

Je lance cette appli soit en mode client, soit en mode serveur.

J'ai fait des test et mes clients sont bien connectés, voici un extrait du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
' mode serveur
    Private Sub SocketListen()
        socketServer = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        socketServer.Bind(New IPEndPoint(ipServer, 15))
        socketServer.Listen(10)
        socketServer.BeginAccept(New AsyncCallback(AddressOf connexionAcceptCallback), socketServer)
 
    End Sub
 
    Private Sub connexionAcceptCallback(ByVal asyncResult As IAsyncResult)
        MsgBox("connexionAcceptCallback")
        s2 = socketServer.EndAccept(asyncResult)
        s2.BeginReceive(tempBuffer, 0, tempBuffer.Length, SocketFlags.None, AddressOf ReceiveCallback, socketClient)
    End Sub
 
    ' mode client
    Private Sub ConnectToServer()
        socketClient = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        socketClient.BeginConnect(New IPEndPoint(ipServer, 15), AddressOf ConnexionConnectCallback, socketClient)
    End Sub
 
    Private Sub ConnexionConnectCallback(ByVal asyncResult As IAsyncResult)
        If socketClient.Connected = False Then
            MsgBox("La connexion vers le serveur a échouée")
        Else
            socketClient.BeginReceive(tempBuffer, 0, tempBuffer.Length, SocketFlags.None, AddressOf ReceiveCallback, socketClient)
            socketClient.EndConnect(asyncResult)
        End If
    End Sub
 
    ' callback pour la reception des messages
    Private Sub ReceiveCallback(ByVal asyncResult As IAsyncResult)
        Dim mesg As String
 
        MsgBox(System.Text.Encoding.ASCII.GetString(tempBuffer))
 
        If mode = "server" Then
            Dim read As Integer = s2.EndReceive(asyncResult)
            s2.BeginReceive(tempBuffer, 0, tempBuffer.Length, SocketFlags.None, AddressOf ReceiveCallback, s2)
            mesg = System.Text.Encoding.ASCII.GetString(tempBuffer)
            ' si le serveur recoit un message de type end il incremente son compteur
            If (StrComp(mesg, "end")) Then
                counter += 1
                If myVideo.Playing = False And counter = 2 Then
                    PlayVideos()
                End If
            End If
 
        ElseIf mode = "client" Then
            Dim read As Integer = socketClient.EndReceive(asyncResult)
            socketClient.BeginReceive(tempBuffer, 0, tempBuffer.Length, SocketFlags.None, AddressOf ReceiveCallback, socketClient)
            mesg = System.Text.Encoding.ASCII.GetString(tempBuffer)
            ' si le client recoit un message de type replay il relance sa video
            If (StrComp(mesg, "replay")) Then
                myVideo.Play()
            End If
        End If
    End Sub
 
    ' callback pour l'envoi des messages
    Private Sub SendCallback(ByVal asyncResult As IAsyncResult)
        If mode = "server" Then
            Dim send As Integer = s2.EndSend(asyncResult)
        ElseIf mode = "client" Then
            Dim send As Integer = socketClient.EndSend(asyncResult)
        End If
    End Sub