Hallo ich hab nach dem Semper-Video Tutorial versucht ein kleines Chat Programm zu erstellen. Der Code sieht wie folgt aus:
Allerdings bekomme ich im txtEmpfang keine Message rein...
VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.Threading
- Imports System.IO
- Imports System.Windows.Threading
- Class MainWindow
- Dim listener As New TcpListener(55555)
- Dim client As TcpClient
- Dim message As String = ""
- Dim timer As New DispatcherTimer
- Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
- Dim listthread As New Thread(New ThreadStart(AddressOf listening))
- listthread.Start()
- timer.Interval = New TimeSpan(0, 0, 1)
- timer.IsEnabled = True
- AddHandler timer.Tick, AddressOf dispatcherTimer_Tick
- timer.Start()
- End Sub
- Private Sub listening()
- listener.Start()
- client = listener.AcceptTcpClient
- End Sub
- Private Sub MainWindow_Closed(sender As Object, e As EventArgs) Handles Me.Closed
- listener.Stop()
- End Sub
- Private Sub cmdSend_Click(sender As Object, e As RoutedEventArgs) Handles cmdSend.Click
- Try
- client = New TcpClient(txtZiel.Text, 55555)
- Dim writer As New StreamWriter(client.GetStream)
- writer.Write(txtEmpfang.Text)
- writer.Flush()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub dispatcherTimer_Tick(sender As Object, e As EventArgs)
- Try
- If listener.Pending = True Then
- message = ""
- Dim reader As New StreamReader(client.GetStream)
- While reader.Peek > -1
- message = message + Convert.ToChar(reader.Read()).ToString
- End While
- txtEmpfang.Text = txtEmpfang.Text & message & vbCrLf
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- End Class
Allerdings bekomme ich im txtEmpfang keine Message rein...