Ecouter sur un Socket

**gderenne** · 15/01/2008, 18h38

Bonjour,

Je suis en train de développer un outil de type client/Serveur et je voudrais savoir comment procéder pour écouter sur un socket (donc, partie Serveur) ?

**Aspic** · 15/01/2008, 20h24

Utilise la méthode Bind puis Accept...

**tomlev** · 15/01/2008, 20h33

tu as le choix entre une solution simple, et une solution très simple

Avec la classe Socket:

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim server As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim port as int = 80
Dim ep As New IPEndPoint(IPAddress.Any, port)
server.Bind(ep)
server.Listen(10)
While True
    Dim client As Socket = server.Accept() ' bloque jusqu'à ce que quelqu'un se connecte
    Console.WriteLine("Connection de {0} !", client.RemoteEndPoint)
    client.Close() 'on déconnecte la socket
End While

Avec la classe TcpListener:

Code VB :

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

1
2
3
4
5
6
7
8
9
10
 
Dim port as int = 80
Dim server As New TcpListener(IPAddress.Any, port)
server.Start()
While True
    Dim client As TcpClient = server.AcceptTcpClient() ' bloque jusqu'à ce que quelqu'un se connecte
    Console.WriteLine("Connection de {0} !", client.Client.RemoteEndPoint)
    client.Client.Close() 'on ferme la socket
    client.Close() 'et le TcpClient
End While