Multithreaded server app blocking

[sgt_pinky]

Hi,

I have a multithreaded server app (Winforms) that I have converted to a service.

It has a thread that simply creates a new TcpListener and waits for a connection:

    Public Sub StartListeningThread()
        Do
            Dim ip As IPAddress = IPAddress.Any
            Server = New TcpListener(ip, 4000)

            Server.Start()
            Dim tcpTmp As TcpClient = Server.AcceptTcpClient
            Dim tcpClient As New RUHTcpClient
            tcpClient.Client = tcpTmp.Client
            Server.Stop()

            Connections.Add(tcpClient)
        Loop
    End Sub

This thread runs for the life of the application. The problem is that without using the command End, the application is blocking on this thread on the line:

Dim tcpTmp As TcpClient = Server.AcceptTcpClient

Server.AcceptTcpClient holds up everything. I have tried to Abort() the thread, etc, but that doesnt help.

I can solve the problem using End in the Winforms app, but in the service it causes all kinds of problems, and the program is left running in the taskmanager, even though it says Stopped in the Services manager.

TIA,

Pinky

 

[sgt_pinky]

LOL. Just solved it. Always the way. I have had this prob for 2 days, and I solve it immediately when I have just asked for help :S

Initially my TcpListener was a Sub-level variable. Then I made it a Class-level variable and created a new Sub:

    Public Sub StopServer()
        thConnect.Abort()
        If Not Server Is Nothing Then Server.Stop()
    End Sub

Ah dear. Thanks anyway ;-)

 

[Mister E]

The AcceptTcpClient method is behaving as designed. It is a blocking operation and will do so until a remote client connects.

How the TcpListener class works is that it listens on a port (in your case 4000) and uses that port to setup new TCP connections. Once a TCP connection is established a new local port is actually used for the data exchange so the original report can remain open. Think of a web server. It listens on port 80 but, when web page is actually sent, it is done so using a different local port. TCP is a bidirectional protocol that guarantees data delivery. The local port remains in use until the connection is closed.

Heres some simple pseudo-code for what you want to do:

While (SERVER IS RUNNING)

    Waiting for remote client to connect on port 4000

     NewClient = AcceptTcpClient

     Do whatever you want with NewClient 
     (some port other than 4000 is being used locally)

      Loop back and wait for another client

End

If you only want to accept a single client, then your original code will work.