TCP Chat

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von niwax.

    Hallo,
    ich arbeite momentan an einem TCP Chat Programm:

    VB.NET-Quellcode

    1. Imports System.Net.sockets
    2. Imports System.Threading
    3. Imports System.io
    5. Public Class Form1
    6. Dim listener As New TcpListener(80)
    7. Dim client As TcpClient
    8. Dim message As String = ""
    10. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    11. listener.Stop()
    12. End Sub
    15. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    16. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    17. listthread.Start()
    18. End Sub

    Private Sub listening()
    listener.Start()
    End Sub

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. client = New TcpClient(TextBox1.Text, 80)
    3. Dim writer As New StreamWriter(client.GetStream())
    4. writer.Write(TextBox2.Text)
    5. writer.Flush()
    6. End Sub
    8. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    9. If listener.Pending = True Then
    10. message = ""
    11. client = listener.AcceptTcpClient()
    12. Dim reader As New StreamReader(client.GetStream())
    13. While reader.Peek > -1
    14. message = message + Convert.ToChar(reader.Read()).ToString
    15. End While
    17. TextBox3.Text = TextBox3.Text & message & vbCrLf
    20. Else : End If
    22. End Sub
    23. End Class


    Bei dem listener.Start() (deutlich hervorgehoben) schreibt er ,als ich Debuggen wollte, :
    Only one usage of each socket address (protocol/network address/port) is normally permitted
    Was kann ich machen, dass das nicht mehr dahin kommt.

    MfG.sheriff3


    Edit by LaMa5:
    - hat nichts mit SourceCodeAustausch zu tun
    -->*moved* (=> Internet-/Netzwerkprogrammierung)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „sheriff3“ ()

    Ich möchte drauf hinweisen, das du mal bitte nicht mehr mit rot irgendwas kennzeichnest, das ist Mods vorbehalten. Nur so Tipp am Rande: Port 80 zu benutzen ist nich sehr dolle, da wennde einen linux server benutzt, wird da sicher ein webserver laufen, und port 80 ist für http/https glaubich. villeicht einen cryptischen port? wie ärs mit 48590 oder so? :D

    Ich möchte drauf hinweisen, das du mal bitte nicht mehr mit rot irgendwas kennzeichnest, das ist Mods vorbehalten. Nur so Tipp am Rande: Port 80 zu benutzen ist nich sehr dolle, da wennde einen linux server benutzt, wird da sicher ein webserver laufen, und port 80 ist für http/https glaubich. villeicht einen cryptischen port? wie ärs mit 48590 oder so? :D

    Port 80 wird auch bei einem Windows WebServer verwendet, schließlich läuft jede normale HTTP Verbindung auf diesem Port...
    aber stimmt schon, am besten einen anderen freien Port verwenden...

    dann wie bereits gesagt das Serverprogramm kann auf jeden Port nur einmal gestartet werden...

    und beim Beenden des Servers(vor listener.Stop) noch ein client.GetStream().Close...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---