Bind and Listen on an Available Port in a Range

See more Socket/SSL/TLS Examples

Demonstrates Socket.BindAndListenPortRange, which searches an inclusive port range for an available TCP port, binds it, and begins listening. It returns the selected port, or -1 on failure.

integer li_rc
oleobject loo_Socket
integer li_BoundPort

loo_Socket = create oleobject
li_rc = loo_Socket.ConnectToNewObject("Chilkat.Socket")
if li_rc < 0 then
    destroy loo_Socket
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  Search the inclusive port range for an available TCP port, bind it, and begin listening.  The
//  method returns the selected port, or -1 when no port can be bound.
li_BoundPort = loo_Socket.BindAndListenPortRange(5000,5100,25)
if li_BoundPort < 0 then
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Socket
    return
end if

Write-Debug "Listening on port " + string(li_BoundPort)


destroy loo_Socket