StackOwerFlow Exception

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Patrick1993.

    StackOwerFlow Exception

    Hallo Leute,
    Ich habe vor geraumer Zeit mit TCP Angefangen.
    Soweit sogut, nun habe ich ein Programm von mit auf TCP umgebaut das auch läuft.
    Jedoch bekomme ich alle X Stunden/Tage eine StackOwerflow Exception.

    Woran kann das liegen ??

    Der Code des Servers:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net, System.IO, System.Net.Sockets, System.Text
    2. Module Module1
    4. Private cli As New TcpClient
    5. Private srv As TcpListener
    6. Private ip As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000)
    7. Private list_leit As New List(Of Verb)
    8. Private list_dme As New List(Of Verb)
    9. Private list_fms As New List(Of Verb)
    10. Private einsatz As Integer
    11. Dim p As String
    13. Private Structure Verb
    14. Dim stream As NetworkStream
    15. Dim kennung As String
    16. Dim streamr As StreamReader
    17. Dim streamw As StreamWriter
    18. End Structure
    20. Sub Main()
    21. p = "config.ini"
    22. srv = New TcpListener(ip)
    23. srv.Start()
    24. Console.WriteLine("Server ist gestartet...")
    25. If File.Exists(p) Then einsatz = CInt(IO.File.ReadAllText(p)) Else einsatz = 1
    26. Dim a As String = CStr(einsatz)
    27. Console.WriteLine("Einsatznummer: " & a)
    28. Dim s As New Threading.Thread(AddressOf speichern)
    29. s.IsBackground = True
    30. s.Start()
    32. While True
    34. cli = srv.AcceptTcpClient
    35. Dim con As New Verb
    36. con.stream = cli.GetStream
    37. con.streamr = New StreamReader(con.stream)
    38. con.streamw = New StreamWriter(con.stream)
    39. con.kennung = con.streamr.ReadLine
    43. If con.kennung = "leit" Then
    44. Console.WriteLine("Leitstelle hat sich verbunden")
    45. list_leit.Add(con)
    46. con.streamw.WriteLine("Einsatz:" & CStr(einsatz))
    47. con.streamw.Flush()
    48. verbunden()
    49. Dim t As New System.Threading.Thread(AddressOf listen_leit)
    50. t.Start(con)
    51. End If
    53. If con.kennung = "dme" Then
    54. Console.WriteLine("DME hat sich verbunden")
    55. list_dme.Add(con)
    56. verbunden()
    57. Dim t As New System.Threading.Thread(AddressOf listen_dme)
    58. t.Start(con)
    59. End If
    61. If con.kennung = "FMS" Then
    62. Console.WriteLine("FMS hat sich verbunden")
    63. list_fms.Add(con)
    64. verbunden()
    65. Dim t As New Threading.Thread(AddressOf listen_fms)
    66. t.Start(con)
    67. End If
    71. End While
    72. End Sub
    74. Private Sub verbunden()
    75. Dim leit As Integer = list_leit.Count
    76. Dim dme As Integer = list_dme.Count
    77. Dim fms As Integer = list_fms.Count
    78. Console.WriteLine("------------------------------------------------")
    79. Console.WriteLine("Online Leistelle: {0}", leit)
    80. Console.WriteLine("Online DME: {0}", dme)
    81. Console.WriteLine("Online FMS: {0}", fms)
    82. Console.WriteLine("Aktuelle Einsatznummer: {0}", einsatz)
    83. Console.WriteLine("------------------------------------------------")
    84. End Sub
    86. Private Sub speichern()
    87. Dim e As String = CStr(einsatz)
    88. IO.File.WriteAllText(p, e)
    89. Threading.Thread.Sleep(2500)
    90. speichern()
    91. End Sub
    93. Private Sub listen_leit(ByVal con As Object)
    94. Dim c As Verb = CType(con, Verb)
    95. Do
    96. Try
    97. Dim tmp As String = c.streamr.ReadLine
    98. If tmp.StartsWith("#Einsatz") Then
    99. senden(tmp.Replace("#Einsatz", Nothing), "leit")
    100. einsatz = einsatz + 1
    101. c.streamw.WriteLine("Einsatz:" & CStr(einsatz))
    102. c.streamw.Flush()
    103. Console.WriteLine("Einsatz wurde gesendet...")
    104. Console.WriteLine("Aktuelle Einsatznummer: {0}", einsatz)
    105. End If
    106. Catch ex As Exception
    107. list_leit.Remove(c)
    108. Console.WriteLine("Leistelle hat die Verbindungen geschlossen")
    109. verbunden()
    110. Exit Do
    111. End Try
    112. Loop
    113. End Sub
    115. Private Sub listen_dme(ByVal con As Object)
    116. Dim c As Verb = CType(con, Verb)
    117. Do
    118. Try
    119. Dim tmp As String = c.streamr.ReadLine
    121. Catch ex As Exception
    122. list_dme.Remove(c)
    123. Console.WriteLine("DME hat die Verbindungen geschlossen")
    124. verbunden()
    125. Exit Do
    126. End Try
    127. Loop
    128. End Sub
    130. Private Sub listen_fms(ByVal con As Object)
    131. Dim c As Verb = CType(con, Verb)
    132. Do
    133. Try
    134. Dim tmp As String = c.streamr.ReadLine
    135. senden(tmp, "fms")
    136. Catch ex As Exception
    137. list_fms.Remove(c)
    138. Console.WriteLine("FMS hat die Verbindung geschlossen")
    139. verbunden()
    140. Exit Do
    141. End Try
    142. Loop
    143. End Sub
    145. Private Sub senden(ByVal mes As String, ByVal ken As String)
    146. If ken = "leit" Then
    147. For Each c As Verb In list_dme
    148. c.streamw.WriteLine(mes)
    149. c.streamw.Flush()
    150. Next
    151. End If
    153. If ken = "fms" Then
    154. For Each c As Verb In list_leit
    155. c.streamw.WriteLine(mes)
    156. c.streamw.Flush()
    157. Next
    158. End If
    161. End Sub
    162. End Module


    Die Fehlermeldung ist im Anhang
    Hoffe ihr könnt mir auf die Sprünge helfen
    Bilder

    • Unbenannt-1.jpg

      251,59 kB, 897×645, 182 mal angesehen

    Wenn zu viele Verbindungen gleichzeitig aktiv sind, dann laufen in deinem Programm zu viele Threads. Die fressen richtig viel Speicher auf dem Stack, und in Verbindung mit den ganzen Netztwerkegeschichten, die auch nicht ganz ohne sind, kommt es dann irgendwann zu einem Überlauf.

    kann man den überlauf irgendwie verhindern ?

    Du könntest versuchen anstatt für jede Verbindung nen extra Thread zu erstellen irgenwie mit dem Threadpool oder Async-Methoden zu arbeiten. Da ich aber sowas in der Art noch nicht gemacht habe kann ich dir dazu leider nichts genaues zu sagen.

    Patrick1993 schrieb:

    VB.NET-Quellcode

    1. Private Sub speichern()
    2. Dim e As String = CStr(einsatz)
    3. IO.File.WriteAllText(p, e)
    4. Threading.Thread.Sleep(2500) ' Erklärt die lange Dauer bis zum Stack Overflow....
    5. speichern() 'Rekursion ohne Abbruchbedingung
    6. End Sub

    ich vermute mal der fehler liegt hier !

    @Artentus:
    Async kann ich leider nich verwenden da ich mit VB 2010 Arbeite. Threadpool müsste ich mich mal schlau machen wie das gehen soll

    @Quadsoft:
    Denkst du das der Thread zulange "schläft" und es dadurch zuviel wird ?

    ne du hast da ne rekursion drin ... hat quad aber schon erwähnt 'Rekursion ohne Abbruchbedingung

    Quellcode

    1. speichern()
    2. speichern()
    3. speichern()
    4. speichern()
    5. speichern()
    6. speichern()
    7. speichern()
    8. ...
    9. speichern()
    und irgendwann erreichst du halt den punkt an dem der StackOverFlow auftritt - dein sleep verzögert das ganze nur

    Also müsste ich das ganze im grund irgendwie Abbrechen wenn ich es richtig verstehe

    Patrick1993 schrieb:

    Denkst du das der Thread zulange "schläft" und es dadurch zuviel wird ?

    Bei einem Funktionsaufruf wird die Rücksprungadresse auf den Stack gepusht (und dann nach dem Sprung wieder gepoppt). Wenn eine Rekursion zu weit läuft, läuft der Stapel über, da der Stack nicht mehr "geleert" wird. Das endet dann in einem klassichen Stackoverlfow.
    Ich musste auch mal schlau klingen. :P

    @Quadsoft: Hat also recht. Der Fehler wird dort liegen.

    Patrick1993 schrieb:

    Also müsste ich das ganze im grund irgendwie Abbrechen wenn ich es richtig verstehe
    Natürlich, sonst würdest du den Thread auch ewig blockieren. Es kann also gar nicht in deinem Sinne sein, es so zu machen.
    Von meinem iPhone gesendet

    @mikee13
    Wir könnte man eine solche Rekursion Blockieren ?

    @Artentus
    Ich tu dort die Nummer aus einer Textdatei auslesen bzw die neuste (die gesendet wurde) speichern damit man die nicht immer selbst errechnen muss.
    Wir würde eine solche sache in einer Schleife aussehen da stehe ich aufm Schlauch

    Die sinnvolle bedinung were z.b Console.ReadLine() oder sehe ich da was falsch

    Also würde das ganze mehr oder weniger aussehen wie:

    VB.NET-Quellcode

    1. Do
    2. Try
    3. 'Hier dann das Speicherzeugs rein
    4. Catch ex As ThreadAbortException
    5. Console.Writeline(ex.Message)
    6. End Try
    7. End Do


    Ich glaube ich bin auf dem richtigen Wege oder ?

    Also im Grunde so:

    VB.NET-Quellcode

    1. Private Sub speichern()
    2. Try
    3. While True
    4. Dim e As String = CStr(einsatz)
    5. IO.File.WriteAllText(p, e)
    6. Threading.Thread.Sleep(2500)
    7. speichern()
    8. End While
    9. Catch ex As Threading.ThreadAbortException
    10. Console.WriteLine(ex.Message)
    11. End Try
    12. End Sub


    ok habs mir mal umgeschrieben direkt mal testen :)

Facebook
Telefonspende