System.StackOverflowException.... Lösungsansatz?

Litti · 15. Februar 2013, 18:17

Hallo VB-Freunde,

seit einiger Zeit hänge ich an einem Problem das ich kenne und auch weiß woran es liegt, nur komm ich net drauf wie man es lösen könnte

Kurz zum Projekt. In unserer Firma stehen mehrere Server die Maschinen steuern.. Unabdingbar ist es immer den Status und andere Informationen zu überwachen und zu verarbeiten von einem Zentral-Server aus.
Also habe ich eine TCP Server Software programmiert die auf der Zentral-Server läuft und die die Client-Verbdinungen der einzelnen Server annimmt und die Basis- und Maschineninformationen sendet. Alle Server werden mir in der ListBox aufgelistet und ich kann sie fein auswählen und die Informationen verarbeiten.

So weit alles 1000%

Nun das kleine Problem. Is der Zentral-Server nun nicht mehr erreichbar, durch Neustart-Gründe oder dergleichen, muss natürlich eine "Reconnect"-Methode greifen auf der Client-Seite. Auch das funktioniert einwandfrei..... Aber logischerweise is das ja eine Endlosschleife (Wenn er immer wieder versucht sich zu verbinden).... Logisch das ein System.StackOverflowException entsteht, dieser kann ja auch nicht im Try-Catch abgefangen werden.

ich poste mal kurz die Clientseite Verbindungsmethode und die Reconnectmethode

Verbinden-Sub:

VB.NET-Quellcode

Private Sub MaschineVerbinden()
Try
Me.MaschinenClient= New TcpClient
Me.MaschinenClient.Connect(IPAdresse, Port)
If Me.MaschinenClient.Connected = True Then
Me.stReader = New StreamReader(Me.MaschinenClient.GetStream)
Me.stWriter = New StreamWriter(Me.MaschinenClient.GetStream)
Me.SendeMaschinenStatus() 'Maschinenstatus senden
Dim thEmpfangen As New Thread(AddressOf EmpfangeInformationen) 'Befehle des Zentralservers entgegennehmen
thEmpfangen.IsBackground = True
thEmpfangen.Start()
Else
Reconnect()
End If
Catch ex As Exception
Me.MaschinenClient.Close()
Reconnect()
End Try
End Sub

und hier die Reconnect-Sub:

VB.NET-Quellcode

Private Sub ReconnectMaschinenClient()
Me.MaschinenClient.Close()
Thread.Sleep(3000)
MaschineVerbinden()
End Sub

Gibt es überhaupt eine möglichkeit die Exception zu "umgehen" oder gar einen ganz anderen Lösungsweg?

LG

alca · 15. Februar 2013, 18:31

Ja, du könntest den User fragen, ob er noch einen Verbindungsversuch starten will und falls er das nicht will, schliesst du das Programm.

Litti · 15. Februar 2013, 18:34

an den servern sitzt ja kein user, das ist ja das problem. die server sind fest in de maschinen verbaut und steuern stanz und lasermaschinen

alca · 15. Februar 2013, 18:39

Ich sollte die Posts ganz durchlesen :pinch:

On Topic:
Verstehe nicht was du genau meinst mit der Endlosschleife.. Versucht er sich nachdem er sich verbunden hat weiterhin zu reconnecten?

Litti · 15. Februar 2013, 18:46

nein

wenn Client.Connected = True dann ist er ja verbunden und sendet die Daten, gleichzeitig horcht der Client auf Anfragen vom ZentralServer (zum neuen abrufen von infos oder verändern von Daten)...bricht die verbindung ab greift ja der ELSE-Block und ruft die Reconnect-Sub auf... is der Zentralserver länger nicht ONLINE dann rutscht er ja von der Verbinden-Sub in die Reconnect-Sub und dann wieder von vorn...bis er wieder sich verbindet...dauert dieses aber zu lang kommt ja die exception...das dies ja dann als endlosschleife erkannt wird

Artentus · 15. Februar 2013, 19:01

Du musst beim Reconnect den alten Thread auch beenden. Threads fressen nämlich haufenweise Speicher, da kommt ganz schnell ein Stackoverflow.

Litti · 15. Februar 2013, 19:05

hab ich auch schon versucht aber da es ja dann immer noch eine endlose rekursion ist und der call stack irgendwann mal voll ist, kommt die StackoverflowExeption...

Mit

VB.NET-Quellcode

Try
'code
catch ex as System.StackOverflowException
End Try

funktioniert es leider auch net die Exception abzufangen

Artentus · 15. Februar 2013, 19:12

Dann mach es nicht rekursiv sondern iterativ. Soll heißen pack den Code in ne Schleife:

VB.NET-Quellcode

Do
if Not Me.MaschinenClient.Connected Then
'connecten
Else
'kommunizieren
End If
Loop

Litti · 15. Februar 2013, 21:04

hab es mal so versucht wie du sagtest

VB.NET-Quellcode

Private Sub MaschineVerbinden()
Me.MaschinenClient = New TcpClient
Do
If Not Me.MaschinenClient.Connected Then
Me.MaschinenClient.Connect(IPAdresse, Port)
Me.stReader = New StreamReader(Me.MaschinenClient.GetStream)
Me.stWriter = New StreamWriter(Me.MaschinenClient.GetStream)
Me.SendeMaschinenStatus()
Dim thEmpfangen As New Thread(AddressOf EmpfangeInformationen) 'Befehle des Zentralservers entgegennehmen
thEmpfangen.IsBackground = True
thEmpfangen.Start()
Else
Reconnect()
End If
Loop
End Sub

Aber auch dort kommt leider die StackOverflow Exception.... Ich schätze weil der ELSE-Block auf die Reconnect verweist die dann einfach nur wieder die Verbinden-Sub aufruft.... oder?

Artentus · 15. Februar 2013, 21:09

Du brauchst den Aufruft an die Reconnect-Methode überhaupt nicht mehr, da du die Verbindung durch die Schleife ja schon aufrecht erhältst.

Litti · 15. Februar 2013, 21:13

Jetzt steh ich gerade iwie auf dem Schlauch... Kannst du mir kurz auf die Sprünge helfen wie der dann Reconnectet falls die Verbindung "abreißt"? Den wenn er einmal verbunden war und dann die verbindung von zb. TCPServer unterbrochen wurde und der wieder horcht springt die loop schleife ja nicht mehr hoch .... oder hab ich gerad n hänger im kopp

Artentus · 15. Februar 2013, 21:16

Der Loop überprüft andauernd ob die Verbindung noch besteht. Wenn nicht wird sie sofort wieder aufgebaut, ohne irgendwelche Methodenaufrufe. Alles, was innerhalb der If-Abfrage steht ist der Reconnect-Code, der aufgerufen wird, wenn keine Verbindung mehr besteht (If Not Me.MaschinenClient.Connected).

Litti · 15. Februar 2013, 21:25

ahhh stimmt klar... da kann ich den else-block quasi ja wegglassen mit der reconnect-sub..... aber allerdings kommt trotzdem der overflow

VB.NET-Quellcode

Me.MaschinenClient = New TcpClient
Do
If Not Me.MaschinenClient.Connected Then
Me.MaschinenClient.Connect(IPAdresse, Port) ' Hier die Zeile wo die StackOverflowException entsteht
Me.stReader = New StreamReader(Me.MaschinenClient.GetStream)
Me.stWriter = New StreamWriter(Me.MaschinenClient.GetStream)
Me.SendeMaschinenStatus()
Dim thEmpfangen As New Thread(AddressOf EmpfangeInformationen)
thEmpfangen.IsBackground = True
thEmpfangen.Start()
End If
Loop

PS: Ich sehe du kommst aus Würzburg

Grüße Grüße

hab bis vor kurzem 2 Jahre dort direkt am Main gewohnt

Artentus · 15. Februar 2013, 21:33

An dem Code hier liegt das aber sicherlich nicht. Du könntest höchstens mal versuchen ein Thread.Sleep in die Schleife zu setzen um dem ganzen ein bisschen Zeit zu lassen (ist sowieso klug wegen der CPU-Auslastung). Wenn der Fehler danach weiterhin besteht fällt mir leider auch nichts mehr ein, muss dann irgenwie mit dem TCPClient zusammenhängen, damit kenne ich mich aber kaum aus.

Litti · 15. Februar 2013, 21:42

okay aber danke dir Artentus... Ich werde einfach noch ein wenig probieren.... Bin natürlich weiter für Vorschläge offen

Wenn ich eine Lösung finde poste ichs hier, falls jemand das Problem ebenfalls hat....

Samus Aran · 15. Februar 2013, 23:07

Du hast hier ne epische Rekursion gebastelt, die dir früher oder später halt mit ner StackOverflowException um die Ohren fliegen wird. Nebenbei ist eine solche Exception nicht fangbar, weil es, wenn sie geworfen wird, bereits zu spät für jede Hilfe ist. Du solltest die Struktur des Programms überdenken.

Litti · 15. Februar 2013, 23:09

WARUM und WAS für ein Fehler das ist weiß ich ja.... Nur welche möglichkeiten gibt es dann einen Reconnect zu erreichen sooolange bis der Server wieder erreichbar ist?

SpaceyX · 15. Februar 2013, 23:16

Hey,

wenn Du uns den kompletten, relevaten Code zur Verfügung stellst, dann können wir gerne mal drüber guggn.

Litti · 15. Februar 2013, 23:31

Hier mein ursprüngliche Client-Klasse:

VB.NET-Quellcode

Imports System.IO
Imports System.Threading
Imports System.Net.Sockets
Public Class Client
Dim MainClient As TcpClient
Dim stReader As StreamReader
Dim stWriter As StreamWriter
Dim Verbunden As Boolean = False
Private IPAdresse As String
Private Port As Integer
Public Sub Beginn(ByVal IPAdresse As String, ByVal Port As Integer)
Me.IPAdresse = IPAdresse
Me.Port = Port
Verbinden()
End Sub
Private Sub Verbinden()
Try
Me.MainClient = New TcpClient
Me.MainClient.Connect(IPAdresse, Port) ' Hier der Stackoverflow nach einigen minuten versuchten Verbindungsaufbau
If Me.MainClient.Connected = True Then
Me.Verbunden = True
RaiseEvent Connected()
Me.stReader = New StreamReader(Me.MainClient.GetStream)
Me.stWriter = New StreamWriter(Me.MainClient.GetStream)
Me.BasisInformationenSenden()
Dim thEmpfangen As New Thread(AddressOf EmpfangeInfo)
thEmpfangen.IsBackground = True
thEmpfangen.Start()
Else
Me.Verbunden = False
Reconnect()
End If
Catch ex As Exception
Me.Verbunden = False
Me.MainClient.Close()
Reconnect()
End Try
End Sub
Sub BasisInformationenSenden()
Me.SendeInfo(LaserMSH1.Status)
Me.SendeInfo(LaserMSH2.Status)
'// Weitere Informationen folgen
End Sub
Private Sub Reconnect()
Me.MainClient.Close()
Thread.Sleep(3000)
Verbinden()
End Sub
Public Sub SendeInfo(ByVal info As String)
Try
Me.stWriter.WriteLine(info)
Me.stWriter.Flush()
Catch ex As Exception
End Try
End Sub
Private Sub EmpfangeInfo()
Try
While Me.Verbunden
Dim info As String
info = Me.stReader.ReadLine
End While
Catch ex As Exception
Me.Verbunden = False
Reconnect()
End Try
End Sub
End Class

SpaceyX · 16. Februar 2013, 00:23

Ich würds iwi so machen. Man kann sich natürlich über das Ganze streiten. Es gibt gewisse Regeln, gewisse Vorlieben, andere würden es ganz anders machen. Der Code ist nicht getestet, sollte aber auch nur ein Anschauungsbeispiel sein. Ich würde auf jeden Fall auf Async-Methoden setzten. Diese gehen "schonender" mit den Ressourcen um. Vor allem bei Deinem Server würd ich unbedingt diese Methoden einsetzen. Für nen Client ists aus meiner Sicht nicht so relevant. Was wichtig ist, damit Dir die StackOverFlowEx nicht ständig um die Ohren fliegt, springe mit Exit Sub bei einem erneuten Connect-Versuch raus. Damit sollte sich das Problem erledigen.

Spoiler anzeigen

VB.NET-Quellcode

Public Class Client
Private _client As New TcpClient
Private _serverAddress As String
Private _serverPort As Integer
Private _readStream As Stream
Private _writeStream As Stream
Private _readBuffer(4095) As Byte
Public Event Client_Connected As EventHandler
Public Event Client_NewMessage As EventHandler(Of String)
Public Event Client_Disconnected As EventHandler
Public Sub New(ByVal ip As String, ByVal port As Integer)
_serverAddress = ip
_serverPort = port
End Sub
Private Sub _client_BeginConnect()
If Not _client.Connected Then
_client.BeginConnect(_serverAddress, _serverPort, AddressOf _client_EndConnect, Nothing)
End If
End Sub
Private Sub _client_EndConnect(ByVal ar As IAsyncResult)
Try
_client.EndConnect(ar)
_readStream = _client.GetStream()
_writeStream = _client.GetStream()
_client_StartReceive()
Catch ex As Exception
_client_BeginConnect()
Exit Sub
End Try
End Sub
Private Sub Disconnect_Client()
_readStream.Close()
_writeStream.Close()
_client.Close()
End Sub
Public Sub Connect()
_client_BeginConnect()
End Sub
Private Sub _client_StartReceive()
_readStream.BeginRead(_readBuffer, 0, _readBuffer.Length, AddressOf _client_EndReceive, Nothing)
End Sub
Private Sub _client_EndReceive(ByVal ar As IAsyncResult)
Try
Dim recLen As Integer = _readStream.EndRead(ar)
Dim recMessage As String = ""
If recLen = 0 Then
Throw New Exception()
End If
recMessage = Encoding.UTF8.GetString(_readBuffer, 0, recLen)
_client_StartReceive()
Catch ex As Exception
Disconnect_Client()
End Try
End Sub
Private Sub SendMessageToHost(ByVal message As String)
Try
Using sW As New StreamWriter(_writeStream)
sW.WriteLine(message)
sW.Flush()
sW.Close()
End Using
Catch ex As Exception
Disconnect_Client()
End Try
End Sub
Private Sub OnClient_Connected()
RaiseEvent Client_Connected(Me, EventArgs.Empty)
End Sub
Private Sub OnClient_Disconnecte()
RaiseEvent Client_Disconnected(Me, EventArgs.Empty)
End Sub
Private Sub OnClient_NewMessage(ByVal message As String)
RaiseEvent Client_NewMessage(Me, message)
End Sub
End Class

Wie gesagt, der Code ist ungetestet und mit Sicherheit fehlerbehaftet und Du solltest ihn nicht Copy&Pasten. Bestenfalls solltest Du Dir hier und da eine Idee abgucken.

EDIT: Eigentlich sollte diese Ex beim Verwenden der Asnychronen-Connect-Variante auch ohne einen Sprung aus der Methode nicht mehr auftreten.

System.StackOverflowException.... Lösungsansatz?

System.StackOverflowException.... Lösungsansatz?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben