Unerklärliche ArgumentNullException beim Start der anwendung

  • VB.NET

    Unerklärliche ArgumentNullException beim Start der anwendung

    Huhu,

    da ich mich momentan bisl an VB.net wage, hatte ich vor mir einen Kleinen Consolen-Chat zu erstellen. Funktioniert ganz gut :) Das einzige was ich mir nicht erklären kann, ist, wenn ich den Server im Debug ausführe bekomme ich keinerlei Fehlermeldungen. Erstelle ich die Anwendung und führe diese aus bekomme ich aber nach einiger Zeit eine ArgumentNullException. Komischerweise müsste die von meinen Try block abgefangen werden. Hier mal der Code:

    Server:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net
    3. Imports System.Text
    4. Imports System.Threading
    6. Module Module1
    8. Dim ClientNames As Hashtable = New Hashtable
    9. Dim ClientConnections As Hashtable = New Hashtable
    10. Dim Connections As Integer = 0
    11. Dim Server As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.IP)
    13. Sub Main()
    14. Dim Port As Integer = 93
    15. Dim ipHostInfo As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName)
    16. Dim ipAdress As IPAddress = ipHostInfo.AddressList(0)
    17. Dim localEP As New IPEndPoint(ipAdress, Port)
    18. Dim CThreadRead As New ThreadStart(AddressOf ClientThreadRead)
    19. Try
    20. ' Server starten
    21. Server.Bind(localEP)
    22. Server.Listen(10)
    23. Console.WriteLine("Server rennt auf IP: " & ipAdress.ToString & ":" & Port.ToString & " und wartet auf Clients!")
    25. ' Verbindung zum Client aufbauen
    26. Dim isConnectedMSG As String = "Verbindung hergestellt!"
    27. Do While True
    28. 'Console.WriteLine("Baue neue Verbindung auf")
    29. Dim ClientSocket As Socket = Server.Accept
    31. 'Console.WriteLine("Verbindung akzeptiert")
    32. If ClientSocket.Connected Then
    34. 'Console.WriteLine("Verbindung zur Hashtabelle hinzugefügt")
    35. ClientConnections.Add(Connections, ClientSocket)
    37. 'Console.WriteLine("Client zur Hashtabelle hinzugefügt")
    38. ClientNames.Add(ClientSocket, "Client " & Connections)
    40. 'Console.WriteLine("Verbindung zum Client: '" & Clients(ClientSocket) & "' wird aufgebaut!")
    41. 'Console.WriteLine(isConnectedMSG)
    43. 'Console.WriteLine("Bereite Nachricht an Client vor")
    44. Dim message() As Byte = Encoding.ASCII.GetBytes(isConnectedMSG)
    46. 'Console.WriteLine("Sende Nachricht an Client")
    47. ClientSocket.Send(message)
    49. 'Console.WriteLine("Erzeuge neuen Thread")
    50. Dim GetDataThread As New Thread(CThreadRead)
    52. 'Console.WriteLine("Starte Thread")
    53. GetDataThread.Start()
    54. Connections += 1
    56. End If
    57. Loop
    58. Catch ex As Exception
    59. Console.WriteLine(ex.Message)
    60. Finally
    61. Console.WriteLine("Und absturz!")
    62. Server.Shutdown(SocketShutdown.Both)
    63. Server.Close()
    64. Console.ReadLine()
    65. End Try
    67. End Sub
    69. Public Sub ClientThreadRead()
    70. Console.WriteLine("Lese Client aus den Connections")
    71. Dim ThisClientSocket As Socket = ClientConnections(Connections - 1)
    72. Try
    73. Console.WriteLine("Dim Bytes")
    74. Dim Bytes(1023) As Byte
    75. Console.WriteLine("Dim CountBytesFromClient")
    76. Dim CountBytesFromClient As Integer
    78. Console.WriteLine("Starte die Do-While")
    79. Do While True
    80. Console.WriteLine("CountBytesFromClient = ClientSocket.Receive(Bytes)" & Bytes.Length)
    81. CountBytesFromClient = ThisClientSocket.Receive(Bytes)
    83. Console.WriteLine("if " & CountBytesFromClient.ToString)
    84. If ThisClientSocket.Connected Then
    85. Console.WriteLine("Dim str " & CountBytesFromClient.ToString)
    86. Dim str As String = Encoding.ASCII.GetString(Bytes, 0, CountBytesFromClient)
    87. Console.WriteLine(str)
    89. For Each Client In ClientConnections
    90. Try
    91. Dim message() As Byte = Encoding.ASCII.GetBytes(str)
    92. Client.Value.Send(message)
    93. Catch ex As Exception
    94. Console.WriteLine(ex.Message)
    95. End Try
    96. Next
    97. End If
    98. Loop
    99. Catch ex As ArgumentNullException
    100. Catch ex As Exception
    101. Console.WriteLine("Verbindung zum Client: '" & ClientNames(ThisClientSocket) & "' unterbrochen: " & ex.Message)
    102. Finally
    103. ClientNames.Remove(ThisClientSocket)
    104. ClientConnections.Remove(Connections - 1)
    105. ThisClientSocket.Close()
    106. End Try
    107. End Sub
    108. End Module


    Client:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net
    3. Imports System.Text
    4. Imports System.Threading
    6. Module Module1
    7. Dim Server As Socket
    9. Sub Main()
    10. Dim TServerData As New ThreadStart(AddressOf GetServerData)
    11. Dim TClientData As New ThreadStart(AddressOf SendServerData)
    13. Server = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.IP)
    14. Dim ipHost As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName)
    15. Dim ServerAdress As IPAddress = ipHost.AddressList(0)
    16. Dim EP As New IPEndPoint(ServerAdress, 93)
    18. Try
    19. Server.Connect(EP)
    20. Dim port As Integer = CType(Server.RemoteEndPoint, IPEndPoint).Port
    21. Dim tcpip As String = CType(Server.RemoteEndPoint, IPEndPoint).Address.ToString
    22. Console.WriteLine("Verbindung zu {0}/Port {1} ist hergestellt!", tcpip, port)
    24. Dim GetDataThread As New Thread(TServerData)
    25. GetDataThread.Start()
    27. Dim SendDataThread As New Thread(TClientData)
    28. SendDataThread.Start()
    30. Console.WriteLine("Was möchten Sie dem Server mitteilen?")
    32. Catch ex As ThreadAbortException
    33. Catch ex As Exception
    34. Console.WriteLine(ex.ToString)
    35. Server.Shutdown(SocketShutdown.Both)
    36. Server.Close()
    37. Console.ReadLine()
    38. End Try
    39. End Sub
    41. Public Sub SendServerData()
    42. Try
    43. Do While True
    44. Dim strMessage As String = Console.ReadLine
    45. Dim message() As Byte = Encoding.ASCII.GetBytes(strMessage)
    46. Server.Send(message)
    47. Loop
    48. Catch ex As Exception
    49. Console.WriteLine("Sende-Fehler: " & ex.Message)
    50. Console.ReadLine()
    51. End Try
    52. End Sub
    54. Public Sub GetServerData()
    55. Try
    56. Do While True
    57. Dim bytes(1024) As Byte
    58. Dim countBytesFromServer As Integer
    59. countBytesFromServer = Server.Receive(bytes)
    60. Console.WriteLine(Encoding.ASCII.GetString(bytes, 0, countBytesFromServer))
    61. Loop
    62. Catch ex As Exception
    63. Console.WriteLine("Empfangs-Fehler: " & ex.Message)
    64. Console.ReadLine()
    65. End Try
    66. End Sub
    68. End Module


    Der Fehler tritt sehr gut auf, wenn ich nur mit einem Client immer wieder connecte und disconnecte, also server laufen lassen und client anwendung auf und zu etc....
    Ich hoffe ich könnt mir da helfen :)

    Mit freundlichen Grüßen
    Kai

Facebook
Telefonspende