Problem mit TCP Server - Server liest nicht oder Client schreibt nicht

  • VB.NET

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

    Problem mit TCP Server - Server liest nicht oder Client schreibt nicht

    Hallo Community,

    Ich programmiere derzeit ein Online strategie Spiel mit visual basic express 2008.
    Ich habe mir eine Libary für den Server und den Clienten erstellt:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    4. Public Class NetWorker
    5. Public Class server
    6. Private serv As TcpListener
    7. Private client As New TcpClient
    8. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000)
    9. Private list As New List(Of Connection)
    10. Public Event work(ByVal message As String, ByVal con As Connection)
    11. Public Structure Connection
    12. Dim stream As NetworkStream
    13. Dim streamw As StreamWriter
    14. Dim streamr As StreamReader
    15. Dim nick As String
    16. Dim privateInteraction As Boolean
    17. End Structure
    19. Public Sub SendToAllClients(ByVal s As String)
    20. For Each c As Connection In list
    21. Try
    22. If c.privateInteraction = False Then
    23. c.streamw.WriteLine(s)
    24. c.streamw.Flush()
    25. End If
    26. Catch
    27. End Try
    28. Next
    29. End Sub
    31. Public Sub SendToClient(ByVal s As String, ByVal nick As String)
    32. For Each c As Connection In list
    33. Try
    34. If c.nick = nick Then
    35. c.streamw.WriteLine(s)
    36. c.streamw.Flush()
    37. End If
    38. Catch
    39. End Try
    40. Next
    41. End Sub
    43. Public Sub start(ByVal Port As String, Optional ByVal ServerStartMessage As String = "Der Server wurde gestartet")
    44. ipendpoint = New IPEndPoint(IPAddress.Any, Port)
    45. Console.WriteLine(ServerStartMessage)
    46. serv = New TcpListener(ipendpoint)
    47. serv.Start()
    49. While True
    50. console.writeline(".")
    51. client = serv.AcceptTcpClient
    53. Dim c As New Connection
    54. c.stream = client.GetStream
    55. c.streamr = New StreamReader(c.stream)
    56. c.streamw = New StreamWriter(c.stream)
    58. c.nick = c.streamr.ReadLine
    60. list.Add(c)
    61. Console.WriteLine(c.nick & " has joined.")
    64. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    65. t.Start(c)
    66. End While
    67. End Sub
    69. Private Sub ListenToConnection(ByVal con As Connection)
    70. Do
    71. Try
    72. Dim tmp As String = con.streamr.ReadLine
    73. RaiseEvent work(tmp, con)
    74. Catch : Console.WriteLine(con.nick & " has left.") : End Try
    75. Loop
    76. Console.WriteLine(con.nick & " has left.")
    77. End Sub
    79. End Class
    81. Public Class ClientWorker
    82. Private stream As NetworkStream
    83. Private streamw As StreamWriter
    84. Private streamr As StreamReader
    85. Private client As New TCPclient
    86. Private t As New Threading.Thread(AddressOf Listen)
    87. Public Event connectionLost()
    88. Public Event cantConnect()
    89. Public Event connected()
    90. Public Event work(ByVal read As String)
    92. Public Sub connect(ByVal ip As String, ByVal port As String, ByVal nick As String)
    93. Try
    94. client.Connect(ip, port)
    95. If client.Connected Then
    96. stream = client.GetStream
    97. streamw = New StreamWriter(stream)
    98. streamr = New StreamReader(stream)
    100. streamw.WriteLine(nick)
    101. streamw.Flush()
    102. t.Start()
    103. RaiseEvent connected()
    104. Else
    105. RaiseEvent connectionLost()
    106. End If
    107. Catch ex As Exception
    108. RaiseEvent cantConnect()
    109. End Try
    110. End Sub
    112. Private Sub Listen()
    113. While client.Connected
    114. Try
    115. RaiseEvent work(streamr.ReadLine)
    116. Catch
    117. RaiseEvent connectionLost()
    118. End Try
    119. End While
    120. RaiseEvent connectionLost()
    121. End Sub
    123. Public Sub stopClient()
    124. t.Suspend()
    125. End Sub
    127. Public Sub writeToServer(ByVal s As String)
    128. streamw.WriteLine(s)
    129. End Sub
    131. End Class
    132. End Class


    Nun habe ich den server erstellt:

    VB.NET-Quellcode

    1. WithEvents server As New LJLib.NetWorker.server
    3. Sub Main()
    4. server.start("25565")
    5. End Sub
    7. '[...]
    9. Private Sub ListenToConnection(ByVal tmp As String, ByVal con As LJLib.NetWorker.server.Connection) Handles server.work
    10. '[...]
    12. If tmp = "[Map]" Then
    13. con.privateInteraction = True
    14. Console.WriteLine(con.nick + " fordert die map daten")
    15. End If
    16. '[...]
    17. End Sub


    Dann habe ich den code für den clienten geschrieben:

    VB.NET-Quellcode

    1. Private Sub client_connected() Handles client.connected
    2. client.writeToServer("[Map]")
    3. MsgBox("MAP SENT")
    4. End Sub
    6. Private Sub m_listen(ByVal read As String) Handles client.work
    7. If mapLoaded = False Then
    8. m_mapgen(read)
    9. End If
    10. End Sub


    Natürlich habe ich bei Form2.shown client.start

    so nun wenn ich das programm starte und mich einlogge, seh ich zwar im server das ich mich eingeloggt habe, aber nicht das ich die map daten anfordere, geschweige denn erhalte ich die mapdaten. Ich hoffe ihr habt einen rat für mich.

    Gruß, UWAP

    Port als Integer definieren und nicht als String, ist mal eine klare Sache :P
    Dann würde ich z.B. mal einen Haltepunkt setzen (Zeile 12 - 2ter Codeteil), dann merkst du ob es vlt. an der If-Abfrage liegt...
    Bzw. ich würde einmal einen Server mit Telnet starten, mit dem Client verbinden und entsprechend bei Telnet Manuell die Daten senden, ebenso natürlich noch umgekehrt...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Also das verbinden mit dem server klappt.

    "Me has joined."

    Es ist egal ob ich den port als string oder als int angebe.

    Nach ein bisschen testen habe ich gemerkt das der fehler bei irgendeiner schleife liegen könnte, denn ich habe bei dem server mir einfach mal ein "." ausgeben lassen, der punkt wurde nicht ausgegeben...

    Den fehler finde ich trotzdem nicht :/
    Entweder bin ich grad einfach nur blind oder ich hab irgendwas übersehn

    Edit: Zeile 50 in der lib wird auch nie ausgegeben, das einzige was ausgegeben wird ist "Me has joined"

    Edit2: Der fehler liegt denke ich hier:

    VB.NET-Quellcode

    1. Private Sub ListenToConnection(ByVal con As Connection)
    2. Do
    3. Try
    4. Dim tmp As String = con.streamr.ReadLine
    5. RaiseEvent work(tmp, con)
    6. Catch : Console.WriteLine(con.nick & " has left.") : list.Remove(con) : Exit Do : End Try
    7. Loop
    8. End Sub
    10. End Class

    Ich hab schon viel ausprobiert und getestet, ich finde ihn aber nicht

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „uwap“ ()

Facebook
Telefonspende