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

【问题标题】：How to add Bindings to TIdTCPServer at runtime?如何在运行时向 TIdTCPServer 添加绑定？
【发布时间】：2011-04-15 06:29:26
【问题描述】：

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

我该怎么做？

我用谷歌搜索了很多链接，但都是在 delphi 中！

我的做法：

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

但它拒绝在没有错误的情况下运行！

【问题讨论】：

【解决方案1】：

Bindings 集合有一个Add() 方法，例如：

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

【讨论】：

【解决方案2】：

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

【讨论】：

这增加了 2 个绑定：第一个使用 IP 192.168.2.2 和端口 0，第二个使用空 IP 和端口 3545。结果我似乎仍然有效，因为第二个绑定将默认监听本地主机。但无论如何，这是个坏主意。