TCP Verbindung

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von bsHobbit.

    TCP Verbindung

    Tach ;)
    Ich habe ne TCP Verbung zwischen Server & Client.
    Server:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    4. Public Class Form1
    5. Private SimpleServer As TcpListener
    6. Private Client As New TcpClient
    7. Private Stream As NetworkStream
    8. Dim bytes() As Byte
    9. Dim hasData As Boolean
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. SimpleServer = New TcpListener(System.Net.IPAddress.Parse(0), 1111)
    13. SimpleServer.Start()
    14. SimpleServer.BeginAcceptTcpClient(AddressOf OnConnect, New Object)
    15. Timer1.Enabled = True
    16. End Sub
    18. Private Sub OnConnect(ByVal ar As System.IAsyncResult)
    19. Client = SimpleServer.EndAcceptTcpClient(ar)
    20. Stream = Client.GetStream
    21. ReDim bytes(Client.ReceiveBufferSize)
    22. Stream.BeginRead(bytes, 0, CInt(Client.ReceiveBufferSize), AddressOf onGetData, New Object)
    23. End Sub
    25. Private Sub onGetData(ByVal ar As System.IAsyncResult)
    26. hasData = True
    27. ar = Stream.BeginRead(bytes, 0, CInt(Client.ReceiveBufferSize), AddressOf onGetData, New Object)
    28. Stream.EndRead(ar)
    29. End Sub
    32. Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    33. If hasData = True Then
    34. Dim clientdata As String = Encoding.ASCII.GetString(bytes)
    35. ListBox1.Items.Add(clientdata)
    36. ListBox1.SelectedIndex = ListBox1.Items.Count - 1
    37. hasData = False
    38. End If
    39. End Sub
    40. End Class


    Client:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    4. Public Class Form2
    5. Dim verbunden As Boolean = False
    6. Private SimpleClient As New TcpClient
    7. Private Stream As NetworkStream
    8. Dim bytes() As Byte
    9. Dim hasdata As Boolean
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. End Sub
    12. Private Sub TextBox1_KeyPress( _
    13. ByVal sender As Object, _
    14. ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    15. Handles TextBox1.KeyPress
    16. If Asc(e.KeyChar) = 13 Then
    17. If verbunden = True Then
    18. Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(nickname & ": " & TextBox1.Text)
    19. Stream.Write(sendBytes, 0, sendBytes.Length)
    20. ListBox1.Items.Add(nickname & ": " & TextBox1.Text)
    21. TextBox1.Clear()
    22. End If
    23. End If
    24. End Sub
    25. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    27. End Sub
    29. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    30. ListBox1.Items.Add("Verbinung wird hergestellt.")
    31. Try
    32. SimpleClient.Connect(server, 1111)
    33. Stream = SimpleClient.GetStream
    34. verbunden = True
    35. ListBox1.Items.Add("Verbinungsaufbau erfolgreich.")
    36. Timer1.Enabled = True
    37. Catch
    38. ListBox1.Items.Add("Verbinungsaufbau fehlgeschlagen.")
    39. verbunden = False
    40. End Try
    41. End Sub
    42. End Class


    Zum Client: 'nickname' & 'server' werden schon in einer Form vorher deklariert.

    So, das läuft auch alles schoen und gut.
    Nur jetzt möchte ich daraus ein Multiuserchat basteln.
    Nur ich weiß nicht wie ich anfangen soll usw..
    Mit Arrays kenn ich mich garnicht aus...desshalb hätte ich gerne Hilfe von euch :)
    Ich stelle mir es so vor, dass alle Clienten dann etwas zum Server schicken koennen, und der Server es an alle weitergibt. Aber der Server soll auch etwas schreiben koenn.
    Ich hoffe ich finde Helferlein :>

    Mit freundlichen Grüßen Chris.

    Mit arrays würde ich das auch nicht lösen...

    Schau die da mal die Listen an, die vb .net bereit stellt

    Beispiel:

    VB.NET-Quellcode

    1. Dim MyList as new List(of String)
    3. MyList.add("Huhu")
    4. MyList.add("Haha")
    5. MyList.add("hehe")
    6. MyList.add("hihi")
    8. for i as integer = 0 to MyList.count -1
    9. msgbox(MyList(i))
    10. next i


    Jetzt könnte man sich ja vorstellen, das man keine Strings verwalten will, sondern Clients...

Facebook
Telefonspende