@Guilleto

Lorsqu'un client envoie un socjet seul le serveur le récupe.
Pour ce qui est de refuser un client déèja connecté, il est normalement impossible pour un client de se connecter 2 fois, sauf a utiliser si ce client utilise une adresse Ip différente pour chaque connexion

Bonjour BabBoss

Je me pose quelques questions au niveau du code.

Private Sub OnAcceptFailed(ByVal ex As Exception)
        Try
            If InvokeRequired() Then
                If m_AsyncEvent Then
                    m_Sync.BeginInvoke(CallAcceptFailed, New Object() {ex})
                Else
                    m_Sync.BeginInvoke(CallAcceptFailed, New Object() {ex})
                End If
            Else
                Sync_AcceptFailed(ex)
            End If
        Catch exp As Exception
            OnThreadException(exp)
        End Try
    End Sub

Ici je me demande s'il n'y a pas une erreur. En effet on fait la meme chose quand m_async_event est vrai ou faux.
Il ne me couterait rien de virer le test mais je me dis que tu devais vouloir faire quelque chose de different.




D'autre part j'ai l'impression que les 2 fonctions suivantes ne sont pas utilisées :
Private Sub OnSendProgress
et
Private Sub OnSendComplete

ThonyBoy

En complement de ma réponse précédente, il faut également que tu t'assure que le port que tu utilise est bien ouvert et non bloqué par un parefeu ou autre

@Guilleto

Tu fais erreur sur la config du serveur il ne faut pas mettre l'adresse IP du client (car il peut y avoir plusieurs client qui se connectent au serveur).
Tu dois mettre l'adresse IP du PC Serveur.
Et les ports doivent etre le meme coté client et coté serveur

@baboss
tu es toujours là ?
J'ai un petit soucis au niveau du serveur avec Private Sub Client_DataArrival(ByVal sender As Object, ByVal data() As Byte)
En effet lorsque les données sont envoyée avec un certains laps de temps, pas de soucis.
Mais lorsque le serveur recoit (trop?) de Data à un instant T, Data contient plusieurs lignes de données envoyé par plusieurs send.
Ex: si je fais une boucle au niveau du client qui fait un Send

Les lignes recues, sont alors numérotées dans la chaine Data de DataArrival (sans CRLF)

Qu'elle est (ou était ta vision pour gerer cela) ?

Il est vrai que mon sub Client_DataArrival traite et interperte les données ce qui met un certain temps.
La solution est elle dans un nouveau thread pour le traitement des données afin de ne pas retarder le DataArrival ?

D'avance merci

ThonyBoy

Bonjour.

Cette source fonctionne parfaitement sur plusieurs PC je l'utilise au quotidien.
Vérifie tes params réseau, et assures toi que le port utilisé n'est pas bloqué

Trop fort et maintenant le corrigé !
Et ca tombe plutot bien car découvrant le "dictionary" j'étais parti dans un truc un peu compliqué.

Ouais, ben un énorme merci, parce que ta réponse est claire, pédagogique et complete.

Bonjour Babbboss

Pour ma part, je seche sur un point.

J'aimerais que le serveur, m'affiche l'IP du client qui s'est déconnecté au lieu du banal

txtRecv.AppendText("-- Un Client s'est deconnecté --" & vbCrLf)

Mais je n'arrive pas a trouver. Dés que l'on est dans le sub client_close alors sock.RemoteEP vaut déjà nothing !!!

Peux tu m'indiquer une piste ?

Merci

Passons par la massegrie  car on pourri le thread