Visual FoxPro

Bind and Listen on an Available Port in a Range

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.

Background. This is useful when any of several ports is acceptable and the application needs to discover which one was bound.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL loSocket
LOCAL lnBoundPort

loSocket = CreateObject('Chilkat.Socket')

*  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.
lnBoundPort = loSocket.BindAndListenPortRange(5000,5100,25)
IF (lnBoundPort < 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

? "Listening on port " + STR(lnBoundPort)

RELEASE loSocket