财务软件版1楼: 最近遇到这样一个情况,解决不了,请各们帮帮忙
先运行一个服务端,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);
不知道这是为什么,小弟新人,还请各位大大多帮忙~~

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

不知道为什么~？？？？ 如仓库进销存管理系统

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

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


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

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

6楼: procedure TForm1.Button1Click(Sender: TObject);
begin

IdTCPServer1.Active:=false;

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

end;

财务软件版7楼: 哦原来　可以这样来设定port的啊，呵呵
又学会一招，多谢　

8楼: 加入 IdTCPServer1.Bindings.clear;