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.

var
socket: HCkSocket;
boundPort: Integer;

begin
socket := CkSocket_Create();

//  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.
boundPort := CkSocket_BindAndListenPortRange(socket,5000,5100,25);
if (boundPort < 0) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    Exit;
  end;
Memo1.Lines.Add('Listening on port ' + IntToStr(boundPort));

CkSocket_Dispose(socket);