Asynch Socket Listener.

[joejack0330]

Hi, having an issue with our socket hanging every once in a while. This link

http://www.tek-tips.com/viewthread.cfm?qid=1439326

is the closest that I found to our problem but not sure how implement the solution suggest about put code in new function and start a new thread? We basically use the same example that they have link to from Microsoft's site. Does anyone have an example doing what is mentioned here or any other ideas? Thanks, Joe

 

[Sorwen]

Not sure but from what they said try something like this.

    Private Sub listen_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listen_btn.Click
        Dim ListenThread As New System.Threading.Thread(AddressOf StartListen)
        ListenThread.Start()
    End Sub

    Private Sub StartListen()
        While True
            ' Set the event to nonsignaled state.
            allDone.Reset()

            ' Start an asynchronous socket to listen for connections.

            listener.BeginAccept(New AsyncCallback(AddressOf AcceptCallback), listener)

            ' Wait until a connection is made and processed before continuing.

            allDone.WaitOne()
        End While
    End Sub

-I hate Microsoft!
-Forever and always forward.
-My kingdom for a edit button!