疑難解答EIdConnClosedGracefully異常？

Question

我們使用Delphi 7運行的軟件通過電子郵件生成併發送報告給各個利益相關者。在每天傳輸的大約30-40個報告中，每天2-4個不同的報告因爲例外而失敗：「EIdConnClosedGracefully」

我試圖追蹤爲什麼會發生這種情況，以及如何在代碼中捕獲此信息。下面是我們到目前爲止有：

try 
    // Code that Populates "mess" (a tIdMessage variable) 

    if (not nSMTP.Connected) then 
    begin 
    nSMTP.Connect; 
    end; 

    try 
    nSMTP.Send(mess);  
    except on E : Exception do 
    begin 
     resend := E.Message; 
     // AutoReports_ExceptionMessage is a string that holds the Exception message 
     AutoReports_ExceptionMessage := 'Attempt #1: ' + resend; 
    end; 
    end; 

    if (resend <> '') then // If there is an exception triggered, resend the email 
    begin 
    try 
     nSMTP.Send(mess); 
    except on E : Exception do 
     begin 
     resend := E.Message; 
     AutoReports_ExceptionMessage := 'Attempt #2: ' + resend; 
     end; 
    end; 
    end 

finally 
    mess.Free; 
end; 

此外，當，EIdConnClosedGracefully是觸發時，它總是顯示「嘗試＃2：連接關閉擺好。」並從來沒有「嘗試＃1：連接關閉優雅地」

任何建議？

Answer 1

EIdConnClosedGracefully表示另一方（本例中爲SMTP服務器）已斷開連接的結束。一旦發生異常，您無法將更多數據發送給對方。您必須先重新連接。因此，在您展示的代碼中，如果嘗試＃1由於套接字斷開而失敗，則嘗試＃2將始終失敗。

試試這個：

for Attempt := 1 to 2 do 
begin 
    try 
    //... 
    if (not nSMTP.Connected) then 
     nSMTP.Connect; 
    nSMTP.Send(mess); 
    AutoReports_ExceptionMessage := ''; 
    Break; 
    except 
    on E : Exception do 
    begin 
     AutoReports_ExceptionMessage := E.Message; 
     nSMTP.Disconnect; 
    end; 
    end; 
end; 

或者：

try 
    // ... 

    if (not nSMTP.Connected) then 
    nSMTP.Connect; 

    try 
    nSMTP.Send(mess);  
    AutoReports_ExceptionMessage := ''; 
    except 
    on E : Exception do 
    begin 
     AutoReports_ExceptionMessage := E.Message; 
     nSMTP.Disconnect;  
     try 
     nSMTP.Connect;  
     nSMTP.Send(mess); 
     AutoReports_ExceptionMessage := ''; 
     except 
     on E : Exception do 
     begin 
      AutoReports_ExceptionMessage := E.Message; 
      nSMTP.Disconnect;  
     end; 
     end; 
    end; 
    end; 
end;