TCP Sendeproblem (Server sendet bei jeder 2. Anfrage)

  • VB.NET

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

    TCP Sendeproblem (Server sendet bei jeder 2. Anfrage)

    Guten Tag liebe Community,

    Ich habe ein Problem: Ich schreibe gerade ein Grundlagenprogramm für Games und Community: Es soll nun bei anfrage auf den Server die Userliste zurückgeben und man soll sich natürlich einloggen können.

    Nun mein Problem: Das Programm (Server-seite) trägt mir bei jedem 2. Loginversuch erst den Namen ein und der Client registriert erst nach 4 oder 5 Logins, dass es vom Server eine Rückmeldung bekommen hat. Ich habe nun 2 Stunden des grübelns und 0.5 L Cafe hinter mir, nun wollte ich euch fragen, ob evt jmd von euch die Lösung findet.

    Ich wäre sehr froh über Hilfe und oder eine Lösung. Hier die Codes:

    Client:

    Quellcode

    1. Imports System.Net.SocketsImports System.IO
    2. 　
    3. 　
    4. Public Class Form1
    5. 　
    7. Dim stream As NetworkStream
    8. Dim streamw As StreamWriter
    9. Dim streamr As StreamReader
    10. Dim Client As New TcpClient
    11. Dim IP As String = "xx.xxx.xxx.xxx" 'IP und Port wurden herausgenommenDim Port As Integer = xxxxx
    12. Dim zs As String
    14. 　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    16. getPlayerList()
    18. 　
    19. End Sub
    20. 　
    21. 　
    22. 　Sub client_send(ByVal text As String)
    23. streamw.WriteLine(text)
    24. streamw.Flush()
    25. End Sub
    26. 　
    27. 　
    28. Function client_recieve() As String
    29. client_recieve = streamr.ReadLine
    30. End Function
    31. 　
    32. 　
    33. 　Private Sub login()
    34. client_send("usn " & TextBox1.Text) 'Username senden
    35. zs = client_recieve()
    36. If zs = "loggedin" Then
    37. Button2.Hide()
    38. TextBox1.Hide()
    39. End If
    40. End SubPrivate Sub getPlayerList()
    41. 　
    42. client_send("gpl") ' Aufforderung senden, um Spielerliste zu bekommen
    43. RichTextBox1.Text = client_recieve()
    44. 　
    45. End Sub
    46. 　
    47. 　
    48. 　
    50. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 　 'Login Button
    51. If TextBox1.Text <> "" Then
    52. login()
    54. End If
    55. 　
    56. End SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    57. Client.Connect(IP, Port) 'Client verbindet
    58. If Client.Connected Then
    59. stream = Client.GetStream ' Stream >Client
    60. streamw = New StreamWriter(stream) ' Sender wird deklariert
    61. streamr = New StreamReader(stream) ' Empfänger wird deklariert
    62. getPlayerList()
    63. ElseMsgBox("Verbidnung konnte nicht mit " & IP & " aufgebaut werden!")
    64. End IfEnd Sub
    65. End Class


    und Der Servercode:

    Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IOImports System.Net
    3. 　
    4. 　
    5. Public Class Form1
    6. 　
    8. Dim stream As NetworkStream
    9. Dim streamw As StreamWriter
    10. Dim streamr As StreamReader
    11. Dim Server As TcpListener
    12. Dim client As New TcpClientDim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, xxxx) 'Port wurde von mir wieder entfernt
    13. Dim mainthread As Threading.Thread
    14. '______________
    15. 　
    16. 　
    17. 　
    18. 　
    19. 　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadmainthread = New Threading.Thread(AddressOf mainserver)
    20. mainthread.Start()
    21. End Sub
    22. 　
    23. 　
    24. 　Sub mainserver()
    25. TryServer = New TcpListener(ipendpoint)
    26. Server.Start()
    27. client = Server.AcceptTcpClient
    28. stream = client.GetStreamstreamr = New StreamReader(stream)
    29. streamw = New StreamWriter(stream)
    30. 　
    31. While True
    32. Label1.Text = Label1.Text & "1" 'Hier überprüfe ich die Rückgabe, und wie gesagt, es fügt immer erst nach 2 Buttonclicks die 1 hinzu.Select Case Mid(streamr.ReadLine, 1, 3)
    33. Case "usn"
    34. RichTextBox1.Text = RichTextBox1.Text & Mid(streamr.ReadLine, 4) & vbCrLfstreamw.WriteLine("loggedin")
    35. streamw.Flush()
    36. Case "gpl"
    37. 　
    38. streamw.WriteLine(RichTextBox1.Text)
    39. streamw.Flush()
    40. 　
    41. End Select
    42. End While
    43. Catch
    44. End Try
    45. End Sub
    46. 　
    47. 　
    48. 　
    49. 　Private Sub Form1__close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
    50. Server.Stop()
    51. Try
    52. mainthread.Abort()
    53. Catch
    54. End Try
    55. End Sub
    56. 　
    57. 　
    58. 　
    59. 　End Class

Facebook
Telefonspende