"Bağlantı Sırasıyla Sıfırlama" kurtarma TCP İstemcisi

Question

Bu durumda nasıl kurtarmalıyım?

Sunucu çöküyor, dolayısıyla bağlantı anormal şekilde kapatıldı. Hemen hemen her şeye çağrı "Eş tarafından Bağlantı Sıfırlama" istisnaları ile sonuçlanır. TIdTCPClient nesnesindeki Disconnect'i blok dışında çağırmakla sabitledim, ancak aynı iletiyle (ikinci try-except bloğunda yakaladığım) bir son istisna ile sonuçlanır.

Bu, Indy10 ve Delphi XE2 ile geçerlidir.

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

bu deneyin:

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;