「接続リセットによるピア」Indy TCPクライアント

Question

この状況でどのように復旧する必要がありますか？

サーバーがクラッシュし、接続が異常終了しました。ほとんどの場合、 "Connection Reset By Peer"例外が発生します。 exceptブロック内のTIdTCPClientオブジェクトでDisconnectを呼び出すことで修正したようですが、同じメッセージ（これは2番目のtry-exceptブロックで捕捉したもの）で1つの最終例外が発生します。

これは、Indy10とDelphi XE2を使用しています。

try 
     if not EcomSocket.Connected then EcomSocket.Connect(); 
    except 
     on e: Exception do begin 
     try 
      EcomSocket.Disconnect(); 
     except 
      MessageDlg('Connectivity to the server has been lost.', mtError, [mbOK], 0); 
     end; 
     end; 
    end; 

Answer 1

これを試してみてください：

try 
    if not EcomSocket.Connected then EcomSocket.Connect(); 
except 
    try 
    EcomSocket.Disconnect(False); 
    except 
    end; 
    if EcomSocket.IOHandler <> nil then EcomSocket.IOHandler.InputBuffer.Clear; 
    MessageDlg('Connectivity to the server has been lost.', mtError, [mbOK], 0); 
end;