Chat probleme.. D:

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Chat probleme.. D:

    Ich habe mir ein Chat Client/Server Code abgeschrieben und wenig verändert.
    Ich komme irgendwie nicht richtig klar ich will, wenn einer sich anmeldet das die Chatnachricht dick gedruckt ist.
    Habe da schon was zusammen aber das geht nicht.. x.x
    Dann hab ich noch das Problem das der Chat nicht automatisch runterscrollt das was ich versucht habe geht alles nicht oder es hackt.
    Desweiteren is die Onlineanzeige doof. Es geht zwa alles, aber wenn ein Client off geht dann kommt die nachricht das er Off gegangen ist aber er wird nicht aus der Onlineliste gelöscht.

    Hier der Code von Client und Server:
    Spoiler anzeigen

    Server:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. Module Module1
    6. Private server As TcpListener
    7. Private client As New TcpClient
    8. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 80) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    9. Private list As New List(Of Connection)
    11. Private Structure Connection
    12. Dim stream As NetworkStream
    13. Dim streamw As StreamWriter
    14. Dim streamr As StreamReader
    15. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    16. End Structure
    18. Private Sub SendToAllClients(ByVal s As String)
    19. For Each c As Connection In list ' an alle clients weitersenden.
    20. Try
    21. c.streamw.WriteLine(s)
    22. c.streamw.Flush()
    23. Catch
    24. End Try
    25. Next
    26. End Sub
    28. Public Sub Userlist()
    29. Dim users As String = ""
    30. For Each Connections In list
    31. users = users & Connections.nick.ToString & ","
    32. SendToAllClients("/u " & users)
    33. Next
    34. End Sub
    36. Sub Main()
    37. Console.WriteLine("Der Server läuft!")
    38. server = New TcpListener(ipendpoint)
    39. server.Start()
    41. While True ' wir warten auf eine neue verbindung...
    42. client = server.AcceptTcpClient
    44. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    45. c.stream = client.GetStream
    46. c.streamr = New StreamReader(c.stream)
    47. c.streamw = New StreamWriter(c.stream)
    49. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    51. list.Add(c) ' und fügen sie der liste der clients hinzu.
    52. Userlist()
    53. Console.WriteLine(c.nick & " has joined.")
    54. SendToAllClients("--> " & "s§" & c.nick & "§" & " hat den Chat verlassen.")
    55. 'SendToAllClients("--> " & c.nick & " hat den Chat betreten.")
    56. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten.
    58. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    59. t.Start(c)
    60. End While
    61. End Sub
    63. Private Sub Sendtoperson(ByVal s As String, ByVal Nick As String)
    64. For Each Connection In list
    65. Try
    66. If Connection.nick = Nick Then
    67. Connection.streamw.WriteLine(s)
    68. Connection.streamw.Flush()
    69. End If
    70. Catch
    71. End Try
    72. Next
    73. End Sub
    75. Private Sub ListenToConnection(ByVal con As Connection)
    76. Do
    77. Try
    78. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    79. Console.WriteLine("S_" + con.nick & ": " & tmp)
    80. For Each c As Connection In list ' an alle clients weitersenden.
    81. Try
    82. c.streamw.WriteLine(con.nick & ": " & tmp)
    83. c.streamw.Flush()
    84. Catch
    85. End Try
    86. Next
    87. If tmp.StartsWith("/kick") Then
    88. Dim Kickname As String = tmp.Remove(0, 6)
    89. For Each Connection In list
    90. If Connection.nick = Kickname Then
    91. SendToAllClients("--> " & Kickname & " wurde gekickt.")
    92. Sendtoperson("--> " + Kickname + " wurde gekickt.", Kickname)
    93. Console.WriteLine(Kickname & " has kicked!")
    94. list.Remove(Connection)
    95. Exit For
    96. End If
    97. Next
    98. End If
    99. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    100. list.Remove(con)
    101. Console.WriteLine(con.nick & " has exit.")
    102. SendToAllClients("--> " & "s§" & con.nick & "§" & " hat den Chat verlassen.")
    104. Exit Do
    105. End Try
    106. Loop
    109. End Sub
    110. End Module


    Client:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    5. Private stream As NetworkStream
    6. Private streamw As StreamWriter
    7. Private streamr As StreamReader
    8. Private client As New TcpClient
    9. Private t As New Threading.Thread(AddressOf Listen)
    10. Private Delegate Sub DAddItem(ByVal s As String)
    11. Private nick As String = "unknown"
    13. Public Sub AddItem(ByVal s As String)
    15. Dim chat As String() = s.Split(New Char() {"§"c})
    16. Select Case chat(0)
    17. Case "s"
    18. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
    19. RichTextBox1.SelectionColor = RichTextBox1.ForeColor
    20. RichTextBox1.AppendText(chat(1) & ": ")
    21. RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
    22. RichTextBox1.AppendText(chat(2) & vbCrLf)
    24. End Select
    26. Dim userlist As String()
    27. If s.StartsWith("/u ") Then
    28. userlist = s.Remove(0, 3).Split(",")
    29. ListBox2.Items.Clear()
    30. ListBox2.Items.AddRange(userlist)
    31. Else
    32. RichTextBox1.Text = RichTextBox1.Text & s & vbCrLf
    33. End If
    35. If s.StartsWith("--> " + nick + " wurde gekickt.") Then
    36. client.Close()
    37. stream.Close()
    38. streamr.Close()
    39. streamw.Close()
    40. MsgBox("Du wurdest gekickt.")
    41. Application.Exit()
    42. End If
    43. End Sub
    45. Private ActiveConnection As Boolean = True
    47. Private Sub Listen()
    48. While client.Connected And ActiveConnection
    49. Try
    50. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    52. Catch
    53. If ActiveConnection Then ' Abfrage
    54. 'MessageBox.Show("Keine Verbindung zum Server." & vbNewLine & "Das Programm wird nun beendet.")
    55. End If
    57. CloseConnection()
    58. End Try
    59. End While
    60. End Sub
    62. Public Sub CloseConnection()
    63. ActiveConnection = False
    64. streamw.Close()
    65. streamr.Close()
    66. stream.Close()
    67. client.Close()
    68. End Sub
    70. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    72. If TextBox1.Text = "" Then
    74. Else
    75. streamw.WriteLine(TextBox1.Text)
    76. streamw.Flush()
    77. TextBox1.Clear()
    78. End If
    79. End Sub
    81. Private Sub Form1_leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.FormClosed
    82. End
    83. End Sub
    85. Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
    86. TextBox1.Text = "/w " + ListBox2.Text
    87. End Sub
    91. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    93. Dim IP As String = TextBox4.Text
    94. Dim PORT As String = TextBox2.Text
    95. nick = TextBox3.Text
    96. TextBox1.ReadOnly = False
    97. TextBox2.ReadOnly = True
    98. TextBox3.ReadOnly = True
    99. TextBox4.ReadOnly = True
    101. Try
    102. client.Connect(IP, PORT) ' hier die ip des servers eintragen.
    103. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    104. If client.Connected Then
    105. stream = client.GetStream
    106. streamw = New StreamWriter(stream)
    107. streamr = New StreamReader(stream)
    109. streamw.WriteLine(nick) ' das ist optional.
    110. streamw.Flush()
    112. t.Start()
    114. Button3.Visible = False
    115. Button1.Visible = True
    116. ToolStripStatusLabel1.Text = "Verbunden? Ja."
    117. Else
    118. MessageBox.Show("Verbindung zum Server nicht möglich!")
    119. Application.Exit()
    120. End If
    121. Catch ex As Exception
    122. MessageBox.Show("Verbindung zum Server nicht möglich!")
    123. Application.Exit()
    124. End Try
    125. End Sub
    127. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    128. End
    129. End Sub
    130. End Class

    Dein "Chat" löst momentan nur ganz grundlegend die Anforderung der Kommunikations-Verbindung - weiter kann der noch nix.

    Ein Chat wie du ihn dir vorstellst, mit registrierten Benutzern, die wiedererkannt werden, und deren Name fettgedruckt wird, ist eine viel kompliziertere Sache, da muß man ein Datenmodell konzipieren, damit man User registrieren, ändern, löschen kann, sowie einloggen und ausloggen.
    Vlt. willst du ja auch ChatRooms implementieren, da muss man nochmal ordentlich Hirnschmalz investieren.
    Das ist eine ganze Datenverarbeitung - mit Code abschreiben und ändern wird man da nicht durchkommen.

    Weiters muß ein KommunikationsProtokoll definiert und implementiert werden, damit eine klare Struktur besteht, wie Nachrichten gesendet werden, und was Server/Client jeweils damit anfangen.
    Bisher gibts bei dir ja nur eine Art von Nachricht, nämlich "Mitteilung an alle".
    In einem richtigen Chat ergeben sich aber viele ganz unterschiedliche Arten von Nachrichten: LogIn, LogOut, Registrierung, ChatRoom-Enter/-Exit, DateiÜbertragung? - die eigliche Mitteilung in einen ChatRoom ist nur eine Nachrichten-Art von vielen.
    Die Nachrichten müssen also iwie eindeutig gekennzeichnet sein, damit der Server richtig reagieren kann, vmtl. gibts einen richtigen kleinen Befehls-Satz - halt ein KommunikationsProtokoll.