TCP/IP Problem mit WSACancelBlockingCall

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    TCP/IP Problem mit WSACancelBlockingCall

    Ich hab ein Problem das sich seit Tagen nicht lösen lässt, ich habe anhan des Multiserver TCP Tutorials einen Client und Server gecodet.
    Alles ging perfekt auch das schließen des Servers, aber nun wo ich alles mit OOP gemacht hab kriege ich beim schließen des Server folgende Exception

    Quellcode

    1. Read: Von der Übertragungsverbindung können keine Daten gelesen werden: Ein Blockierungsvorgang wurde durch einen Aufruf von WSACancelBlockingCall unterbrochen.


    Das "Read" dient nur zum finden des Fehlers.

    Hier mal alles was ich gecodet habe:

    Server:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Imports System.Threading.Thread
    4. Imports System.IO
    6. Public Class server
    8. Public Event newmsg(ByVal message As String, ByVal c As connection)
    9. Public Event c_connection_lost(ByVal c As connection)
    10. Public Event c_connected(ByVal c As connection)
    12. Public Event server_closed()
    14. Private tcpserver As TcpListener
    15. Private client As New TcpClient
    16. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000)
    17. Private list As New List(Of connection)
    19. Dim t As Threading.Thread = New Threading.Thread(AddressOf waitforconnection)
    21. Private receive As Boolean
    24. Public Sub start(ByVal port As Integer)
    25. Try
    26. close()
    27. client = New TcpClient
    28. ipendpoint = New IPEndPoint(IPAddress.Any, port)
    29. tcpserver = New TcpListener(ipendpoint)
    30. tcpserver.Start()
    31. Catch ex As Exception
    32. MsgBox("Server failed to start; " & ex.Message)
    33. End Try
    34. receive = True
    35. t = New Threading.Thread(AddressOf waitforconnection)
    36. t.IsBackground = True
    37. t.Start()
    38. End Sub
    40. Public Sub close()
    41. Try
    42. receive = False
    43. For Each c As connection In list
    44. c.close()
    45. Next
    47. MsgBox("2")
    48. client.Close()
    49. MsgBox("3")
    50. tcpserver.Stop()
    51. MsgBox("4")
    52. Catch ex As Exception
    53. MsgBox("Serverclose: " & ex.Message)
    54. End Try
    55. RaiseEvent server_closed()
    56. End Sub
    58. Private Sub waitforconnection()
    59. While receive
    61. Try
    62. client = tcpserver.AcceptTcpClient
    63. Catch ex As Exception
    64. Exit Sub
    65. End Try
    67. Dim tmp_stream As NetworkStream = client.GetStream
    68. Dim c As New connection(tmp_stream)
    70. c.lst = New ListViewItem
    71. c.lst.Text = c.read 'Username lesen
    72. c.lst.SubItems.Add(c.read) 'Land lesen
    74. AddHandler c.newmsg, AddressOf newmsg_fromclient
    75. AddHandler c.connected, AddressOf client_connected
    76. AddHandler c.connection_lost, AddressOf client_connection_lost
    78. list.Add(c)
    79. c.start()
    80. End While
    81. End Sub
    83. Private Sub client_connected(ByVal c As connection)
    84. RaiseEvent c_connected(c)
    85. End Sub
    87. Private Sub newmsg_fromclient(ByVal message As String, ByVal c As connection)
    88. RaiseEvent newmsg(message, c)
    89. End Sub
    91. Private Sub client_connection_lost(ByVal c As connection)
    92. list.Remove(c)
    93. RaiseEvent c_connection_lost(c)
    94. End Sub
    96. End Class


    Connection:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net.Sockets
    4. Public Class connection
    5. Private stream As NetworkStream
    6. Private streamw As StreamWriter
    7. Private streamr As StreamReader
    8. Public receive As Boolean
    9. Public lst As ListViewItem
    11. Public Event newmsg(ByVal message As String, ByVal c As connection)
    12. Public Event connection_lost(ByVal c As connection)
    13. Public Event connected(ByVal c As connection)
    15. Dim t As Threading.Thread = New Threading.Thread(AddressOf listen)
    17. Sub New(ByVal server_stream As NetworkStream)
    18. stream = server_stream
    19. streamr = New StreamReader(stream)
    20. streamw = New StreamWriter(stream)
    21. End Sub
    23. Sub start()
    24. receive = True
    25. Dim t As New Threading.Thread(AddressOf listen)
    26. t.Start()
    27. RaiseEvent connected(Me)
    28. End Sub
    30. Sub close()
    31. receive = False
    32. streamr.Close()
    33. streamw.Close()
    34. stream.Close()
    35. End Sub
    37. Sub write(ByVal s As String)
    38. Try
    39. streamw.WriteLine(s)
    40. streamw.Flush()
    41. Catch ex As Exception
    42. close()
    43. MsgBox("Write: " & ex.Message)
    44. RaiseEvent connection_lost(Me)
    45. End Try
    46. End Sub
    48. Function read()
    49. Try
    50. Return streamr.ReadLine()
    51. Catch ex As Exception
    52. close()
    53. MsgBox("Read: " & ex.Message) 'hier kommt die Exception, denke es liegt daran das er schließen will, aber er liest ja noch im Stream
    54. Return Nothing
    55. RaiseEvent connection_lost(Me)
    56. End Try
    57. End Function
    59. Private Sub listen()
    60. While receive
    61. Try
    62. Dim tmp As String = read()
    63. If Not tmp = Nothing Then
    64. RaiseEvent newmsg(tmp, Me)
    65. End If
    67. Catch ex As Exception
    68. close()
    69. MsgBox("Listen:" & ex.Message)
    70. RaiseEvent connection_lost(Me)
    71. Exit While
    72. End Try
    73. End
    74. End While
    75. End Sub
    77. End Class



    MfG

    Hey,

    das ist echt übelster Code, das sei mal gesagt. Erstens OPTION STRICT ON, VisualBasic-NameSpace raus.

    VB.NET-Quellcode

    1. Public Sub start(ByVal port As Integer)
    2. Try
    3. close()
    4. client = New TcpClient
    5. ipendpoint = New IPEndPoint(IPAddress.Any, port)
    6. tcpserver = New TcpListener(ipendpoint)
    7. tcpserver.Start()
    8. Catch ex As Exception
    9. MsgBox("Server failed to start; " & ex.Message)
    10. End Try
    11. receive = True
    12. t = New Threading.Thread(AddressOf waitforconnection)
    13. t.IsBackground = True
    14. t.Start()
    15. End Sub


    Was soll der Aufruf von Close beim starten des Servers? Weiterhin versuchst Du hier, den Server zu starten. Geht es schief, machst Du trotzdem weiter? Alleine beim Aufruf von start fliegen jede Menge Exceptions. Du kriegst nur nichts davon mit, weil Du Try-Catch wie ein Irrer verwendest, ohne auch nur im Ansatz mit Hilfe dieser Exceptions den Programmfluss sinnvoll zu steuern^^. Zeig mal, wie die Client-Seite aussieht.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Oh, das mit dem "Close()" hatte ich anfangs nur drin um zu gucken ob ich die gleiche Exception bekomme, wenn noch kein Server gestart ist(sorry :/, hab ich vergessen).
    Exit Sub hab ich vergessen, werde ich hinzufügen.

    Client kommt gleich, mich würde intressieren was in deine Augen beim Code "übel" ist, bin immer für Kritik offen :whistling: .

    Edit:// Wo währe es denn deiner Meinung nach sinnvoll die TryCatch blöcke zu entfernen, an mancher stelle brauche ich sie auch um zu erkennen ob der Client disconnected.

    Edit://

    Der Client ist nicht wirklich gut einfach nur die das Beispiel bissl gemoddet.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net.Sockets
    3. Imports System.Net
    5. Public Class Form1
    6. Private stream As NetworkStream
    7. Private streamw As StreamWriter
    8. Private streamr As StreamReader
    9. Private client As New TcpClient
    10. Private t As New Threading.Thread(AddressOf Listen)
    11. Dim username As String
    12. Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
    13. username = InputBox("Input username", "Username", "Unknown")
    14. start()
    15. End Sub
    17. Private Sub start()
    18. Try
    19. client = New TcpClient
    20. client.Connect("127.0.0.1", 5285)
    21. If client.Connected Then
    22. stream = client.GetStream
    23. streamw = New StreamWriter(stream)
    24. streamr = New StreamReader(stream)
    26. writestream(username)
    27. writestream(getc)
    29. t = New Threading.Thread(AddressOf Listen)
    30. t.Start()
    31. Else
    32. Msgbox("Fehler beim starten")
    33. End If
    34. Catch ex As Exception
    35. Msgbox(ex.message)
    36. End Try
    37. End Sub
    39. Private Sub Listen()
    40. While client.Connected
    41. Dim tmp As String = readstream()
    42. msgbox(tmp)
    43. End While
    44. End Sub
    47. Private Sub writestream(ByVal s As String)
    48. streamw.WriteLine(s)
    49. streamw.Flush()
    50. End Sub
    52. Private Function readstream()
    53. Dim s As String = Nothing
    54. s = streamr.ReadLine()
    55. Return s
    56. End Function
    60. Function getc()
    61. Try
    62. Dim httpRequest As HttpWebRequest = HttpWebRequest.Create("http://www.hostip.info/")
    63. Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
    64. Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
    65. Dim httpContent As String = reader.ReadToEnd
    67. Dim T As TextBox = New TextBox
    68. T.Text = httpContent
    70. For Each s As String In T.Lines
    71. If s.Contains("Location:") Then
    72. s = s.Replace("Location: <b>", Nothing)
    73. s = s.Replace("</b><br/><br/>", Nothing)
    74. T.Text = s
    75. End If
    76. Next
    77. Return T.Text
    78. Catch ex As Exception
    79. Return ex.Message
    80. End Try
    81. End Function
    83. End Class




    Edit: :P //

    Hab Option Strict ON gefixxt

    MfG

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

    VB.NET-Quellcode

    1. Private Sub listen()
    2. While receive
    3. Try
    4. Dim tmp As String = read()
    5. If Not tmp = Nothing Then
    6. RaiseEvent newmsg(tmp, Me)
    7. End If
    9. Catch ex As Exception
    10. close()
    11. MsgBox("Listen:" & ex.Message)
    12. RaiseEvent connection_lost(Me)
    13. Exit While
    14. End Try
    15. End '<======= Da ist Dein Problem.
    16. End While
    17. End Sub


    Schau auf das Kommentar, das ich eingefügt habe. Hier beendest Du die Ausführung und es kommt zu diesem Fehler. Das hättest im Grunde selber finden müssen, wenn Du anständig debugged hättest. Zum Rest sag ich evtl. später was.

    VB.NET-Quellcode

    1. Dim T As TextBox = New TextBox
    2. T.Text = httpContent
    4. For Each s As String In T.Lines
    5. If s.Contains("Location:") Then
    6. s = s.Replace("Location: <b>", Nothing)
    7. s = s.Replace("</b><br/><br/>", Nothing)
    8. T.Text = s
    9. End If
    10. Next
    11. Return T.Text


    Was ist das? Ich mein, warum erstellst Du hier eine TextBox? Junge, Junge. :cursing:
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Dann kann ich Dir leider nicht weiter helfen. Ich hab Deinen Code kopiert, bei mir eingefügt. Bei mir kommt keine Exception, nachdem ich "End" entfernt habe.

    Lad mal Dein Projekt, so wie es ist, hoch. Mit Allem drum und dran. Dann schau ich gerne nochmal rein.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Es wird schätze ich am Streamreader des Clients liegen der versucht aus einem geschlossenem Networkstream Daten zu lesen.
    Ich kann dir nur empfehlen dich etwas mit der Materie zu beschäftigen und auch diesen Server/Client Ansatz kann ich absolut nicht empfehlen.

    Das Beispiel dient wohl eher dazu, zu begreifen wie ein Server/Client System grundsätzlich funktioniert. Es ist jedoch absolut unsinnig soviele Thread Objekte zu erstellen für jeden Client.
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende