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

Question

使用TIdTCPServer并且工作很酷。我添加到它的绑定是通过ui属性Object Insp使用它的属性....现在可以，但是当我需要在其他计算机上部署此应用程序时，必须在运行时添加绑定。

我该怎么做？

我GOOGLE了，发现很多链接，但在德尔福！

的方式我做：

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

，但它拒绝没有错误跑！

Answer 1

的绑定集合有一个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;