Escuchar con TIdTCPServer (indy), por varios IP en una misma maquina

[fabianbbg]

Hola a todos:

Estoy haciendo una aplicacion usando los componentes indy 10 y Delphi 7.
La maquina en la que corre el servidor puede tener varias placas de red, la pregunta concreta es:

¿Como se hace para escuchar varias direcciones IP?, en tiempo de diseño e probado editar la propiedad bindings y anda, pero en tiempo de ejecucion .. como se hace?

Es necesario esto pues los ips y ports los leeria de una tabla..

asi agrego un ip y puerto

Código Delphi [-]
  with IdTCPServer.Bindings.Add do
  begin
    IP:='192.168.2.84';
    port:=3000;
  end;

Desde ya muchas gracias

[jachguate]

Pues igual...

suponiendo que tenes en un TStringList todos los IP's por los que queres escuchar:

Código Delphi [-]
for i := 0 to direcciones.count - 1 do
  with IdTCPServer.Bindings.Add do
    begin
      IP:=direcciones[i];
      port:=3000;
    end;

Hasta luego.