TCP Client Abfrage bringt Form zum laggen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von vb-opo-orbita.

    TCP Client Abfrage bringt Form zum laggen

    Hallo,

    ich stelle per TCP Client eine Verbindung zum Server her. Welchen Server, und für was für einen Zweck ist denke ich unwichtig.
    Also, ich muss damit rechnen das mich jede Millisekunde ein wichtiges Packet vom Server erreichen könnte, worauf ich reagieren muss. Ich habe es bisher so gelöst, das ich nen Timer hab, der auf Intervall 1 eingestellt ist, und die jeweilige Sub des TCP Moduls aufruft. Hier einmal der Code des Moduls:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net
    3. Imports System.IO
    5. Module client
    7. 'Einige Definationen hier
    9. Public mIP as String
    10. Dim Client As System.Net.Sockets.TcpClient
    11. Dim stream As NetworkStream
    12. Dim streamr As StreamReader
    13. Dim streamw As StreamWriter
    14. Dim Port As Integer = 8080
    17. Function client_recieve() As String
    18. Try
    19. client_recieve = streamr.ReadLine
    20. Catch
    21. End Try
    22. End Function
    24. Sub client_send(ByVal text As String)
    25. Try
    26. streamw.WriteLine(text)
    27. streamw.Flush()
    28. Catch
    29. End Try
    30. End Sub
    32. Sub connect()
    33. Try
    34. writelog("Connecting")
    35. Client = New System.Net.Sockets.TcpClient
    36. Client.Connect(mIP, Port)
    37. If Client.Connected Then
    38. stream = Client.GetStream
    39. streamw = New StreamWriter(stream)
    40. streamr = New StreamReader(stream)
    41. login()
    42. End If
    43. Catch ex As Exception
    44. writelog("Error Client 1: " & ex.Message)
    45. End Try
    46. End Sub
    48. Sub login()
    49. Try
    50. client_send("MEIN LOGIN PACKET HIER")
    51. Form1.tmr_account1.Enabled = True
    52. writelog("Connected " & Form1.name1 & " to map")
    53. Catch ex As Exception
    54. writelog("Cannot connect " & Form1.Name & " to map")
    55. End Try
    56. End Sub
    58. Sub writelog(ByVal text As String)
    59. Form1.event_log.Items.Add(text)
    60. Form1.event_log.SelectedIndex = Form1.event_log.Items.Count - 1
    61. End Sub
    63. Sub getinfo()
    64. Try
    65. Dim packet As String
    66. packet = ""
    67. packet = client_recieve()
    68. Dim split1() As String = packet.Split("|")
    70. If split1(0) = "0" Then
    71. If split1(1) = "KIK" Then
    72. writelog("Lost connection")
    73. Form1.tmr_account1.Enabled = False
    74. Exit Sub
    75. End If
    76. End If
    79. If split1(0) = "0" Then
    80. If split1(1) = "A" Then
    81. If split1(2) = "v" Then
    82. client_send("LAB|UPD|GET")
    83. End If
    84. End If
    85. End If
    87. If split1(1) = "LAB" Then
    88. If split1(2) = "UPD" Then
    89. client_send("RDY|MAP")
    90. End If
    91. End If
    93. 'Und noch viele weitere
    94. Catch
    95. End Try
    96. End Sub
    97. End Module


    So, und so wirds ganze letzendlich ausgeführt:

    VB.NET-Quellcode

    1. '....
    2. client.mIP = ip1
    3. client.connect()
    4. '...
    5. Private Sub tmr_account1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_account1.Tick
    6. client.getinfo()
    7. End Sub



    Der Timer bringt das ganze zum laggen. Das ist mir klar. Ich weiß dass ich es mit nem Thread lösen soltle (am besten oder?), nur kenne ich mich damit nicht so wirklich aus, habe es versucht indem ich im Modul anstatt den Timer einzuschalten das gemacht habe:

    VB.NET-Quellcode

    1. Dim abfrage as new Thread(AdressOf getinfo)
    2. abfrage.start

    Nur hat das nicht funktioniert, weil getinfo in einem eigenen thread lief und nichtmehr auf die Funktion WriteLog zugreifen kann, und auch die Packets nicht erhalten konnte.

    Ich hab auch schon gegoogelt, hat mir nichts gebracht :(

    Könntet Ihr mir irgendwie helfen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „vb-opo-orbita“ ()

    Du darfst über einen neuen Thread keinesfalls auf deinen Haupt Thread zugreifen, in dem falle die Form.
    Schau am besten nach ob dein Thread auf einen Sub zugreift welcher Funktionen beinhaltet die auf die Form zugreifen.

    [VB 2010] Form steckt - Threads???

    LG.L

    vb-opo-orbita schrieb:

    Der Timer bringt das ganze zum laggen. Das ist mir klar. Ich weiß dass ich es mit nem Thread lösen soltle (am besten oder?), nur kenne ich mich damit nicht so wirklich aus,

    Du hast Recht: Du pollst (=ständiges Abfragen) per Timer auf dem GUI Thread, und das noch im Abstand von 1ms - wann sollen denn dann noch andere GUI-Ereignisse wie Ziehen/Klicken/Update erfolgen ?

    Schau Dir einmal den Post [VB.NET] Multiserver (TCP), ich denke Du findest dort schnell was Du brauchst.

    vb-opo-orbita schrieb:

    Nur hat das nicht funktioniert, weil getinfo in einem eigenen thread lief und nichtmehr auf die Funktion WriteLog zugreifen kann

    Per Invoke Dein Log schreiben ( analog wie beim o.g. Thread das Schreiben auf die Listview), bzw sobald Du etwas Zeit hast Dir eine threadfähige Log-Routine schreiben.

    Geht immer noch nicht

    Also, ich habe es jetzt so versucht, indem ichdas connecten zum server etc in eine sub getan hab, und diese als Thread ausführen lasse, doch verbindet er sich jetzt nichtmal mit dem server gescweigedenn sendet etwas (habe das ganze mit nem packet sniffer mitgesnifft).

    Hier nochmal der aktuelle Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net
    3. Imports System.IO
    4. Imports System.Threading
    6. Module client1
    8. 'Einige Definiationen hier
    10. Public t As New Thread(AddressOf getinfo)
    11. Dim Client As System.Net.Sockets.TcpClient
    12. Dim stream As NetworkStream
    13. Dim streamr As StreamReader
    14. Dim streamw As StreamWriter
    15. Dim Port As Integer = 8080
    16. Dim logged As Boolean = False
    19. Dim ax, ay As Integer
    21. Function client_recieve() As String
    22. Try
    23. client_recieve= streamr.ReadLine
    24. Catch
    25. End Try
    26. End Function
    28. Sub client_send(ByVal text As String)
    29. Try
    30. streamw.WriteLine(text)
    31. streamw.Flush()
    32. Catch
    33. End Try
    34. End Sub
    37. Sub getinfo()
    38. Try
    39. If Client.Connected = False Then
    40. logged = False
    41. Client = New System.Net.Sockets.TcpClient
    42. Client.Connect(mIP, Port)
    43. If Client.Connected Then
    44. stream = Client.GetStream
    45. streamw = New StreamWriter(stream)
    46. streamr = New StreamReader(stream)
    47. Exit Sub
    48. End If
    49. End If
    50. Catch ex As Exception
    51. MsgBox(ex.Message)
    52. End Try
    54. If logged = False Then
    55. Try
    56. logged = True
    57. client_send("LOGIN PACKET HIER (Greift auf die Definationen oben zu!!!")
    58. client_send("PNG")
    59. Exit Sub
    60. Catch ex As Exception
    61. MsgBox(ex.Message)
    62. End Try
    63. End If
    64. Try
    66. Dim packet As String
    67. packet = ""
    68. packet = client_recieve()
    69. Dim split1() As String = packet.Split("|")
    71. If split1(0) = "0" Then
    72. If split1(1) = "KIK" Then
    73. Exit Sub
    74. End If
    75. End If
    78. If split1(0) = "0" Then
    79. If split1(1) = "A" Then
    80. If split1(2) = "v" Then
    81. client_send("LAB|UPD|GET")
    82. End If
    83. End If
    84. End If
    86. If split1(1) = "LAB" Then
    87. If split1(2) = "UPD" Then
    88. client_send("RDY|MAP")
    89. End If
    90. End If
    92. 'Und einige weiter ;)
    93. Catch ex As Exception
    94. MsgBox(ex.Message)
    95. End Try
    96. End Sub
    97. End Module



    Gestartet wird in der From1 so:

    VB.NET-Quellcode

    1. 'Zuweisungen an Client1
    2. client1.t.Priority = ThreadPriority.Highest
    3. client1.t.Start()

Facebook
Telefonspende