Multiserver (TCP)

    • VB.NET

    Es gibt 854 Antworten in diesem Thema. Der letzte Beitrag () ist von ClonkAndre.

      Jup aber da er Hier gepostet hat dachte ich mir das er das vielleicht mit einen
      eigenen Server machen will, aber es kann jeder so machen wie er will :)
      MFG 0x426c61636b4e6574776f726b426974
      InOffical VB-Paradise IRC-Server
      webchat.freenode.net/
      Channel : ##vbparadise

      Wie hier schon erkannt schließt sich der Client nicht richtig und der Server erkennt nicht das der Client eigentlich gar nicht mehr aktiv ist, der lösugsvorschlag hier war ja alles zu schließen, aber weil im Listen Sub noch eine Schleife aktiv ist ergeben sich beim schleißen viele Messageboxen, weiß jemmand wie man die Schleife vorher beendet und dann den client schließt ?
      MFG VBWorld
      Mathe ist für alle die, die nicht mit dem Taschenrechner umgehen können :D

      Aber die Schleife geht ja solange wie der Client mit dem server verbunden ist, d.h. die schleife endet erst bis die Verbindung zum Server getrennt wurde. Also würde es nichts bringen das schließen hinter der Schleife zusetzen. Und der Client ist nicht in der Schleife deklariert. Ich spreche über diesen Abschnitt:


      VB.NET-Quellcode

      1. Private Sub Listen()
      2. While Client.Connected
      3. Try
      4. Me.Invoke(New DAddItem(AddressOf AddItem), streamread.ReadLine)
      5. Catch
      6. MessageBox.Show("Verbindung nicht möglich!")
      7. Application.Exit()
      8. End Try
      9. End While
      10. End Sub
      MFG VBWorld
      Mathe ist für alle die, die nicht mit dem Taschenrechner umgehen können :D

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VBWorld“ ()

      TCP Server

      Hallo allerseits, habe ein Problem mit dem Server Code der hier im 1 Post ist. und zwar wenn ich den Server starte tritt ein merkwürdiges verhalten auf. Wenn ich mit 2 Clients verbinde und was schreibe kommt am Server nix an aber wenn ich eines der beiden Clients schließe bekomme ich im anderen Client die Letzte Nachricht und etliche Zeilenabsätze. Kann mir das jemand erklären? mfg.

      Hätte auch ein Problem undzwar ich kann denn Server perfekt neustarten und auch beenden, aber die Clients hängen sich auf und "sagen" das im millisekunden Takt leere Narichten ankommen, hätte da einer ne Idee ? Wenn ich dann nen frischen Client starte geht alles Problemlos.

      Konsole:

      VB.NET-Quellcode

      1. Imports System.Net
      2. Imports System.Text
      3. Imports System.Net.Sockets
      4. Module Module1
      5. Dim WithEvents myclient As New Client
      6. Sub Main()
      8. myclient.start("127.0.0.1", 4843)
      10. While True
      11. System.Threading.Thread.Sleep(1000) 'Damit sich die Konsole nicht schließt
      12. End While
      13. End Sub
      15. Private Sub myclient_connected() Handles myclient.connected
      16. Console.WriteLine("Verbindung erfolgreich")
      17. End Sub
      19. Private Sub myclient_newMessage(ByVal stext As String) Handles myclient.newMessage
      20. Console.WriteLine("Naricht : " & stext)
      21. End Sub
      23. Private Sub myclient_reconnected() Handles myclient.reconnected
      24. Console.WriteLine("Reconnecting")
      25. End Sub
      26. End Module


      Client-Klasse

      VB.NET-Quellcode

      1. Imports System.IO
      2. Imports System.Threading
      3. Imports System.Net.Sockets
      4. Imports System.Net
      6. Public Class Client
      7. Dim mytcpclient As TcpClient
      8. Dim mystreamreader As StreamReader
      9. Dim mystreamwriter As StreamWriter
      10. Dim connect As Boolean = False
      12. Private IpAdress As String
      13. Private Port As Integer
      16. Public Event connected()
      17. Public Event reconnected()
      18. Public Event newMessage(ByVal stext As String)
      20. Sub start(ByVal IpAdress As String, ByVal port As Integer)
      21. Me.IpAdress = IpAdress
      22. Me.Port = port
      23. verbinden()
      24. End Sub
      25. Private Sub verbinden()
      26. Try
      27. Me.mytcpclient = New TcpClient
      28. Me.mytcpclient.Connect(Me.IpAdress, Me.Port)
      29. If Me.mytcpclient.Connected = True Then
      30. Me.connect = True
      31. RaiseEvent connected()
      33. Me.mystreamreader = New StreamReader(Me.mytcpclient.GetStream)
      34. Me.mystreamwriter = New StreamWriter(Me.mytcpclient.GetStream)
      35. mystreamwriter.writeline("Username")
      36. Dim t As New Thread(AddressOf receiveText)
      37. t.IsBackground = True
      38. t.Start()
      40. Else
      41. Me.connect = False
      42. reconnect()
      43. End If
      44. Catch ex As Exception
      45. Me.connect = False
      46. reconnect()
      47. End Try
      48. End Sub
      50. Private Sub reconnect()
      51. RaiseEvent reconnected()
      52. Me.mytcpclient.Close()
      53. Thread.Sleep(5000)
      54. verbinden()
      55. End Sub
      57. Public Sub sendText(ByVal stext As String)
      58. Try
      59. Me.mystreamwriter.WriteLine(stext)
      60. Me.mystreamwriter.Flush()
      61. Catch ex As Exception
      62. Me.connect = False
      63. reconnect()
      64. End Try
      65. End Sub
      67. Private Sub receiveText()
      68. Try
      69. While Me.connect
      70. Dim stext As String
      71. stext = Me.mystreamreader.ReadLine
      72. RaiseEvent newMessage(stext)
      73. End While
      74. Catch ex As Exception
      75. Me.connect = False
      76. reconnect()
      77. End Try
      78. End Sub
      79. End Class


      MfG^

      Naja er wird ja anscheinend mit Narichten zugebombt und das hindert in wahrscheinlich "produktiv" weiter nach nem Server zu suchen, auch wenn er sie halbwegs ignoriert.
      Im normalfall hat der Client ja keine Autoreconnectsub aber ich finde wenn ich sowas code sollte wirklich alles gehen auch das Neustarten des Servers ohne Neustart aller Clients.

      Hier mal die Disconnect Sub vom Server

      VB.NET-Quellcode

      1. Public Sub [stop]()
      2. listen = False 'While listen neue Clients empfangen
      3. t.Suspend() 'Listen thread
      5. For i As Integer = clientlist.Count - 1 To 0 Step -1
      6. clientlist(i).disconnect()
      7. Next
      9. mytcplistener.Stop()
      10. mytcplistener = Nothing
      11. RaiseEvent ServerStopped(Me)
      12. End Sub


      Serverclient disconnect Sub

      VB.NET-Quellcode

      1. Public Sub disconnect()
      2. t.Suspend() 'Empfange-Text Thread
      3. Me.connected = False 'While Me.connected : empfange Text
      4. Me.mystreamreader.Close()
      5. Me.mystreamwriter.Close()
      6. Me.mytcpclient.Close()
      7. Me.mytcpclient = Nothing
      8. RaiseEvent disconnected(Me)
      9. End Sub



      MfG

      Ich habe zwar keine Ahnund ob es bei ihnen Funktioniert/Funktionieren wird, aber bei mir tut es dass. Folgender forschlags Code:
      *Anmerkung: Ich habe nicht sehr sauber (eig. gar nicht sauber) godet, da ich in eile war und einfach nur ein Problem besgen wollte, hoffe aber dass man es versteht.
      - Realclose und Closingnow (die Variable) wird auf True gesetzt wenn man den Schließen Button drückt, andernfalls ist die Variable FALSE.

      Code vom Clienten:

      VB.NET-Quellcode

      1. Private Sub Listen()
      3. Do
      4. If Closingnow = True Then
      5. Application.Exit()
      6. Else
      7. While client.Connected
      8. Try
      9. Dim Response As String = streamr.ReadLine
      10. Me.Invoke(New DAddItem(AddressOf AddItem), Response)
      11. Catch
      12. Exit While
      13. End Try
      14. End While
      15. If Realclose = False Then
      16. Try
      17. client = New Net.Sockets.TcpClient
      18. 'client.Connect(ConnIPAd, 25565)
      19. client.Connect(tbConnectToIP.Text, 25565)
      20. stream = client.GetStream
      21. streamr = New StreamReader(stream)
      22. streamw = New StreamWriter(stream)
      23. streamw.WriteLine(nick)
      24. streamw.Flush()
      25. Catch
      26. Try
      27. Me.Invoke(New DConn(AddressOf TryConn))
      28. Catch
      29. MsgBox("Das Programm wird nun geschloßen.", MsgBoxStyle.Information, "Programm schließt sich")
      30. Application.Exit()
      31. End Try
      32. 'Else
      33. ' Application.Exit()
      34. 'End If
      35. End Try
      36. End If
      37. End If
      38. Loop Until Realclose = True
      39. End Sub


      Quellcode

      1. Me.Invoke(New DConn(AddressOf TryConn))

      In dieser Zeile (27) wird ein Sub aufgerufen, welcher nur den String: "Verbinde zum Server..." ausgibt.


      TryConn Sub:

      VB.NET-Quellcode

      1. Private Sub TryConn()
      2. quicksave = tbMessages.Text
      3. tbMessages.Text = quicksave & vbCrLf & "Verbinde zum Server..."
      4. Exit Sub
      5. End Sub


      Dann einfach mal wärend der Client und der Server laufen, den Server schließe und Reaktion abwarten ^^

      Ich hoffe geholfen zu haben und Wünsche noch schöne Grüße :D


      EDIT Nr4. Wichtigen verständniss Punkt hinzugefügt. :whistling:
      Bellum et Pax.
      Omne initium est difficile.
      -KenJy ;D

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

      Massen Spam Nachrichten

      Hallo,

      habe ziemlich das selbe Problem wie schockerjo. Beim Disconnecten bzw. beim Verlassen des Clients bekommt der Server sowie alle Clients massenhaft leere Nachrichten.

      Mein Server:

      VB.NET-Quellcode

      1. Imports System.Net.Sockets
      2. Imports System.IO
      3. Imports System.Net
      5. ' TCP-MultiServer
      6. ' C 2009 - Vincent Casser
      8. Module Module1
      9. Private server As TcpListener
      10. Private client As New TcpClient
      11. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
      12. Private list As New List(Of Connection)
      14. Private Structure Connection
      15. Dim stream As NetworkStream
      16. Dim streamw As StreamWriter
      17. Dim streamr As StreamReader
      18. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
      19. End Structure
      21. Private Sub SendToAllClients(ByVal s As String)
      22. For Each c As Connection In list ' an alle clients weitersenden.
      23. Try
      24. If s = Nothing Then
      25. Exit Sub
      26. Else
      27. c.streamw.WriteLine(s)
      28. c.streamw.Flush()
      29. End If
      31. Catch
      32. End Try
      33. Next
      34. End Sub
      36. Private Sub Sendtoperson(ByVal s As String, ByVal Nick As String)
      37. For Each Connection In list
      38. Try
      39. If Connection.nick = Nick Then
      40. If s = Nothing Then
      41. Exit Sub
      42. Else
      43. Connection.streamw.WriteLine(s)
      44. Connection.streamw.Flush()
      45. End If
      46. End If
      47. Catch
      48. End Try
      49. Next
      50. End Sub
      52. Sub Main()
      54. Console.WriteLine("Der Server läuft!")
      55. server = New TcpListener(ipendpoint)
      56. server.Start()
      58. While True ' wir warten auf eine neue verbindung...
      59. client = server.AcceptTcpClient
      61. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
      62. c.stream = client.GetStream
      63. c.streamr = New StreamReader(c.stream)
      64. c.streamw = New StreamWriter(c.stream)
      66. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
      68. list.Add(c) ' und fügen sie der liste der clients hinzu.
      69. Console.WriteLine(c.nick & " has joined.")
      70. SendToAllClients(c.nick & "<-- Hat den Chat betreten!")
      71. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten. siehe SendToAllClients
      73. Dim t As New Threading.Thread(AddressOf ListenToConnection)
      74. t.Start(c)
      75. End While
      76. End Sub
      78. Private Sub ListenToConnection(ByVal con As Connection)
      79. Do
      80. Try
      81. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
      83. Console.WriteLine(con.nick & ": " & tmp)
      84. SendToAllClients(con.nick & ": " & tmp) ' an alle clients weitersenden.
      87. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
      88. SendToAllClients(con.nick & "<-- Hat den Chat verlassen!")
      89. Console.WriteLine(con.nick & " has exit.")
      90. list.Remove(con)
      91. Exit Do
      92. End Try
      94. Loop
      95. End Sub
      96. End Module


      Mein Client:

      VB.NET-Quellcode

      1. Imports System.Net.Sockets
      2. Imports System.IO
      4. Public Class frm_Main
      6. Private stream As NetworkStream
      7. Private streamw As StreamWriter
      8. Private streamr As StreamReader
      9. Private client As New TcpClient
      10. Private ActiveConnection As Boolean = True
      11. Private t As New Threading.Thread(AddressOf Listen)
      12. Private Delegate Sub DAddItem(ByVal s As String)
      14. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      15. If My.Settings.benutzernick = "unknown" Then
      16. frm_Options.Show()
      17. End If
      18. Me.Location = New Point(My.Computer.Screen.WorkingArea.Width - Me.Width, My.Computer.Screen.WorkingArea.Height - Me.Height)
      19. End Sub
      21. Private Sub OptionenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OptionenToolStripMenuItem1.Click
      22. frm_Options.Show()
      23. End Sub
      25. Private Sub Listen()
      26. While client.Connected
      27. Try
      28. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
      29. Catch
      30. If ActiveConnection Then ' Abfrage
      31. MessageBox.Show("Keine Verbindung zum Server." & vbNewLine & "Das Programm wird nun beendet.")
      32. End If
      34. CloseConnection()
      35. End Try
      36. End While
      37. End Sub
      39. Public Sub CloseConnection()
      40. Try
      41. ActiveConnection = False
      42. streamr.Close()
      43. stream.Close()
      44. client.Close()
      45. streamw.Close()
      46. Catch
      48. End Try
      49. End Sub
      51. Private Sub AddItem(ByVal s As String)
      52. If s = Nothing Then
      53. Exit Sub
      55. Else
      56. If RichTextBox1.Text = Nothing Then
      57. RichTextBox1.AppendText(s)
      58. Else
      59. If s = Nothing Then
      60. Exit Sub
      61. Else
      62. RichTextBox1.AppendText(vbNewLine & s)
      63. End If
      64. End If
      65. RichTextBox1.ScrollToCaret()
      67. If s.StartsWith(My.Settings.benutzernick) Then
      69. Else
      70. NotifyIcon1.ShowBalloonTip(1)
      71. End If
      73. End If
      75. End Sub
      77. Private Sub RichTextBox1_LinkClicked(ByVal sender As Object, _
      78. ByVal e As System.Windows.Forms.LinkClickedEventArgs) _
      79. Handles RichTextBox1.LinkClicked
      81. System.Diagnostics.Process.Start(e.LinkText)
      82. End Sub
      84. Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
      85. CloseConnection()
      86. End Sub
      88. Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
      89. If TypeOf ActiveControl Is TextBox Then
      91. If e.KeyChar = Convert.ToChar(13) Then
      92. Button1.PerformClick()
      93. e.Handled = True
      95. End If
      97. End If
      98. End Sub
      100. Private Sub DisconnectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DisconnectToolStripMenuItem.Click
      101. ConnectToolStripMenuItem.Enabled = False
      102. DisconnectToolStripMenuItem.Enabled = False
      103. Try
      104. CloseConnection()
      105. Catch
      106. End Try
      107. If MsgBox("Um neu mit dem Server zu verbinden bitte Programm Neustarten!" & vbNewLine & "Bei Klick auf OK schließt das Programm automatisch!", MsgBoxStyle.Information, "Neustart") = MsgBoxResult.Ok Then
      108. Application.Exit()
      109. End If
      110. End Sub
      112. Private Sub Verbinden()
      113. Dim nick As String = My.Settings.benutzernick
      114. Try
      115. client.Connect(My.Settings.ipadresse, 8000) ' hier die ip des servers eintragen.
      116. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
      117. If client.Connected Then
      118. stream = client.GetStream
      119. streamw = New StreamWriter(stream)
      120. streamr = New StreamReader(stream)
      122. streamw.WriteLine(nick) ' das ist optional.
      123. streamw.Flush()
      125. t.Start()
      126. Else
      127. MessageBox.Show("Verbindung zum Server nicht möglich!")
      128. Application.Exit()
      129. End If
      130. Catch ex As Exception
      131. MessageBox.Show("Verbindung zum Server nicht möglich!")
      132. Application.Exit()
      133. End Try
      134. End Sub
      136. Private Sub ConnectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectToolStripMenuItem.Click
      137. Verbinden()
      138. ConnectToolStripMenuItem.Enabled = False
      139. DisconnectToolStripMenuItem.Enabled = True
      140. End Sub
      142. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      143. Try
      144. If TextBox1.Text = Nothing Then
      145. Exit Sub
      146. End If
      147. streamw.WriteLine(TextBox1.Text)
      148. streamw.Flush()
      149. TextBox1.Clear()
      150. Catch
      152. End Try
      153. End Sub
      155. Private Sub HilfeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HilfeToolStripMenuItem.Click
      156. frm_Help.Show()
      157. End Sub
      158. End Class


      Hoffe ihr habt eine Idee und könnt mir diesbezüglich Helfen.

      Mit freundlichen Grüßen
      Nevs08

      Zeile 24 (und auch 40):

      Nevs08 schrieb:

      VB.NET-Quellcode

      1. If s = Nothing Then

      s ist vom Typ String und somit ein Wertetyp. Wertetypen können aber nicht Nothing sein, sondern bei String halt leer (bei Integer = 0, Boolean = False etc.). Also --> If String.IsNullOrEmpty(s)


      BTW: Beim client Zeile 88-98 soll wahrschienlich bewirken, dass Enter = Button1.Click ist oder ? Dazu kannst du auch in der Form die Property AcceptButton gleich Button1 setzen ^^
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ThePlexian“ () aus folgendem Grund: Konnte nicht denken

      F*** an das mit dem String hab ich nicht gedacht -.-

      Habs jetzt mal verbessert aber hat sich nichts geändert.


      Und das mit dem Button hatte ich am Anfang so aber scheinbar hat mein Kollege das heute Mittag noch verändert warum auch immer.

      Dann übergib nicht s als Parameter sondern s.Replace(" ", "") dass ist zwar nur eine indirekte Lösung und keine richtige , aber es sollte klappen.
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

      String kann Nothing sein, denn es ist kein Wertetyp. Es ist an sich auch kein primitiver Datentyp. Die korrekte Abfrage ist demnach bla Is Nothing nicht =. Ich bin jetzt zu faul drüber zu schauen, könnte mir aber einen Fehler beim Server vorstellen (z.B. Endlosschleife wegen Try-Catch).

      Try-Catch ohne sinnvolle Catch-Blöcke sind übrigens zu vermeiden.
      Ich meine btw. mich daran zu erinnern, dass das bereits irgendwo im Thread gelöst wurde und es gibt auch noch andere Chat-Sourcecodes hier im Forum.

      Gruß
      ~blaze~

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

      ~blaze~ schrieb:

      String kann Nothing sein, denn es ist kein Wertetyp
      Um Gottes Willen ich weiß auch nicht was da in meinem Kopf falsch war. Schließlich würde die Function sonst ja auch nicht <String.IsNullOrEmpty> heißen.

      Dennoch würde ich bei der Function bleiben, da sie ja scheinbar auf beides prüft.
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Facebook