版权声明：本文为博主原创文章，未经博主允许。
今天重写一个delphi7的CS架构的软件，原本自带的控件是Indy9。现在升级到Indy10，用delphi XE5开发。发现idTcpServer与idTcpClient的一些异常导致内存报错。
1.idTcpServer端需要先启动，idTcpClient再启动去connect，TCP通道才算是建立。idTcpClient如果优先启动，则建立不起来TCP通道。
解决方法：如果Cient先启动，IdTCPC_DTU连接时判断是否能连接上 如果不行就关闭。可以设置一个时钟判断是否连的上，等到idTcpServer连接时再启动。
代码：
[delphi]view plain copytry ifnotIdTCPC_DTU.Connectedthen begin IdTCPC_DTU.Connect; Timer_CSSend.Enabled:=True; end; Except one:Exceptiondo begin //CS关闭 ifIdTCPC_DTU.Connectedthen IdTCPC_DTU.IOHandler.Close; IdTCPC_DTU.Disconnect; end; end;
2.如果idTcpServer端在连接过程中强制关闭S端会报错（我一开始看网上帖子会是缓存数据没清空，但我跟进去反而发现线程出现释放不完整。反正出错方面很多很复杂，基本都屏蔽，有些甚至是无法屏蔽的直接内存报错），如果idTcpClient在连接过程中强制关闭则不会报错。如果idTcpServer端在idTcpClient强制关闭后才关闭是不会报错的。
解决方法：idTcpServer端在被强制关闭S端前发送使idTcpClient端关闭的断开控制命令（这里的断开控制命令，idTcpClient端接收到后会自我先断开），先让idTcpClient端关闭，在idTcpServer端进行关闭。
代码：
[delphi]view plain copyfunctionTfrm_Main.TCPServerWrite(Client:TThreadList;WriteStr:String):Boolean; var RecThread:TIdContext; RecClient:PClient; i:Integer; begin Result:=false; withClient.LockListdo try fori:=0toCount-1do begin RecClient:=Items[i]; RecThread:=RecClient.Thread; RecThread.Connection.Socket.Write(WriteStr); Result:=true; end; except end; Client.UnlockList; end; procedureTfrm_Main.FormClose(Sender:TObject;varAction:TCloseAction); var i:Integer; begin WriteStr:='close;'+#10;//假设发送close，在idTcpClient端解析为关闭端口 TCPServerWrite(m_Clients,WriteStr); try ifIdTCPServer.Activethen IdTCPServer.Active:=false; except end; m_Clients.Free; m_Clients:=nil; end;
我觉得应该还有更好的解决方法，当然如果大家有更好的经验与方法，或者是对idTcpServer和idTcpClient研究比较透的，欢迎留言邮件交流。
版权声明：本文为博主原创文章 未经博主允许。 今天重写一个delphi7的CS架构的软件 原本自带的控件是Indy9。现在升级到Indy10 用delphi XE5开发。发现idTcpSer
