🚀 go-pugleaf

"Vladimir Stefanovic" <antivari@po.sbb.co.yu> wrote in message
news:4385e08a@newsgroups.borland.com...

> After next three commands the server continued to...
> ... *function* but with *old* value!!! My clients...
> still could connect by the *old* Port value, and not the new one!
> WHY?

Changing the DefaultPort property has no effect at all on existing entries
in the TIdTCPServer's Bindings collection.  In order to change the port that
they are listening on, you need to either:

1) clear the Bindings collection and then re-add the desired entries to it
before activating the server.  New entries added to the collection will pick
up the current DefaultPort value:

    IdTCPServer->Active = false;
    IdTCPServer->DefaultPort = StrToInt(CONFIG_PORT);
    IdTCPServer->Bindings->Clear();
    for(int x = 0; x < NumberOfDesiredBindings; ++x)
        IdTCPServer->Bindings->Add()->IP = "whatever";
    IdTCPServer->Active = true;

2) loop through the existing entries in the Bindings collection changing
their Port properties individually:

    int NewPort = StrToInt(CONFIG_PORT);
    IdTCPServer->Active = false;
    for(int x = 0; x < IdTCPServer->Bindings->Count; ++x)
        IdTCPServer->Bindings->Items[x]->Port = NewPort;
    IdTCPServer->Active = true;


Gambit