hoi, hab leider nix gefunden was mir bei meinem prob weiterhilft
also ich hab nen kleinen chat geschrieben, funktioniert alles so weit gut, bis auf die tatsache dass von der empfangenen nachricht nur das letzte zeichen ausgegeben wird
bsp: ich sende "hallo" und ausgegeben wird beim empfänger "o"
hoffe ihr könnt mir bei meinem prob weiterhelfen, danke im voraus
also ich hab nen kleinen chat geschrieben, funktioniert alles so weit gut, bis auf die tatsache dass von der empfangenen nachricht nur das letzte zeichen ausgegeben wird
bsp: ich sende "hallo" und ausgegeben wird beim empfänger "o"
Quellcode
- Imports System.Threading
- Imports System.IO
- Imports System.Net.Sockets
- Public Class Form1
- Dim listener As New TcpListener(5555)
- Dim client As TcpClient
- Dim message As String = Nothing
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- listener.Stop()
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim listthread As New Thread(New ThreadStart(AddressOf listening))
- listthread.Start()
- End Sub
- Private Sub listening()
- listener.Start()
- End Sub
- Private Sub cmd_senden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_senden.Click
- client = New TcpClient(txt_ip.Text, 5555)
- Dim writer As New StreamWriter(client.GetStream())
- writer.Write(txt_senden.Text)
- writer.Flush()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If listener.Pending = True Then
- message = Nothing
- client = listener.AcceptTcpClient()
- Dim reader As New StreamReader(client.GetStream())
- While reader.Peek > -1
- Dim message1 As String
- message1 = Convert.ToChar(reader.Read())
- message = message1
- End While
- txt_empfangen.Text = txt_empfangen.Text & message
- End If
- End Sub
- End Class
hoffe ihr könnt mir bei meinem prob weiterhelfen, danke im voraus