Hi,
ich hab ein Problem mit meinem TCP-Server. Hier erstmal den SourceCode:
Kapiere aber einfach nicht, wieso der sich aufhängt, kann mir da jemand ein Hinweis geben pls? =)
mfg
gfc
ich hab ein Problem mit meinem TCP-Server. Hier erstmal den SourceCode:
VB.NET-Quellcode
- 'TYP=ConsoleApplication
- 'LANGUAGE=VISUALBASIC
- #Region "Imports"
- Imports System
- Imports System.Diagnostics
- Imports System.Threading
- Imports System.Net
- Imports System.Net.Sockets
- Imports System.IO
- #End Region
- Public Class Main
- Shared Dim connection As Socket
- Shared Dim readThread As Thread
- Shared Dim socketStream As NetworkStream
- Shared Private writer As BinaryWriter
- Shared Private reader As BinaryReader
- Public Shared Sub Main()
- Console.Title = "TCP Server"
- readThread = New Thread(AddressOf RunServer)
- readThread.Start()
- Try
- writer.Write("SERVER>>> " )
- Console.WriteLine("SERVER>>> " )
- connection.Close()
- Catch exception As SocketException
- Console.WriteLine("Error writing object")
- End Try
- End Sub
- Shared Public Sub RunServer()
- Dim listener As TcpListener
- Dim counter As Integer = 1
- Try
- listener = New TcpListener(5000)
- listener.Start()
- While True
- Console.WriteLine("Waiting for connection" )
- connection = listener.AcceptSocket()
- socketStream = New NetworkStream(connection)
- writer = New BinaryWriter(socketStream)
- reader = New BinaryReader(socketStream)
- Console.WriteLine("Connection " & counter &" received.")
- writer.Write("SERVER>>> Connection successful")
- Dim theReply As String = ""
- Try
- Do
- theReply = reader.ReadString()
- Console.WriteLine(theReply)
- Loop While (theReply <> "CLIENT>>> TERMINATE" _
- AndAlso connection.Connected)
- Catch inputOutputException As IOException
- Console.WriteLine("Client application closing")
- Finally
- Console.WriteLine("User terminated connection")
- writer.Close()
- reader.Close()
- socketStream.Close()
- connection.Close()
- counter += 1
- End Try
- End While
- Catch inputOutputException As IOException
- Console.WriteLine("Server application closing")
- End Try
- End Sub
- End Class
Kapiere aber einfach nicht, wieso der sich aufhängt, kann mir da jemand ein Hinweis geben pls? =)
mfg
gfc