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

Question

与 TIdTCPServer 一起工作，它运行得很酷。我添加到它的绑定是通过 ui 属性 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;