跪求delphi7 IdTCPServer1 如何动态绑定IP&Port

Question

var
  Binding:TIdSocketHandle;
begin
  Result := False;
  with IdTCPServer1 do
  begin
    Active := false;
    Bindings.Clear;
    Binding := Bindings.Add;
    Binding.IP := '127.0.0.1';//此处如果修改其它IP如'10.11.117.64'就报IP+Port已占用    Binding.Port := 8001;
    DefaultPort := '8001';
    try
      Active := true;
      Result := True;
    except
      on E:Exception do
      begin
        ShowMessage(E.Message);
        Result := False;
      end;
    end;
  end;
end;上面是我的代码，运行时总提示IP和Port已被占用，怎么回事IdTCPServer1 delphi

Answer 1

netstate看一看是不是真的被占了

Answer 2

Proto  Local Address          Foreign Address        State
 TCP    ufida-625dd9b9a:3224   119.188.50.100:http    CLOSE_WAIT
 TCP    ufida-625dd9b9a:3364   cncln.online.ln.cn:http  TIME_WAIT
 TCP    ufida-625dd9b9a:3365   cncln.online.ln.cn:http  FIN_WAIT_2
 TCP    ufida-625dd9b9a:3375   117.79.157.198:http    ESTABLISHED
 TCP    ufida-625dd9b9a:3376   117.79.157.198:http    ESTABLISHED
 TCP    ufida-625dd9b9a:3377   117.79.93.222:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3378   117.79.93.221:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3379   117.79.93.196:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3380   hg-in-f138.1e100.net:http  ESTABLISHED
 TCP    ufida-625dd9b9a:3381   117.79.157.198:http    ESTABLISHED
 TCP    ufida-625dd9b9a:3382   117.79.157.198:http    ESTABLISHED
 TCP    ufida-625dd9b9a:3383   117.79.157.198:http    ESTABLISHED
 TCP    ufida-625dd9b9a:3387   117.79.157.198:http    ESTABLISHED
 TCP    ufida-625dd9b9a:3388   117.79.157.198:http    ESTABLISHED
 TCP    ufida-625dd9b9a:3389   117.79.93.195:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3390   117.79.93.195:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3391   117.79.93.209:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3392   117.79.93.203:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3393   117.79.93.195:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3399   117.79.93.197:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3401   114.112.54.243:http    ESTABLISHED
 TCP    ufida-625dd9b9a:3402   203.208.37.25:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3405   203.208.37.25:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3410   117.79.93.208:http     ESTABLISHED
 TCP    ufida-625dd9b9a:3413   ufida-625dd9b9a:3358   TIME_WAIT
 TCP    ufida-625dd9b9a:3796   112.64.234.191:12000   ESTABLISHED
 TCP    ufida-625dd9b9a:1030   ufida-625dd9b9a:5354   ESTABLISHED
 TCP    ufida-625dd9b9a:3620   ufida-625dd9b9a:3621   ESTABLISHED
 TCP    ufida-625dd9b9a:3621   ufida-625dd9b9a:3620   ESTABLISHED
 TCP    ufida-625dd9b9a:5354   ufida-625dd9b9a:1030   ESTABLISHED

Answer 3

这是我机器的查看结果，怎么没有我用ipconfig看到的IP

Answer 4

netstat -an
主要看listening的行