问一个用IdTcpclient自动连接的问题

[wangwei244157887]

分为两种情况
1、网线没插，程序开启，过一段时间后，会报错，程序崩溃
2、运行过程中断开了连接，

出现以上两种情况，我该怎么样写程序，让它自动连接呢

[「已注销」]

我不插网线这个错误无法捕捉

procedure TbdComThread.Execute;
begin
  { Place thread code here }
  FreeOnTerminate :=true;

  While b_EnRead do
  begin
    if Terminated then Break ;
     with frm_Main do
     begin
        if not IdTCPClient_MW100.Connected then
        begin
          try
            frm_Main.IdTCPClient_MW100.Connect(5000);
            b_Suc :=True ;
            Synchronize(buildCom);
          except
            b_Suc:=False ;
            b_EnSend :=True ;
            Synchronize(buildCom);
            IdTCPClient_MW100.Disconnect ;
          end;
        end;
     end;
  end;
end;

我现在这么写自动连接代码的

[「已注销」]

郁闷的顶一下

[孤独de猫]

我一般是用TTcpClient 和TTcpServer

[「已注销」]

郁闷，给自己顶顶吧

[sololie]

OnStatus 事件中判断AStatus或AStatusText