Stoppen eines Mutltiservers TCP/IP

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von SpaceyX.

    Stoppen eines Mutltiservers TCP/IP

    Seit einigen Tagen beschäftigt mich das Problem, dass stoppen eines Multiservers , alles andere funktioniert prima, bis auf die Verbindung wieder zu beeden z.B. durch abbruch vom User (Form schließen und ähnliches). Ich mache alles mit Threading, aber wenn ich versuche den Server zu stoppen, freezt einfach alles :thumbdown: .

    Der Code:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Imports System.IO
    4. Public Class Form1
    5. Dim started As Boolean = False
    7. Private server As TcpListener
    8. Private client As New Sockets.TcpClient
    9. Private IPPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 5358)
    10. Private Delegate Sub Auswerten(ByVal s As String)
    11. Private Delegate Sub AddItem(ByVal c As Connection)
    12. Private Delegate Sub DelItem(ByVal c As Connection)
    13. Private tmp As String
    14. Private main As New System.Threading.Thread(AddressOf StartServer)
    15. Dim connections As New List(Of Connection)
    17. Private Structure Connection
    18. Dim stream As NetworkStream
    19. Dim streamw As StreamWriter
    20. Dim streamr As StreamReader
    21. Dim lst As ListViewItem
    22. End Structure
    24. Sub StopServer()
    25. main.Abort()
    26. For Each c As Connection In connections
    27. c.stream.Close()
    28. c.streamr.Close()
    29. c.streamw.Close()
    30. Next
    31. server.Stop()
    32. client.Close()
    33. End Sub
    36. Sub StartServer(ByVal port As Integer)
    37. IPPoint = New IPEndPoint(IPAddress.Any, port)
    38. server = New TcpListener(IPPoint)
    39. server.Start()
    40. While True
    41. Try
    42. client = server.AcceptTcpClient
    43. Catch
    44. Exit Sub
    45. End Try
    46. Dim c As New Connection
    47. c.stream = client.GetStream
    48. c.streamr = New StreamReader(c.stream)
    49. c.streamw = New StreamWriter(c.stream)
    50. c.lst.Text = c.streamr.ReadLine
    52. connections.Add(c)
    54. Me.Invoke(New AddItem(AddressOf AddItem1), c)
    55. Dim t As New System.Threading.Thread(AddressOf Listen)
    56. t.Start(c)
    57. End While
    58. End Sub
    60. Private Sub Listen(ByVal con As Connection)
    61. Do
    62. Try
    63. tmp = con.streamr.ReadLine
    64. Me.Invoke(New Auswerten(AddressOf Auswerten1), tmp)
    65. Catch ex As Exception
    66. Me.Invoke(New DelItem(AddressOf DelItem1), con)
    67. Exit Do
    68. End Try
    69. Loop
    70. End Sub
    72. Private Sub AddItem1(ByVal c As Connection) ' User hinzufügen
    73. ListView1.Items.Remove(c.lst)
    74. End Sub
    76. Private Sub DelItem1(ByVal c As Connection) 'User wieder löschen
    77. ListView1.Items.Remove(c.lst)
    78. End Sub
    80. Private Sub Auswerten1(ByVal s As String)
    81. MsgBox(tmp)
    82. End Sub
    84. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    85. If started = False Then
    86. Button1.Text = "Stop"
    87. started = True
    88. main.Start()
    89. Else
    90. Button1.Text = "Start"
    91. started = False
    92. StopServer()
    93. End If
    94. End Sub
    96. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    97. Application.Exit()
    98. End Sub
    100. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    101. e.Cancel = False
    102. StopServer()
    103. e.Cancel = True
    104. End Sub
    105. End Class


    MfG :thumbsup:

    Achso:) sry falsch verstanden.

    Mit Stream beenden ist es nicht getan, du musst wahrscheinlich noch den Clienten selber beenden.
    Eine unbeabsichtige Verbindungsunterbrechung zu überwachen ist sowieso nicht einfach, außer du sendest alle paar Sek nen Ping am Client und schaust ob er was zurück gibt.

    Und versuch mal dein Listing-Thread im Hintergrund laufen zu lassen, vllt hilft das schon.

    Edit:
    Und mach mal deine Try-Catch raus und dann siehst du welche Fehlermeldung Visual Studio dir sagt. Ich weiß das ich das Problem auch öfters hatte, nur weiß ich nimmer so genau was ich gemacht hatte.
    Achja glaube wir kennen uns auch ausn anderen Forum oder?! :)

    Der Aufruf von Server.Stop unterbricht den blockierenden Vorgang AcceptTcpClient. Du springst in Deinem Code dann aus der Sub, was den Thread beendet. Somit musst Du den Thread wieder neu instanzieren, da er mit seiner Arbeit fertig ist.

    Ich empfehle Dir ohnehin das da: vb-paradise.de/allgemeines/sou…leistungsfaehigem-server/

    Dein Ansatz mag zwar OK sein, jedoch läufst Du, wie Du ja feststellst, schon in Probleme. Du kannst die Zusammenhänge nicht mehr erfassen. Mit zunehmenden Umfang Deines Programms wird das nicht besser. Ferner geht die Performance mit steigender Nutzerzahl in die Knie. Schau Dir das Beispiel mal genau an.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Danke ! :) jetzt gehts :D

    Edit:// Jetzt lässt sich die Form nicht mehr schließen..

    VB.NET-Quellcode

    1. Sub StopServer()
    2. 'Wenn ich hier den Thread beenden will, freezt die Form
    3. For Each c As Connection In connections
    4. c.stream.Close()
    5. c.streamr.Close()
    6. c.streamw.Close()
    7. Next
    8. server.Stop()
    9. client.Close()
    10. main.Abort()
    11. End Sub
    13. While started
    14. Try
    15. client = server.AcceptTcpClient
    16. Catch
    17. Exit Sub
    18. End Try
    19. Dim c As New Connection
    20. c.stream = client.GetStream
    21. c.streamr = New StreamReader(c.stream)
    22. c.streamw = New StreamWriter(c.stream)
    23. c.lst.Text = c.streamr.ReadLine
    25. connections.Add(c)
    27. Me.Invoke(New AddItem(AddressOf AddItem1), c)
    28. Dim t As New System.Threading.Thread(AddressOf Listen)
    29. t.IsBackground = True
    30. t.Start(c)
    31. End While
    33. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    34. e.Cancel = False
    35. StopServer()
    36. e.Cancel = True
    37. End Sub

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

    Lass das .Abort() weg. Wie ich Dir sagte. Ein Thread ist beendet, wenn er seine Aufgabe beendet hat. Kein Grund, den irgendwie zu aborten.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o