版权声明：本文为博主原创文章，未经博主允许不得转载。 今天重写一个delphi7的CS架构的软件，原本自带的控件是Indy9。现在升级到Indy10，用delphi XE5开发。发现idTcpSer

版权声明：本文为博主原创文章，未经博主允许不得转载。

今天重写一个delphi7的CS架构的软件，原本自带的控件是Indy9。现在升级到Indy10，用delphi XE5开发。发现idTcpServer与idTcpClient的一些异常导致内存报错。

1.idTcpServer端需要先启动，idTcpClient再启动去connect，TCP通道才算是建立。idTcpClient如果优先启动，则建立不起来TCP通道。

解决方法：如果Cient先启动，IdTCPC_DTU连接时判断是否能连接上 如果不行就关闭。可以设置一个时钟判断是否连的上，等到idTcpServer连接时再启动。

代码：

[delphi] view plain copy

1. try  
2.   if not IdTCPC_DTU.Connected then  
3.   begin  
4.     IdTCPC_DTU.Connect;  
5.     Timer_CSSend.Enabled := True;  
6.   end;  
7. Except  
8.   on e:Exception do  
9.   begin  
10.     //CS关闭  
11.     if IdTCPC_DTU.Connected then  
12.       IdTCPC_DTU.IOHandler.Close;  
13.     IdTCPC_DTU.Disconnect;  
14.   end;  
15. end;   

2.如果idTcpServer端在连接过程中强制关闭S端会报错（我一开始看网上帖子会是缓存数据没清空，但我跟进去反而发现线程出现释放不完整。反正出错方面很多很复杂，基本都屏蔽，有些甚至是无法屏蔽的直接内存报错），如果idTcpClient在连接过程中强制关闭则不会报错。如果idTcpServer端在idTcpClient强制关闭后才关闭是不会报错的。

解决方法：idTcpServer端在被强制关闭S端前发送使idTcpClient端关闭的断开控制命令（这里的断开控制命令，idTcpClient端接收到后会自我先断开），先让idTcpClient端关闭，在idTcpServer端进行关闭。

代码：

[delphi] view plain copy

1. function Tfrm_Main.TCPServerWrite(Client: TThreadList; WriteStr: String): Boolean;  
2. var  
3.   RecThread: TIdContext;  
4.   RecClient: PClient;  
5.   i: Integer;  
6. begin  
7.   Result := false;  
8.   with Client.LockList do  
9.   try  
10.     for i := 0 to Count-1 do  
11.     begin  
12.       RecClient := Items[i];  
13.       RecThread := RecClient.Thread;  
14.       RecThread.Connection.Socket.Write(WriteStr);  
15.       Result := true;  
16.     end;  
17.   except  
18.   end;  
19.   Client.UnlockList;  
20. end;  
21.   
22. procedure Tfrm_Main.FormClose(Sender: TObject; var Action: TCloseAction);  
23. var  
24.   i: Integer;  
25. begin  
26.   WriteStr := 'close;'+ #10;//假设发送close，在idTcpClient端解析为关闭端口  
27.   TCPServerWrite(m_Clients,WriteStr);  
28.   try  
29.     if IdTCPServer.Active then  
30.       IdTCPServer.Active := false;  
31.   except  
32.   end;  
33.     m_Clients.Free;  
34.     m_Clients := nil;  
35. end;  

我觉得应该还有更好的解决方法，当然如果大家有更好的经验与方法，或者是对idTcpServer和idTcpClient研究比较透的，欢迎留言邮件交流。