[Prog]Vb.net 2008 - Problème avec code pour serveur (socket)

Question

Salut à tous ! 

En ce moment j'essaye de gérer un client et un serveur en vb.net 
J'ai trouvé un code en console , mais il y a un problème majeur que je n'ai pas su résoudre : 
Une fois le premier message reçu , le serveur se ferme , j'ai essayé de mettre une boucle sans succès , car seul le premier message me parvenait ... ! 

Auriez-vous une idée ? 

Serveur : Citation:
Imports System.Net.Sockets 
Imports System.Text 

Module Module1 
 Dim server As New TcpListener("5000") 
 Dim client As New TcpClient 
 Dim stream As NetworkStream 

 Sub Main() 
 Console.WriteLine("En attente d'un client ...") 
 server.Start() 
 client = server.AcceptTcpClient 
 stream = client.GetStream 
 Dim recvbyte(client.ReceiveBufferSize) As Byte 
 stream.Read(recvbyte, 0, client.ReceiveBufferSize) 
 Dim recvtext As String = Encoding.ASCII.GetString(recvbyte) 
 Console.WriteLine(recvtext) 
 'Dim sendbytes() As Byte = Encoding.ASCII.GetBytes("Le serveur lui aussi peut emmettre !") 
 'stream.Write(sendbytes, 0, sendbytes.length) 
 End Sub 
End Module



Client : Citation:
Imports System.Net.Sockets 
Imports System.Text 

Module Module1 
 Sub main() 
 Dim client As New Net.Sockets.TcpClient 
 Dim stream As NetworkStream = Nothing 
 Console.WriteLine("En attente du serveur ...") 
 Try 
 client.Connect("127.0.0.1", "5000") 
 Catch 
 Console.ForegroundColor = ConsoleColor.Red 
 Console.WriteLine("La connection a echouée !") 
 Console.ReadLine() 
 End 
 End Try 
 Console.ForegroundColor = ConsoleColor.Green 
 Console.WriteLine("Connecté !") 
 Console.ForegroundColor = ConsoleColor.Gray 
 stream = client.GetStream() 
 Console.Write("Moi : ") 
 Dim sendtext As String = Console.ReadLine() 
 Dim sendbytes() As Byte = Encoding.ASCII.GetBytes(sendtext) 
 stream.Write(sendbytes, 0, sendbytes.Length) 
 'Dim recivebytes(client.ReceiveBufferSize) As Byte 
 'stream.Read(recivebytes, 0, client.ReceiveBufferSize) 
 'Console.WriteLine("server: " + Encoding.ASCII.GetString(recivebytes)) 
 End Sub 
End Module



Merci beaucoup d'avance ! 
Germain

germain67 · Answer

Pardon oublié de mettre la balise code ... !

Serveur :
Imports System.Net.Sockets 
Imports System.Text 

Module Module1 
 Dim server As New TcpListener("5000") 
 Dim client As New TcpClient 
 Dim stream As NetworkStream 

 Sub Main() 
 Console.WriteLine("En attente d'un client ...") 
 server.Start() 
 client = server.AcceptTcpClient 
 stream = client.GetStream 
 Dim recvbyte(client.ReceiveBufferSize) As Byte 
 stream.Read(recvbyte, 0, client.ReceiveBufferSize) 
 Dim recvtext As String = Encoding.ASCII.GetString(recvbyte) 
 Console.WriteLine(recvtext) 
 'Dim sendbytes() As Byte = Encoding.ASCII.GetBytes("Le serveur lui aussi peut emmettre !") 
 'stream.Write(sendbytes, 0, sendbytes.length) 
 End Sub 
End Module

Client :
Imports System.Net.Sockets 
Imports System.Text 

Module Module1 
 Sub main() 
 Dim client As New Net.Sockets.TcpClient 
 Dim stream As NetworkStream = Nothing 
 Console.WriteLine("En attente du serveur ...") 
 Try 
 client.Connect("127.0.0.1", "5000") 
 Catch 
 Console.ForegroundColor = ConsoleColor.Red 
 Console.WriteLine("La connection a echouée !") 
 Console.ReadLine() 
 End 
 End Try 
 Console.ForegroundColor = ConsoleColor.Green 
 Console.WriteLine("Connecté !") 
 Console.ForegroundColor = ConsoleColor.Gray 
 stream = client.GetStream() 
 Console.Write("Moi : ") 
 Dim sendtext As String = Console.ReadLine() 
 Dim sendbytes() As Byte = Encoding.ASCII.GetBytes(sendtext) 
 stream.Write(sendbytes, 0, sendbytes.Length) 
 'Dim recivebytes(client.ReceiveBufferSize) As Byte 
 'stream.Read(recivebytes, 0, client.ReceiveBufferSize) 
 'Console.WriteLine("server: " + Encoding.ASCII.GetString(recivebytes)) 
 End Sub 
End Module

NHenry · Answer

Bonjour,

Où as-tu mis la boucle sur ton serveur, car elle n'apparait pas ?

Le client envoi un message puis se ferme, donc il faut aussi lui mettre une boucle d'entrée pour garder la main.

Mon site

germain67 · Answer

J'avais tenté , mais j'ai du mal le faire je pense !
J'avais mis quelquechose comme ça :

maboucle:
(liste des instructions)
goto maboucle

Mais ça ne marchais pas !

NHenry · Answer

Bonjour,

Tu n'as pas honte de faire un truc aussi horrible :D
Un GOTO !!!
à ne jamais utiliser sans un vrai motif (ce qui est extremement rare en VB) valable et dûement justifié.

Dans ton cas, un Do/Loop est largement plus propre.

Sinon, tu as mis quelles instructions au milieu ?

Car il y en a plusieurs dans ton code.

Mon site

germain67 · Answer

Bah en faites j'avais remis ça entre le début et la fin de la boucle :
 client = server.AcceptTcpClient 
 stream = client.GetStream 
 Dim recvbyte(client.ReceiveBufferSize) As Byte 
 stream.Read(recvbyte, 0, client.ReceiveBufferSize) 
 Dim recvtext As String = Encoding.ASCII.GetString(recvbyte) 
 Console.WriteLine(recvtext)

NHenry · Answer

Bonjour,

Seul ce morceau de code est nécessaire dans la boucle :
 Dim recvbyte(client.ReceiveBufferSize) As Byte 
 stream.Read(recvbyte, 0, client.ReceiveBufferSize) 
 Dim recvtext As String = Encoding.ASCII.GetString(recvbyte) 
 Console.WriteLine(recvtext) 

Car si tu mets :
client = server.AcceptTcpClient 
Il attends à chaque fois un nouveau client.

Mon site

germain67 · Answer

Ok je vais essayer ;) !

[Prog]Vb.net 2008 - Problème avec code pour serveur (socket)

7 réponses

Votre réponse

Discussions similaires