Frage zum TcpListener()

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Vainamo V.

    Frage zum TcpListener()

    Hallo zusammen,

    ich habe einen TCP Chat Programmiert, der auch soweit ganz gut läuft. Jetzt würde ich den Port aber gerne manuell vergeben wollen. Dazu habe ich mir eine TB definiert, die ich in int32 konvertiere.
    Und hier taucht jetzt das Problem auf, dass ich zuerst prüfen sollte ob eine Null vorhanden ist (Das sagt zumindest der Compiler). Gut dachte ich, habe dafür dann eine Methode definiert. Das löst allerdings nciht das Problem.

    Hat Jemand daher vllt eine Idee, wie ich den Port aus der Textbox dennoch nutzen kann?

    VB.NET-Quellcode

    1. Dim port As Int32
    2. Dim listener As New TcpListener(prüfeaufnull())
    4. Public Function prüfeaufnull()
    5. If TextBox2.Text <> 0 Then
    6. port = Convert.ToInt32(TextBox2.Text)
    7. Return port
    8. Else
    9. port = 8000
    10. Return port
    11. End If
    12. End Function


    Das ist der betreffende Code. Für Unterstützung bin ich sehr dankbar!

    VB.neter0101 schrieb:


    VB.NET-Quellcode

    1. Dim port As Int32
    2. Dim listener As New TcpListener(prüfeaufnull())
    4. Public Function prüfeaufnull()
    5. If TextBox2.Text <> 0 Then
    6. port = Convert.ToInt32(TextBox2.Text)
    7. Return port
    8. Else
    9. port = 8000
    10. Return port
    11. End If
    12. End Function


    Das ist der betreffende Code. Für Unterstützung bin ich sehr dankbar!


    Erstmal würde ich nicht prüfen ob der Wert der Textbox "ungleich" 0 ist sonder größer :D
    Wir wollen ja keine negativen Ports haben oder?...

    Dann würde ich dem TCP Listener erst in einer start() Methode erstellen und diesem dann den Port mitgeben und keine Function die im schlechtesten Fall einen negativen Port mitgibt.

    Die Dims stehen in der Klasse ganz am Anfang

    Ich packe hier mal gen ganzen Code rein:Das mit dem Start habe ich nicht so ganz verstanden...

    VB.NET-Quellcode

    1. ​Imports System.IO
    2. Imports System.Threading
    3. Imports System.Net.Sockets
    5. Public Class Form1
    7. Dim port As Int32
    8. Dim listener As New TcpListener(prüfeaufnull())
    9. Dim client As TcpClient
    10. Dim message As String
    12. Public Function prüfeaufnull()
    13. If TextBox2.Text > 0 Then
    14. port = Convert.ToInt32(TextBox2.Text)
    15. Return port
    16. Else
    17. port = 8000
    18. Return port
    19. End If
    20. End Function
    22. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    23. listener.Start()
    24. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    25. listthread.Start()
    26. End Sub
    28. Private Sub listening()
    29. listener.Start()
    30. End Sub
    32. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    33. listener.Stop()
    34. Application.Exit()
    35. End Sub
    37. Private Sub btnSendMsg_Click(sender As Object, e As EventArgs) Handles btnSendMsg.Click
    38. If rtbTextToSend.Text = "" Then
    39. MsgBox("Text eingeben!", MsgBoxStyle.Exclamation, "Text fehlt")
    40. Else
    41. Try
    42. client = New TcpClient(tbip.Text, prüfeaufnull())
    43. Dim writer As New StreamWriter(client.GetStream())
    45. writer.Write(rtbTextToSend.Text)
    46. rtbReceivedText.AppendText(Format(Now, "[dd.MM | hh:mm:ss]]") & TextBox1.Text & " schrieb: " & rtbTextToSend.Text & vbCrLf)
    47. rtbTextToSend.Clear()
    48. writer.Flush()
    49. Catch ex As Exception
    51. End Try
    52. Try
    53. rtbReceivedText.ScrollToCaret()
    54. rtbTextToSend.Text = ""
    55. SendKeys.Send("{BACKSPACE}")
    56. Catch ex As Exception
    58. End Try
    59. End If
    61. End Sub
    63. Private Sub tmrlistener_Tick(sender As Object, e As EventArgs) Handles tmrlistener.Tick
    64. If listener.Pending = True Then
    65. message = ""
    66. client = listener.AcceptTcpClient()
    68. Dim reader As New StreamReader(client.GetStream())
    69. While reader.Peek > -1
    70. message = message + Convert.ToChar(reader.Read()).ToString
    71. End While
    73. rtbReceivedText.AppendText(Format(Now, "[dd.MM | hh:mm:ss]]") & "Er/Sie: " & message & vbCrLf)
    74. If CheckBox1.Checked Then
    75. MsgBox(message, MsgBoxStyle.Information, "Du hast einen neue Benachrichtigung: ")
    76. End If
    77. End If
    79. End Sub
    81. Private Sub rtbTextToSend_KeyDown(sender As Object, e As KeyEventArgs) Handles rtbTextToSend.KeyDown
    82. If e.KeyCode = Keys.Enter Then
    83. Try
    84. rtbReceivedText.ScrollToCaret()
    85. Catch ex As Exception
    87. End Try
    88. btnSendMsg.PerformClick()
    89. rtbTextToSend.Text = ""
    90. SendKeys.Send("{BACKSPACE}")
    91. End If
    92. End Sub
    93. End Class

    Dann wird Dim listener As New TcpListener(prüfeaufnull()) ausgeführt ehe die Oberfläche erstellt wird, und die Textbox ist Nothing (null). Du musst den TcpListener initialisieren wenn du deine Textbox eingabe getätigt hast.

    VB.NET-Quellcode

    1. If TextBox2.Text <> 0 Then


    Funktioniert übrigens nicht da Text ein String ist und 0 ein Int.

    Vielleicht mit einem Button "Server starten" ?

    VB.NET-Quellcode

    1. Dim listener As New TcpListener(prüfeaufnull())
    2. 'wird dann zu
    3. Dim listener As TcpListener
    4. 'und im Button machst du dann
    5. listener As New TcpListener(Int32.Parse(Textbox1.Text))

    Gut:

    VB.NET-Quellcode

    1. ​ Dim port As Int32
    2. 'Dim listener As New TcpListener(prüfeaufnull())
    3. Dim listener As TcpListener

    Check

    Neuen Button definiert:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. listener As New TcpListener(Int32.Parse(Textbox2.Text))
    3. End Sub

    Dort meckert er jetzt noch, Der Ausdruck ist keine Methde

    Danke, ich wollte eigentlich schon längst zurückgeschrieben haben, aber bei uns ist das Internet ausgefallen...

    Ich habe es heute morgen dann doch noch geschafft. Einfach die Sachen, die in der FormLoad waren in den neuen Button eingepackt und dann:
    listener = New TcpListener(Int32.Parse(Textbox2.Text)). Das passte somit. Ich habe es auch gleich getestet und alles läuft jetzt Super!

    Daher nochmal besten Dank an alle hier!

    Trotzdem wäre es hilfreich wenn du an den Codeanfang Option Strict On schreiben würdest. Und im nächsten Schritt dann das ganze als Standard festlegst, es gibt hier ein praktisches Tutorial dafür. Ich hab gerade nicht den Link parat aber ich wette @ErfinderDesRades hat dafür irgendne Liste wo die alle drinstehen :thumbsup: . Ach er hat ihn sogar schon gepostet.
    -> Visual Studio - Empfohlene Einstellungen

Facebook
Telefonspende