Indy10中idTcpServer和idTcpClient的异常解决

今天重写一个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研究比较透的,欢迎留言邮件交流。


Delphi 7,Indy 10是一个非常有用的组件库,它提供了一种在服务器和客户端之间进行TCP/IP通信的方法。 首先,要创建一个服务器端的IDTcpServer组件,可以在Delphi的组件面板上找到。通过设置一些属性,比如端口号和OnConnect / OnDisconnect事件来监听和处理客户端的连接和断开。 在OnConnect事件,可以编写代码来处理客户端连接时的操作,比如给客户端发送欢迎信息。同样,在OnDisconnect事件,可以编写代码来处理断开连接时的操作,比如释放客户端资源。 如果需要在客户端断开连接时发生报错,可以在回归事件(例如OnDisconnect)获取异常信息并进行处理。可以通过获取异常的消息,堆栈跟踪和错误代码等来确定问题所在。一种常见的处理方法是使用try...except块来捕获异常并提供适当的错误处理。 解决报错的方法可能取决于具体的错误类型。一种常见的报错是EIdConnClosedGracefully,它表示连接被对等方正常关闭。可以通过在OnDisconnect事件检查异常类型,并根据需要采取不同的处理方式来解决这个问题。 总之,在Delphi 7,使用Indy 10的IDTcpServer组件,可以方便地处理服务器和客户端的连接和断开。当断开客户端时发生报错时,可以通过在适当的事件捕获和处理异常解决问题。根据具体的错误类型和需求,可以采取不同的处理方法来解决问题。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值