Indy10中idTcpServer和idTcpClient的异常解决

最新推荐文章于 2021-08-12 07:36:18 发布

泡泡航

最新推荐文章于 2021-08-12 07:36:18 发布

阅读量6.2k

点赞数

分类专栏： Delphi Indy10 文章标签： CS Indy10 Delphi idTcpServer idTcpClient

本文链接：https://blog.youkuaiyun.com/klisence/article/details/21403903

版权

Delphi 同时被 2 个专栏收录

2 篇文章

订阅专栏

Indy10

1 篇文章

订阅专栏

本文介绍在使用Delphi XE5与Indy10开发TCP客户端与服务器时遇到的问题及解决方案。包括客户端优先启动导致连接失败的处理方法，以及服务器端强制关闭时的异常处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

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

代码：

  try
    if not IdTCPC_DTU.Connected then
    begin
      IdTCPC_DTU.Connect;
      Timer_CSSend.Enabled := True;
    end;
  Except
    on e:Exception do
    begin
      //CS关闭
      if IdTCPC_DTU.Connected then
        IdTCPC_DTU.IOHandler.Close;
      IdTCPC_DTU.Disconnect;
    end;
  end;

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

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

代码：

function Tfrm_Main.TCPServerWrite(Client: TThreadList; WriteStr: String): Boolean;
var
  RecThread: TIdContext;
  RecClient: PClient;
  i: Integer;
begin
  Result := false;
  with Client.LockList do
  try
    for i := 0 to Count-1 do
    begin
      RecClient := Items[i];
      RecThread := RecClient.Thread;
      RecThread.Connection.Socket.Write(WriteStr);
      Result := true;
    end;
  except
  end;
  Client.UnlockList;
end;

procedure Tfrm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: Integer;
begin
  WriteStr := 'close;'+ #10;//假设发送close，在idTcpClient端解析为关闭端口
  TCPServerWrite(m_Clients,WriteStr);
  try
    if IdTCPServer.Active then
      IdTCPServer.Active := false;
  except
  end;
    m_Clients.Free;
    m_Clients := nil;
end;

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