调整 TCP/UDP 服务器运行时间

Question

我正在使用 Embarcadero RAD Studio 10。我正在尝试在我的应用程序中使用 Indy 客户端/服务器组件。

我想在运行时调整 TCP/UDP 服务器 IP 地址和端口。

我可以在设计时看到默认设置：

我可以向Bindings 添加条目并设置DefaultPort。

但是，我想在程序运行时执行此操作。我想在我的 UI 中设置绑定和端口，然后按下一个按钮让服务器使用我输入的内容。

我该怎么做？

Answer 1

Bindings 是 TIdSocketHandle 对象的集合。在设计时向集合添加新条目与在运行时调用 Bindings.Add() 方法相同。

TIdSocketHandle 具有 IP 和 Port 属性。当一个TIdSocketHandle 对象被创建时，它的Port 被初始化为DefaultPort 的当前值。

要执行您的要求，只需调用Bindings.Add() 并设置新对象的IP 和Port 属性。例如：

德尔福：

procedure TMyForm.ConnectButtonClick(Sender: TObject);
var
  LIP: string;
  LPort: TIdPort;
  LBinding: TIdSocketHandle;
begin
  LIP := ServerIPEdit.Text;
  LPort := IntToStr(ServerPortEdit.Text);
  IdTCPServer1.Active := False;
  IdTCPServer1.Bindings.Clear;
  LBinding := IdTCPServer1.Bindings.Add;
  LBinding.IP := LIP;
  LBinding.Port := LPort;
  IdTCPServer1.Active := True;
end;

C++：

void __fastcall TMyForm::ConnectButtonClick(TObject *Sender);
{
    String LIP = ServerIPEdit->Text;
    TIdPort LPort = IntToStr(ServerPortEdit->Text);
    IdTCPServer1->Active = false;
    IdTCPServer1->Bindings->Clear();
    TIdSocketHandle *LBinding = IdTCPServer1->Bindings->Add();
    LBinding->IP = LIP;
    LBinding->Port = LPort;
    IdTCPServer1->Active = true;
}

与TIdUDPServer 相同。