WSACancelBlockingCall bei TCPListener!?

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von okster.

    WSACancelBlockingCall bei TCPListener!?

    Hallo
    ich hoffe ihr könnt mir helfen
    ich arbeite grade ein bisschen mit TCPListener und TCPClients
    doch im meinem code trifft die socketException auf in der es heißt:
    Ein Blockierungsvorgang wurde durch den Aufruf von WSACancelBlockingCall unterbrochen
    einmal der code

    Meine Form1(ich hab eine listbox1 und ein button1 erstellt)

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Text
    3. Imports System.Net
    4. Imports System.Net.Sockets
    5. Imports System.Threading
    6. Imports System.IO
    7. Public Class Server
    8. Dim Listener As TcpListener
    9. Dim Client As Client
    10. Dim thWartenverbindung As Thread
    11. Dim thStart As Thread
    12. Dim Clientstart As Boolean = False
    14. Private Sub Server_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    15. thWartenverbindung = New Thread(AddressOf AufVerbindungwarten)
    16. Listener = New TcpListener(GetHostIP, 5000)
    17. thStart = New Thread(AddressOf Start)
    19. End Sub
    21. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdStartServer.Click
    22. Start()
    23. End Sub
    25. Sub Start()
    26. Listener.Start()
    27. thWartenverbindung = New Thread(AddressOf AufVerbindungwarten)
    28. thWartenverbindung.Start()
    29. Dim weiter As Boolean = False
    30. Do Until weiter = True
    31. If Clientstart = True Then 'Clientstart wird true wenn die sub aufverbindung warten connected hat
    32. Client.start()
    33. weiter = True
    34. End If
    35. Application.DoEvents()
    36. Loop
    37. Listener.Stop()
    38. End Sub
    40. Sub AufVerbindungwarten()
    41. Client = New Client(Listener.AcceptTcpClient)
    42. StatusAusgabe("Mit einem neuen Client connected!")
    43. Clientstart = True
    44. AddHandler Client.Meldung, AddressOf StatusAusgabe
    45. End Sub
    47. Public Delegate Sub DoStatusAus(ByVal Meldung As String)
    49. Private Sub StatusAusgabe(ByVal Meldung As String)
    50. If ListBox1.InvokeRequired Then
    51. Dim ParamListe() As Object = {Meldung}
    52. ListBox1.Invoke(New DoStatusAus(AddressOf DoStatusAusgabe), ParamListe)
    53. Else
    54. DoStatusAusgabe(Meldung)
    55. End If
    56. End Sub
    58. Private Sub DoStatusAusgabe(ByVal Meldung As String)
    59. ListBox1.Items.Add(Meldung)
    60. ' Zuletzt hinzugefügtes Element selektieren
    61. ListBox1.SetSelected(ListBox1.Items.Count - 1, True)
    62. End Sub
    64. Function GetHostIP() As IPAddress
    65. For Each IPAdr As IPAddress In Dns.GetHostEntry("oke-pc").AddressList
    66. If IPAdr.AddressFamily = AddressFamily.InterNetwork Then
    67. Return IPAdr
    68. End If
    69. Next
    70. Return IPAddress.Loopback
    71. End Function
    72. End Class



    Und Hier meine classe Client

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Text
    3. Imports System.Net
    4. Imports System.Net.Sockets
    5. Imports System.Threading.Thread
    6. Imports System.Threading
    7. Public Class Client
    8. Dim Client As TcpClient
    9. Dim Ende As Boolean = False
    10. Dim Buffer(1024) As Byte
    11. Public Startthread As New Thread(AddressOf Startforthread)
    12. Event Meldung(ByVal Meldung As String)
    14. Sub New(ByVal x As TcpClient)
    15. Client = x
    16. End Sub
    17. Private Sub Startforthread()
    18. Try
    19. Ende = False
    20. Do Until Ende = True
    21. Dim ar As IAsyncResult
    22. ReDim Buffer(1024)
    23. ar = Client.GetStream.BeginRead(Buffer, 0, 1024, Nothing, Nothing)
    24. Client.GetStream.EndRead(ar)
    25. RaiseEvent Meldung(Encoding.Default.GetString(Buffer))
    26. Loop
    27. Catch
    28. If Client.Connected = False Then
    29. RaiseEvent Meldung("Ein Client hat die Verbindung unterbrochen")
    30. Else
    31. RaiseEvent Meldung("error!!")
    32. End If
    33. End Try
    34. End Sub
    35. Public Sub start()
    36. Startthread = New Thread(AddressOf Startforthread)
    37. Startthread.Start()
    38. End Sub
    39. End Class


    und falls es euch weiterhilft der client der sendet

    VB.NET-Quellcode

    1. Imports System.Text
    2. Imports System.Net.Sockets
    3. Public Class Form1
    4. Dim client As New TcpClient("oke-pc", 5000)
    5. Dim fisrst As Boolean = True
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. client.GetStream.BeginWrite(Encoding.Default.GetBytes(TextBox1.Text), 0, Encoding.Default.GetBytes(TextBox1.Text).Length, Nothing, Nothing)
    9. End Sub
    10. End Class


    als erste starte ich den server
    click auf button1
    und dann starte ich den server
    und sende was
    und dann schließ ich den server wieder
    und wenn ich dann den button1 nocheinmal clicke dann giebt er die fehlermeldung:
    Ein Blockierungsvorgang wurde durch den Aufruf von WSACancelBlockingCall unterbrochen


    Wisst ihr vielleicht was ich vergessen habe??

    ja das les ich mir gleich ma durch aber meine variante geht ja auch soweit außer wenn ich nach dem disconnecten noch einmal versuche zu connecten
    da muss ich ja irg was vergessen haben wieder rückgängig zu machen was beim ersten mal verändert wurde und nun beim zweiten mal stört
    ??
    vllt kann mir das ja jemand sagen

Facebook
Telefonspende