khôi phục từ "Thiết lập kết nối theo ngang hàng" Indy TCP Client

Question

Tôi nên khôi phục trong tình huống này như thế nào?

Máy chủ bị treo, do đó kết nối đã bị đóng bất thường. Các cuộc gọi đến hầu hết mọi thứ dẫn đến các ngoại lệ "Kết nối đặt lại theo ngang hàng". Tôi dường như đã cố định nó bằng cách gọi Disconnect trên đối tượng TIdTCPClient bên trong khối ngoại trừ, nhưng nó kết quả trong một ngoại lệ cuối cùng với cùng một thông báo (mà tôi đã bắt gặp trong khối try-except thứ hai).

Đây là với Indy10 và 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

Hãy thử điều này:

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;