VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.IO
- Imports System.Net
- Imports System.ComponentModel
- Public Class Form1
- Private Delegate Sub hallo(ByVal text)
- Dim server As System.Net.Sockets.TcpListener = Nothing
- Dim port As Integer = 13000
- Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")
- Dim bytes(1024) As Byte
- Dim data As String = Nothing
- Dim client As TcpClient
- Dim stream As NetworkStream
- Dim i As Integer
- Dim threade As System.Threading.Thread
- Dim ii As String
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- threade = New Threading.Thread(AddressOf listener)
- threade.Start()
- End Sub
- Private Sub listener()
- server = New System.Net.Sockets.TcpListener(localAddr, port)
- server.Start()
- While True
- client = server.AcceptTcpClient()
- stream = client.GetStream()
- i = stream.Read(bytes, 0, bytes.Length)
- While (i <> 0)
- data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
- Dim testt As New hallo(AddressOf textaendern)
- testt.Invoke(data)
- threade.Abort()
- End While
- End While
- End Sub
- Private Sub textaendern(ByVal text)
- Label1.Text = text
- End Sub
- End Class
Hey alle zusammen ich bin neu hier und noch ein anfänger was programmieren angeht :P,
ich habe ein folgendes Problem:
Ich habe probiert einen tcp listener zu bauen was auch bis jetzt ganz gut funktioniert hat :D. Da mir aber schnell aufgefallen ist das das Programm sich aufhängt. Und das wenn ich meinen Kenntnissen glauben schätzen kann an der endlos schleife hängt also habe ich die endlos schleife in einen eigenen thread gepackt. Aber jz soll natürlich das empfangene auch ausgegeben werden. Also habe ich probiert eine thread übergreifende Prozedur zu schreiben was aber leider nicht so richtig funktioniert...
Bitte helft mir sitze schon heute seit 6 uhr da dran und gestern auch schon einen ganzen tag aber ich komme einfach nicht auch die richtige lösung
*Thread verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nikeee13“ ()