TCP Problem

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    so, wie connectest du denn? Und mit diesem ist die Verbindung noch nicht geschlossen, du schließt dabei nur die Kommunikationsverbindung zwischen dem TCP Stream und deiner Application, um die Verbindung wirklich zu schließen musst du auch den NetworkStream schließen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    du meinst du hast den Code nur abkopiert und kannst mir nichtmal den Code zeigen, mit welchem du Connectest geschweige denn weißt du was davon der NetworkStream ist...

    Private stream As NetworkStream
    das war aber schwer zu finden...und diesen musst du beim Disconnect des Clients als allererstes schließen...(ink. Streamreader/writer)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Es ist nicht schlimm, dass du diesen Code als Basis verwendest, es ist nur schlimm, wenn du ihn verwendest, bevor du ihn verstehst und zwar jede einzelne Zeile davon, sonst kannst du dir meistens Sicher sein, dass das entsprechende Umformen nicht funktioniert und Fehler aufweist...

    Edit: Was geht nicht? Warum geht es nicht? Und ich habe immer noch keinen fetzen Code gesehen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Auf das verworfene Objekt kann nicht zugegriffen werden. Objektname: "System.Net.Sockets.NetworkStream".

    Ich lese mir denn Code durch, muss ich ja wenn ich ihn verändere. Kann nur sein das ich mal was überfliege.

    Client:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    5. Private stream As NetworkStream
    6. Private streamw As StreamWriter
    7. Private streamr As StreamReader
    8. Private client As New TcpClient
    9. Private t As New Threading.Thread(AddressOf Listen)
    10. Private Delegate Sub DAddItem(ByVal s As String)
    11. Private nick As String = ""
    12. Dim sendung As String = ""
    13. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    14. Dim info As Integer = "0"
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. End Sub
    21. Private Sub AddItem(ByVal s As String)
    23. End Sub
    25. Private Sub connect()
    26. info = "0"
    27. Try
    28. client.Connect("127.0.0.1", 8000) ' hier die ip des servers eintragen.
    29. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    30. If client.Connected Then
    31. stream = client.GetStream
    32. streamw = New StreamWriter(stream)
    33. streamr = New StreamReader(stream)
    35. streamw.WriteLine(nick) ' das ist optional.
    36. streamw.Flush()
    38. t.Start()
    39. Else
    40. MessageBox.Show("Verbindung zum Server nicht möglich!")
    41. End If
    42. Catch ex As Exception
    43. MessageBox.Show("Verbindung zum Server nicht möglich!")
    44. End Try
    45. End Sub
    47. Private Sub Listen()
    48. While client.Connected
    49. Try
    50. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    51. Catch
    52. If info = "1" Then
    53. ElseIf info = "0" Then
    54. MessageBox.Show("Verbindung zum Server nicht möglich")
    55. Application.Exit()
    56. End If
    57. End Try
    58. End While
    59. End Sub
    61. Private Sub send()
    62. streamw.WriteLine(sendung)
    63. streamw.Flush()
    64. sendung = ""
    65. End Sub
    67. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    68. nick = TextBox1.Text
    69. sendung = TextBox1.Text & ";" & TextBox2.Text & ":"
    70. connect()
    71. send()
    72. Button1.Enabled = False
    73. End Sub
    75. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    76. reg.Show()
    77. End Sub
    79. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    80. If My.Settings.newaccount = "" Then
    81. Else
    82. sendung = My.Settings.newaccount
    83. My.Settings.newaccount = ""
    84. My.Settings.Save()
    85. nick = "reg"
    86. connect()
    87. send()
    88. info = "1"
    89. Sleep(1000)
    90. client.Close()
    91. stream.Close()
    92. End If


    Server is der selbe code

    und in welcher Zeile kommt der Code und nach welcher Aktion?


    Ich lese mir denn Code durch, muss ich ja wenn ich ihn verändere. Kann nur sein das ich mal was überfliege.

    das Überfliegen würde ich mir abgewöhnen, da sich dort meistens der Fehler verbirgt...

    Edit: wie bereits gesagt stream.Close() muss vor client.Close(), da die Verbindung zu den Objekten durch client.Close() geshclossen wird und du somit keinen Zugriff mehr darauf hast...(aber warum in einem Timer die Verbindung schließen? Um sie etwa später wieder zu öffnen? Dann lieber direkt offen lassen)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Der timer soll denn Client aufm Server ein Account erstellen, da er es aus My.settings holt deshalb timer. Verbindung muss unterbrochen werden weil der Client sich mit denn nick: reg anmeldet damit der server weis er soll ein account erstellen. Und nacher sich halt mit denn Username anmeldet.

    Wenn ich das sub send ansteuere, krieg ich ein error:

    VB.NET-Quellcode

    1. Private Sub send()
    2. streamw.WriteLine(sendung)
    3. streamw.Flush() 'Auf das verworfene Objekt kann nicht zugegriffen werden. Objektname: "System.Net.Sockets.NetworkStream".
    4. sendung = ""
    5. End Sub