Visual Basic 6.0

Async Accept Socket Connection

See more Socket/SSL/TLS Examples

Demonstrates how to get the connected client socket after accepting a connection asynchronously. Visual Basic 6.0

Dim success As Long
success = 0

' This example assumes the Chilkat Socket API to have been previously unlocked.
' See Socket Unlock Sample for sample code.

Dim listenSocket As New ChilkatSocket

' Bind to a port and listen.
' This example will listen at port 5555 and allows for a backlog
' of 25 pending connection requests.
success = listenSocket.BindAndListen(5555,25)
If (success <> 1) Then
    Debug.Print listenSocket.LastErrorText
    Exit Sub
End If

' Start a background task to accept an incoming connection ...
Dim maxWaitMs As Long
maxWaitMs = 20000
Dim acceptTask As ChilkatTask
Set acceptTask = listenSocket.AcceptNextConnectionAsync(maxWaitMs)
success = acceptTask.Run()

' ...
' ...
' ...

' Imagine at this point the task has completed successfully,
' and a connection was accepted.  Here's how to get the connected socket...
Dim connectedClient As New ChilkatSocket
success = connectedClient.LoadTaskResult(acceptTask)

' Here's how it works:  The AcceptNextConnection method would normally
' return a socket object when called synchronously.  When called asynchronously,
' it cannot do so because it returns the task object.  When the async method
' (running in a background thread) completes, the socket object that is the client
' connection is contained within the task object.
' 
' This can be generalized for any case where a Chilkat method returns an object.
' The async version of that method is such that the object returned in the background
' thread is contained within the task object.

' To get the result object, we create a new object instance of that type.
' In this case, we create a socket object (connectedClient).  There is a LoadTaskResult
' method in all Chilkat classes that can be a return value of an async method call.
' The LoadTaskResult method transfers the returned object from the task to the caller.