请问如何在程序中动态绑定idtcpserver的ip和port?

Question

查看到的idtcpserver的例子都是如下面这样写，但是这样需要事先设置好bindings的ip和port属性，或者如果服务器只有一个ip地址，就使用了默认的ip地址。如果一台服务器有多个ip地址，想在程序中动态绑定ip和port，应该如何写呢？谢谢！！idtcpserver1.Active := false;
idtcpserver1.DefaultPort := 1099;
idtcpserver1.Active := true;

Answer 1

有个Binding的属性的
看看Help去了http://lysoft.7u7.net

Answer 2

binding有属性，不过没有例子，很难搞明白。
大虾能不能提供一个例子啊？谢谢

Answer 3

什么都要具体代码。懒人太多呀procedure TForm1.ListenButtonClick(Sender: TObject);
begin
  if idtcpserver1.Active then
     begin
       try idtcpserver1.Active:=false; except end;
       Exit;
     end;
  // remove all bindings
  idtcpserver1.Bindings.Clear;
  idtcpserver1.DefaultPort:=hostPortEdit.Value;
  idtcpserver1.Active:=true;
  ListenButton.Caption:=Format('On Port %d', [idtcpserver1.DefaultPort]);
end;http://lysoft.7u7.net

Answer 4

这个方法只能使用默认ip吧，并没有绑定ip啊？因为有多张网卡，所以需要绑定具体的ip。

Answer 5

真是懒人太多了!!!!既然都给了上面的代码,难道就不会自己想吗??begin
  s.Bindings.Clear;
  with s.Bindings.Add do
    begin
      IP := '127.0.0.1';
      Port := 100;
    end;
  s.Active := true;
end;http://lysoft.7u7.net