Probleme mit meinem Multi-Chat

  • VB.NET

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

    Probleme mit meinem Multi-Chat

    Guten Tag liebe Forumgemeinde,
    Ich habe gestern mir ein Chat-Tutorial von SemperVideo angesehen in dem ein Client-Server Chat, über TCP Sockets gebaut wird.

    Nun bin ich dabei einen Multichat zu bauen.
    Sprich:
    1 Client, mehrere Chatfenster zu mehreren IPs.

    Nun habe ich folgende Probleme:
    Problem 1:
    Wenn ich ein Chatfenster öffne bekomme ich die Meldung: "Es wird nicht abgehört. Rufen sie die Start()-Methode auf, bevor sie diese Methode aufrufen.

    Diese Meldung erscheint sporadisch, war aber auch schon bei der einfach Chatvariante (nur 1 Fenster) aufgetreten.

    Problem 2:
    Sobald ich ein 2. Fenster öffne bekomme ich den selben wie oben Erwähnt.

    Nur habe ich da noch das Vergnügen, dass das Programm auf Grund eines Problems beendet werden muss.(Komplett absturz)

    Kann es sein, dass diese TCPClient reader,writer geschichte nur 1x pro Port und IP funktioniert oder habe ich ein schwerwiegenderes Problem?

    Habt ihr vielleicht eine Idee, was man da machen kann?
    Ich bin mit meinem Latein vorerst am Ende.

    Über eine Antwort würde ich mich freuen.


    Ergänzende Infos zum Chat:
    Das komplette Chatfenster(Form, Buttons, Textfelder, TCP-Reader,-Writer, Threads etc) ist in einer Klasse namens "chatwindow", aus der jeweils ein neues Objekt(Mit der jeweiligen IP á la "dim win1 as new chatwindow("127.0.0.1")" ) erstellt wird.

    Mit freundlichen Grüßen,
    Sascha Laugwitz

    PS: Wenn der Code benötigt wird, kann ich den gerne anfügen.

    Hi ErfinderdesRades,
    durch deinen Chat blicke ich noch nicht ganz durch, da mir viele deiner verwendeten Objekte etc. nicht bekannt sind, da werde ich wohl noch die ein oder andere Minute dran übersetzen müssen.


    Hier aber erstmal mein Code(Das ist nur der Code von der Klasse "chatwindow" aus der die Chatfenster "generiert" werden, also nicht die Hauptform):

    VB.NET-Quellcode

    1. Imports System.Threading
    2. Imports System.IO
    3. Imports System.Net.Sockets
    5. Public Class chatwindow
    6. Dim win As New Form With {.StartPosition = FormStartPosition.CenterScreen, .Width = 500, .Height = 500}
    7. Dim sendbtt As New Button With {.Anchor = AnchorStyles.Bottom + AnchorStyles.Right, .Text = "Senden", .Location = New Point(380, 360), .Width = 100, .Height = 100}
    8. Dim settext As New TextBox With {.Location = New Point(5, 360), .Multiline = True, .Width = 370, .Height = 100, .Anchor = AnchorStyles.Left + AnchorStyles.Bottom + AnchorStyles.Right}
    9. Dim ipbox As New TextBox With {.Location = New Point(60, 5)}
    10. Dim iplabel As New Label With {.Location = New Point(5, 6), .Width = 50, .Text = "User:"}
    11. Dim gettext As New System.Windows.Forms.RichTextBox
    12. Dim listener As New TcpListener(55555)
    13. Dim client As TcpClient
    14. Dim message As String = ""
    15. Dim Tmr As New System.Windows.Forms.Timer With {.Interval = 1}
    16. Dim cip As String = ""
    18. Sub New()
    19. win.Text = "Kein Titel"
    20. ipbox.Text = "Keine IP übergeben!"
    21. settext.Text = "Ungültiges Fenster, da keine Daten (Fehler: 0x2201)"
    22. settext.Enabled = False
    23. createwindow()
    25. End Sub
    27. Sub New(ByVal b As String, ByVal ip As String)
    28. win.Text = b
    29. cip = ip
    30. ipbox.Text = cip
    31. createwindow()
    32. End Sub
    34. Private Sub createwindow()
    35. AddHandler sendbtt.Click, AddressOf Button_Click
    36. AddHandler win.Load, AddressOf winload
    37. AddHandler win.FormClosing, AddressOf winclosing
    38. AddHandler Tmr.Tick, AddressOf ticking
    39. AddHandler gettext.LinkClicked, AddressOf clickedlink
    40. win.Show()
    41. win.Controls.Add(sendbtt)
    42. win.Controls.Add(settext)
    43. win.Controls.Add(ipbox)
    44. win.Controls.Add(iplabel)
    46. gettext.Location = New Point(5, 35)
    47. gettext.Width = 475
    48. gettext.Height = 290
    49. gettext.Anchor = AnchorStyles.Left + AnchorStyles.Bottom + AnchorStyles.Right + AnchorStyles.Top
    50. gettext.ReadOnly = True
    51. gettext.DetectUrls = True
    52. win.Controls.Add(gettext)
    53. End Sub
    55. Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)
    56. Try
    57. client = New TcpClient(cip, 55555)
    58. Dim writer As New StreamWriter(client.GetStream())
    59. writer.Write(settext.Text)
    60. writer.Flush()
    61. Catch ex As Exception
    62. MessageBox.Show(ex.Message)
    64. End Try
    66. End Sub
    68. Private Sub winload(ByVal sender As Object, ByVal e As EventArgs)
    69. Dim liststhread As New Thread(New ThreadStart(AddressOf listening))
    70. liststhread.Start()
    71. Tmr.Enabled = True
    72. End Sub
    74. Private Sub winclosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
    75. Tmr.Enabled = False
    77. listener.Stop()
    78. End Sub
    80. Private Sub listening()
    81. listener.Start()
    82. End Sub
    84. Private Sub ticking(ByVal sender As Object, ByVal e As EventArgs)
    85. If listener.Pending = True Then
    86. message = ""
    87. client = listener.AcceptTcpClient()
    89. Dim reader As New StreamReader(client.GetStream())
    90. While reader.Peek > -1
    91. message = message + Convert.ToChar(reader.Read()).ToString
    92. End While
    94. gettext.Text = gettext.Text & message & vbCrLf & vbCrLf
    95. Else : End If
    96. End Sub
    98. Private Sub clickedlink(ByVal sender As Object, ByVal e As LinkClickedEventArgs)
    99. Dim oProcess As New Process
    101. oProcess = System.Diagnostics.Process.Start(e.LinkText)
    102. End Sub
    104. End Class



    Hier der Code der Hauptform:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub ContactBox_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContactBox.DoubleClick
    4. If Not ContactBox.Text = "" Then
    5. Dim newWin As New chatwindow("Mein Neuer", ContactBox.Text)
    6. End If
    8. End Sub
    10. Private Sub Form1_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
    11. If Me.Width <= 300 And Me.Height <= 300 Then
    12. Me.Width = 300
    13. Me.Height = 300
    14. ElseIf Me.Width <= 300 Then
    15. Me.Width = 300
    16. ElseIf Me.Height <= 300 Then
    17. Me.Height = 300
    18. Else
    19. End If
    20. End Sub
    21. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    22. Dim a As New adder()
    23. 'Dim newWin1 As New chatwindow("Mein Neuer", "192.168.178.31", 55555)
    24. 'Dim newWin2 As New chatwindow("Mein Neuer", "127.0.0.1", 44444)
    25. End Sub
    27. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sascha3008“ ()

    Sascha3008 schrieb:

    da werde ich wohl noch die ein oder andere Minute dran übersetzen müssen.

    oh, oh - der ist eiglich ziemlich ausgefeilt. Wenn man den "übersetzt", baut man da meist nur Fehler oder mindestens Umständlichkeiten ein.
    Besonders originelle Objekte verwende ich doch garnet: TCPListener, TCPClient, IPEndPoint, NetStream - das sind doch alles Standard-Sachen, die man halt braucht für TCP, oder?

    über galileo äußere ich mich immer wieder gerne abfällig ;)

    Unds nützt nix - willste gscheit proggen, musstes lernen. Da ist vlt. der VersuchsChat kein schlechter Aufhänger.
    Man muß auch nicht alles kennen, am wichtigsten ist, dass man das VS kennt, dass man weiß, wie man es sich zunutze machen kann, wenn man beispielsweise das Stichwort "Stream" hingeschmissen bekommt.
    Weil Datenübertragung geht mit Streams.

Facebook