如何在运行时将绑定添加到TIdTCPServer？

Question

使用TIdTCPServer，它运行起来很酷。我添加到它的绑定是通过ui属性Object Insp使用它的属性....现在没问题，但是当我需要在其他计算机上部署这个应用程序时，必须在运行时添加绑定。

我该怎么做？

我用谷歌搜索并发现很多链接，但在德尔福！

我的方式：

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;