Hallo,
ich habe ein Problem mit der Automatischen Anzeige der Daten die über den Socket empfangen werden.
Die empfangenen Daten sollen automatisch in die ListBox geschrieben werden, momentan werden sie nur per Button klick in die ListBox geschrieben.
Hat einer von euch da eine Idee?
ich habe ein Problem mit der Automatischen Anzeige der Daten die über den Socket empfangen werden.
Die empfangenen Daten sollen automatisch in die ListBox geschrieben werden, momentan werden sie nur per Button klick in die ListBox geschrieben.
Hat einer von euch da eine Idee?
VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.Text
- Public Class Form1
- Dim clientSocket As New System.Net.Sockets.TcpClient()
- Dim serverStream As NetworkStream
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- msg("Client Started")
- clientSocket.Connect("127.0.0.1", 9300)
- Label1.Text = "Server Connected ..."
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Sub msg(ByVal mesg As String)
- ListBox1.Items.Insert(0, mesg)
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim serverStream As NetworkStream = clientSocket.GetStream()
- Dim inStream(10024) As Byte
- serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
- Dim returndata As String = System.Text.Encoding.ASCII.GetString(inStream)
- msg(returndata)
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- clientSocket.Close()
- End Sub
- End Class