Blocage de mon Serveur de tchat (AcceptTcpClient)

Blocage de mon Serveur de tchat (AcceptTcpClient) - VB/VBA/VBS - Programmation

Marsh Posté le 11-09-2013 à 18:17:04    

Salut !

 

Je m'inspire d'un serveur de tchat CONSOLE et j'aimerais le refaire en windows form.

 

Mais j'ai un probleme, arrivé a mon "AcceptTcpClient" (Ligne 33) mon appli ce bloque complétement, je ne peux plus rien faire...

 

Voici le code au complet :

 
Code :
  1. Imports System.Net.Sockets
  2. Imports System.IO
  3. Imports System.Net
  5. Public Class Form1
  7.     Dim Etat As Boolean
  9.     Private Serveur As TcpListener
  10.     Private Client As New TcpClient
  11.     Private IPendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 10)
  12.     Private ListConnec As New List(Of Connection)
  14.     Private Structure Connection
  15.         Dim Stream As NetworkStream
  16.         Dim Writer As StreamWriter
  17.         Dim Reader As StreamReader
  18.         Dim Pseudo As String
  19.     End Structure
  21.     Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
  23.         TxtEtat.Text = "En ligne"
  26.         Serveur = New TcpListener(IPendpoint)
  27.         Serveur.Start()
  31.         While True
  33.             Client = Serveur.AcceptTcpClient
  34.             Dim c As New Connection
  35.             c.Stream = Client.GetStream
  36.             c.Reader = New StreamReader(c.Stream)
  37.             c.Writer = New StreamWriter(c.Stream)
  39.             c.Pseudo = c.Reader.ReadLine
  41.             ListConnec.Add(c)
  42.             'ListCo.Items.Add(c.Pseudo)
  44.             Dim t As New Threading.Thread(AddressOf ListenToConnection)
  45.             t.Start(c)
  47.         End While
  49.     End Sub
  52.     Private Sub ListenToConnection(ByVal con As Connection)
  53.         Do
  54.             Try
  55.                 Dim tmp As String = con.Reader.ReadLine
  56.                 ListHistorique.Items.Add(con.Pseudo & " : " & tmp)
  57.                 For Each c As Connection In ListConnec
  58.                     Try
  59.                         c.Writer.WriteLine(con.Pseudo & " : " & tmp)
  60.                         c.Writer.Flush()
  61.                     Catch
  62.                     End Try
  63.                 Next
  64.             Catch
  65.                 ListConnec.Remove(con)
  66.                 ListCo.Items.Remove(con.Pseudo)
  67.                 Exit Do
  68.             End Try
  69.         Loop
  70.     End Sub
  74.     Private Sub BtnDeconnect_Click(sender As Object, e As EventArgs) Handles BtnDeconnect.Click
  75.         Etat = False
  76.     End Sub
  80. End Class
 


Si quelqu'un a une idée :) Je need :P


Message édité par naografix le 11-09-2013 à 18:17:53
Reply

Marsh Posté le 11-09-2013 à 18:17:04   

Reply

Marsh Posté le 12-09-2013 à 18:58:10    

up

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed