delphi – 使用Indy Server的多个绑定作为单独的套接字？

在TIdTCPServer.bindings集合中创建3个条目,每个条目对应要侦听的每个本地IP /端口,其中TIdSocketHandle.Port属性将等效于TServerSocket.Port属性. TServerSocket本身不支持绑定到特定IP(尽管可以通过一些手动工作完成),但TIdSocketHandle.IP属性用于此目的,其中空字符串与INADDR_ANY等效.

在TIdCPServer.onConnect,TIdCPServer.onDisconnect和TIdCPServer.onExecute事件中,您可以使用TIdContext.binding.IP和TIdContext.binding.Port属性来区分调用套接字连接的绑定.

这种情况的一个常见用途是支持不同端口上的SSL和非SSL客户端,例如POP3和SMTP等协议,这些协议支持不同端口上的隐式和显式SSL / TLs. TIdhttpServer执行此操作以在单个服务器上支持http和httpS URL(您可以使用TIdhttpServer.onQuerySSLPort来自定义哪些端口使用SSL / TLS而不是使用SSL / TLS).

例如：

procedure TForm1.StartButtonCick(Sender: TObject);
begin
  IdTCPServer1.Active := false;
  IdTCPServer1.bindings.Clear;

  with IdTCPServer1.bindings.Add do
  begin
    IP := ...;
    Port := 2000;
  end;

  with IdTCPServer1.bindings.Add do
  begin
    IP := ...;
    Port := 2001;
  end;

  with IdTCPServer1.bindings.Add do
  begin
    IP := ...;
    Port := 2002;
  end;

  IdTCPServer1.Active := True;
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
  case AContext.binding.Port of
    2000: begin
      // do something...
    end;
    2001: begin
      // do something else...
    end;
    2002: begin
      // do yet something else ...
    end;
  end;
end;