请各位看看这是为什么(INDY TCPSERVER TCPCLIENT)???弄了好久了~帮帮新人吧~~(50分)

最近遇到这样一个情况,解决不了,请各们帮帮忙
先运行一个服务端,IP地址假设为'192.168.0.22'
idtcpserver1.DefaultPort:=6678;
idtcpserver.active:=true;
一个客户端的通过指定的端口(6678)连接到这个服务端,
idtcpclient1.Host:='192.168.0.22';
idtcpclient1.Port:=6678;
idtcpclient1.Connect;
连接成功

可是如果客户端断开服务端连接,
idtcpclient1.Disconnect;
服务端更改一下端口的话,把端口改为6679,
idtcpserver1.Active:=false;
idtcpserver1.DefaultPort:=6679;
idtcpserver1.Active:=true;
客户端再次连接的话就连接不上了
idtcpclient1.Connect;
这时候报错(Socket Error # 10061 connection refused);
不知道这是为什么,小弟新人,还请各位大大多帮忙~~

忘记写了~服务端更改端口为6679,客户端改更改了端口为6679
idtcpserver1.Active:=false;
idtcpserver1.DefaultPort:=6679;
idtcpserver1.Active:=true;
客户端再次连接的话就连接不上了
idtcpclient1.Port:=6679;
idtcpclient1.Connect;
还报错(Socket Error # 10061 connection refused);

不知道为什么~????

难道没有人知道错在哪里了吗,哪位仁兄帮帮小弟吧,~

根据我的经验，idtcpclient1若是动态修改port是不行的。
你只可以动态的创建idtcpclient1，此时你设定Port是可以的
参考代码：


idtcpclient1 := TidTcpClient.Create(NIl);
idtcpclient1.Host:='192.168.0.22';
idtcpclient1.Port:=6678;
idtcpclient1.Connect;

设置监听端口用 idtcpserver1 的Bindings 属性,具体的如何设置一看便知

procedure TForm1.Button1Click(Sender: TObject);
begin

IdTCPServer1.Active:=false;

IdTCPServer1.Bindings.Add.Port:=81;
IdTCPServer1.Active:=true;

end;

哦原来　可以这样来设定port的啊，呵呵
又学会一招，多谢　

加入 IdTCPServer1.Bindings.clear;