Как добавить привязки к TIdTCPServer во время выполнения?

Question

Работа с TIdTCPServer, и он работает круто. Привязка, которую я добавил к нему, заключалась в использовании его свойства через свойство Object Insp .... Пока все нормально, но когда мне нужно развернуть это приложение на другом компьютере, необходимо добавить привязки во время выполнения.

Как я могу это сделать?

Я гуглил и нашел много ссылок, но в Delphi!

так, как я это сделал:

serv->Bindings->Items[0]->IP="192.168.1.200";
serv->Bindings->Items[0]->Port=5089;

но он отказывается работать без ошибок!

Answer 1

В коллекции Bindings есть метод Add(), например:

TIdSocketHandle *Binding = serv->Bindings->Add();
Binding->IP = ...;
Binding->Port = ...;

Answer 2

tserver.Bindings.Add.IP := '192.168.2.2';
tserver.Bindings.Add.Port := 3545;
tserver.Active := true;