bonjour à tous,
voilà je dispose de 2 form form serveur et form client quand j'envoie un message de client vers le serveur tout fonctione très bien mais maintenant j'ai 2 problèmes :
lors de l'execution de serveur celui ci reste invisible ( je ne sais pas pourquoi )
lorsque je veux envoyé plus qu'un message au serveur alors là le message n'est pa recu par le serveur
voilà le code :
Serveur :
voilà le code client :
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 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ip = IPAddress.Parse("127.0.0.1") ecoute = New TcpListener(ip, port) ecoute.Start() Me.Text = "Listening..." clt = ecoute.AcceptTcpClient() Dim NWStream As NetworkStream = clt.GetStream Const BUFFER_SIZE As Integer = 10 Dim bytesToRead(BUFFER_SIZE) As Byte '---read incoming stream Dim textReceived As String = "" Do Dim numBytesRead As Integer = _ NWStream.Read(bytesToRead, 0, BUFFER_SIZE) textReceived += Encoding.ASCII.GetString(bytesToRead, _ 0, numBytesRead) Loop Until Not NWStream.DataAvailable NWStream.Flush() RB_recu.Text += "Received :" + textReceived ' RB_recu est un RichTextBox End Sub
merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load clt.Connect("127.0.0.1", port) ' clt est un TcpClient End Sub Private Sub cmd_envoye_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_envoye.Click Dim NWStream As NetworkStream = clt.GetStream Dim bytesToSend As Byte() = Encoding.ASCII.GetBytes(rb_envoie.Text) NWStream.Write(bytesToSend, 0, bytesToSend.Length) Rb_recu.Text += "Le client dit : " + vbCrLf + vbCrLf + rb_envoie.Text rb_envoie.Text = "" NWStream.Flush() End Sub
Partager