Ecouter sur un Socket

Version imprimable

15/01/2008, 18h38
gderenne

Ecouter sur un Socket

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) ?
15/01/2008, 20h24
Aspic

Utilise la méthode Bind puis Accept...

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

Avec la classe Socket:

Code:

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:

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

15/01/2008, 20h35
Aspic

Les deux codes se valent :D
15/01/2008, 20h41
gderenne

Merci pour vos réponses :D

J'ai trouvé aussi ceci : http://morpheus.developpez.com/reseauvbnet/
15/01/2008, 22h19
Aspic

Citation:

Envoyé par gderenne

Merci pour vos réponses :D

J'ai trouvé aussi ceci : http://morpheus.developpez.com/reseauvbnet/

Bien joué, j'allais te proposer le lien ! C'est un bon début... ;)