🚀 go-pugleaf

"Dennis Jones" <nospam@nospam.com> wrote in message 
news:47431d9f$1@newsgroups.borland.com...
> Hello,
>
> I have an application which frequently fails to start with the message:
>
> "Could not bind socket. Address and port are already in use."
>
> This happens (for no apparent reason) often enough that it is time for me 
> to start investigating it.

If it helps to see some code, here is the code that I use to start the 
server:

void TMyServer::Start()
{
   if ( !TCPServer->Active )
   {
      TCPServer->ThreadClass = __classid(TMyPeerThread);
      TCPServer->OnExecute = TCPServerExecute;
      TCPServer->OnConnect = TCPClientConnect;
      TCPServer->OnDisconnect = TCPClientDisconnect;

      TCPServer->DefaultPort = FPort;

      // Set up the bindings:
      TCPServer->Bindings->Clear();
      TIdSocketHandle *NewBinding = TCPServer->Bindings->Add();
      NewBinding->IP = FHostAddress;

      AnsiString HostAddress( "All Adapters" );
      if ( !FHostAddress.IsEmpty() )
      {
         HostAddress = FHostAddress;
      }

      LogMsg( AnsiString().sprintf( "Starting server on <%s:%d>", 
HostAddress.c_str(), FPort ) );

      TCPServer->Active = true;

      LogMsg( AnsiString().sprintf( "Started server on <%s:%d>", 
HostAddress.c_str(), FPort ) );
   }
}

- Dennis