Lord_Ben@
16.03.2010, 18:16
tach ich habe folgendes prob und zwar würde ich gerne wissen warum hierbei meine form nit geladen wird...
wäre nett wenn ihr mir helfen könntet.
Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Imports System.Threading
Public Class Form1
Private server As TcpListener
Private client As New TcpClient
Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
Private list As New List(Of Connection)
Dim t As New Threading.Thread(AddressOf ListenToConnection)
Dim c As New Connection
Private Structure Connection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
End Structure
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
server = New TcpListener(ipendpoint)
server.Start()
While True
client = server.AcceptTcpClient
c.stream = client.GetStream
c.streamr = New StreamReader(c.stream)
c.streamw = New StreamWriter(c.stream)
list.Add(c)
t.Start(c)
End While
End Sub
Private Sub ListenToConnection(ByVal con As Connection)
Do
Try
Dim tmp As String = con.streamr.ReadLine
For Each c As Connection In list
Try
c.streamw.Flush()
Catch
End Try
Next
Catch
list.Remove(con)
Exit Do
End Try
Loop
End Sub
End Class
wäre nett wenn ihr mir helfen könntet.
Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Imports System.Threading
Public Class Form1
Private server As TcpListener
Private client As New TcpClient
Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
Private list As New List(Of Connection)
Dim t As New Threading.Thread(AddressOf ListenToConnection)
Dim c As New Connection
Private Structure Connection
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
End Structure
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
server = New TcpListener(ipendpoint)
server.Start()
While True
client = server.AcceptTcpClient
c.stream = client.GetStream
c.streamr = New StreamReader(c.stream)
c.streamw = New StreamWriter(c.stream)
list.Add(c)
t.Start(c)
End While
End Sub
Private Sub ListenToConnection(ByVal con As Connection)
Do
Try
Dim tmp As String = con.streamr.ReadLine
For Each c As Connection In list
Try
c.streamw.Flush()
Catch
End Try
Next
Catch
list.Remove(con)
Exit Do
End Try
Loop
End Sub
End Class