TCP-Server hängt - ohne fehlermeldung

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    TCP-Server hängt - ohne fehlermeldung

    Hi,

    ich hab ein Problem mit meinem TCP-Server. Hier erstmal den SourceCode:

    VB.NET-Quellcode

    1. 'TYP=ConsoleApplication
    2. 'LANGUAGE=VISUALBASIC
    3. #Region "Imports"
    4. Imports System
    5. Imports System.Diagnostics
    6. Imports System.Threading
    7. Imports System.Net
    8. Imports System.Net.Sockets
    9. Imports System.IO
    10. #End Region
    12. Public Class Main
    13. Shared Dim connection As Socket
    14. Shared Dim readThread As Thread
    15. Shared Dim socketStream As NetworkStream
    16. Shared Private writer As BinaryWriter
    17. Shared Private reader As BinaryReader
    19. Public Shared Sub Main()
    20. Console.Title = "TCP Server"
    21. readThread = New Thread(AddressOf RunServer)
    22. readThread.Start()
    24. Try
    25. writer.Write("SERVER>>> " )
    26. Console.WriteLine("SERVER>>> " )
    27. connection.Close()
    28. Catch exception As SocketException
    29. Console.WriteLine("Error writing object")
    30. End Try
    31. End Sub
    33. Shared Public Sub RunServer()
    34. Dim listener As TcpListener
    35. Dim counter As Integer = 1
    36. Try
    37. listener = New TcpListener(5000)
    38. listener.Start()
    39. While True
    40. Console.WriteLine("Waiting for connection" )
    41. connection = listener.AcceptSocket()
    42. socketStream = New NetworkStream(connection)
    43. writer = New BinaryWriter(socketStream)
    44. reader = New BinaryReader(socketStream)
    45. Console.WriteLine("Connection " & counter &" received.")
    46. writer.Write("SERVER>>> Connection successful")
    47. Dim theReply As String = ""
    48. Try
    49. Do
    50. theReply = reader.ReadString()
    51. Console.WriteLine(theReply)
    52. Loop While (theReply <> "CLIENT>>> TERMINATE" _
    53. AndAlso connection.Connected)
    54. Catch inputOutputException As IOException
    55. Console.WriteLine("Client application closing")
    56. Finally
    57. Console.WriteLine("User terminated connection")
    58. writer.Close()
    59. reader.Close()
    60. socketStream.Close()
    61. connection.Close()
    62. counter += 1
    63. End Try
    64. End While
    65. Catch inputOutputException As IOException
    66. Console.WriteLine("Server application closing")
    67. End Try
    68. End Sub
    69. End Class


    Kapiere aber einfach nicht, wieso der sich aufhängt, kann mir da jemand ein Hinweis geben pls? =)

    mfg

    gfc

    Setz dir nen Haltepunkt und debugge in Einzelschritten und sag uns wo sich der Server aufhängt....

    VB.NET-Quellcode

    1. Try
    2. writer.Write("SERVER>>> " )
    3. Console.WriteLine("SERVER>>> " )
    4. connection.Close()
    5. Catch exception As SocketException
    6. Console.WriteLine("Error writing object")
    7. End Try

    Wird aufgerufen, obwohl keins der benutzen Objekte (writer, connection) initialisiert wurde....

    Oder..... lösch das ganze und mach es neu, denn das was du da jetzt hast sieht einfach nur grausam aus....

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Rinecamo“ ()

    Rinecamo schrieb:

    Oder..... lösch das ganze und mach es neu, denn das was du da jetzt hast sieht einfach nur grausam aus....


    ;(
    Wieso denn? Will ein TCP-Server für eine Verbindung, ist also Sinnerfüllend...
    Oder was meinst du mit schrecklich?

    mfg

Facebook
Telefonspende