如何在運行時將綁定添加到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;