Hey Leute,
bin neu im Forum und hab gleich die erste Frage.
Ich Programmieren gerade einen Chat, mit Chat Multiserver und Client.
Aber wenn ich den *Client* als Tcpclient deklariere, bekomme ich die Fehlermeldung: *Das Konfigurationssystem konnte nicht initialisiert werden*... Was kann ich da machen
#Region "Chatserver"
Private server As TcpListener
Private client As New TcpClient
Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000)
Private list As New List(Of Connection)
Private Structure Connection
Dim Stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim usrnme As String
End Structure
Private Sub SendToAllClients(ByVal s As String)
For Each c As Connection In list
Try
c.streamw.WriteLine(s)
c.streamw.Flush()
Catch ex As Exception
End Try
Next
End Sub
Sub ChatMultiServer()
RichTextBox4.Text += "Der Server ist Online!" & Environment.NewLine
server = New TcpListener(ipendpoint)
server.Start()
While True
client = server.AcceptTcpClient
Dim c As Connection
c.Stream = client.GetStream
c.streamr = New StreamReader(c.Stream)
c.streamw = New StreamWriter(c.Stream)
c.usrnme = c.streamr.ReadLine
list.Add(c)
RichTextBox4.Text += c.usrnme & " has joined." & Environment.NewLine
Dim usrnode As TreeNode
usrnode = TreeView1.Nodes.Add("Chatserver")
usrnode.Nodes.Add(c.usrnme)
Dim t As New Threading.Thread(AddressOf ListenToConnection)
t.Start(c)
End While
End Sub
Private Sub ListenToConnection(ByVal con As Connection)
Do
Try
Dim tmp As String = con.streamr.ReadLine
RichTextBox4.Text += con.usrnme & ": " & tmp
SendToAllClients(con.usrnme & ": " & tmp)
Catch
list.Remove(con)
RichTextBox4.Text += con.usrnme & " has exit."
Exit Do
End Try
Loop
End Sub
Kann mir da irgendjemand helfen??
Danke im Vorraus,
l.G. der Walrider
