各位先進， 我用delphi7撰寫一個例外排除程式如下： try IdSMTP1.Connect; try IdMessage1.Body.Assign(Memo1.Lines); IdSMTP1.Send(IdMessage1); MsgLog('啟動Email回報系統成功'); finally IdSMTP1.Disconnect; end; except on e: exception do begin MsgLog('無法啟動Email回報系統'); end; end; end; 但會出現 Class type required的錯誤在 on e: exception do begin 這行 請問是否有人知道問題在哪裡？？ 感恩！！

要不要改成這樣試試看

try
  IdSMTP1.Connect;
  try
    IdMessage1.Body.Assign(Memo1.Lines);
    IdSMTP1.Send(IdMessage1);
    MsgLog('啟動Email回報系統成功');
  finally
   IdSMTP1.Disconnect;
  end;
  except
   MsgLog('無法啟動Email回報系統');
  end;
 end;  

---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

感謝liorex 這樣是可以了，但我很想知道 On E:Exception do Showmessage('Mail 寄送失敗:' e.Message); 像以上的寫法為很多前輩的範例，為何我這邊會出現錯誤！！

您好, 看程式應該是可以 compile 的 另一種可能, 看是不是對應的 begin/end 有缺少的問題？    -- He just never quits.

各位先進 感謝你們的幫忙，我後來把delphi關了，重新 起了一個project，居然可以了，真的很奇怪！ 但還是非常感謝各位的幫忙！！

其實我不是真的很確定你為什麼會跑出這個問題, 但我覺得try finally再外層會合理一點.... 這是我個人的看法啦.... 你不妨試試 try IdSMTP1.Connect; try IdMessage1.Body.Assign(Memo1.Lines); IdSMTP1.Send(IdMessage1); MsgLog('啟動Email回報系統成功'); except on e: exception do begin MsgLog('無法啟動Email回報系統'); end; finally IdSMTP1.Disconnect; end;

sorry 剛那樣寫也不太好.... 這樣會好一點 try try IdSMTP1.Connect; IdMessage1.Body.Assign(Memo1.Lines); IdSMTP1.Send(IdMessage1); MsgLog('啟動Email回報系統成功'); except on e: exception do begin MsgLog('無法啟動Email回報系統'); end; finally IdSMTP1.Disconnect; end;

非常感謝大家的幫忙 我想是系統上的問題，現在已經沒問題了，雖然我還是不知道為何會發生！！

請教一下：   如何知道Exception的內容是什麼呢？ 因為我想把Exception寫到log檔，以利 系統管理人員知道錯誤是什麼？    不好意思，我知道了,用e.Message即可知道 像C#有 try .... catch(Exception ex) { WriteLog('郵件發送失敗->' ex.Message); } 用ex.Message就可以知道Exception內容了， 不知道前輩能明瞭我的意思否？還望能教我！

引言: sorry 剛那樣寫也不太好.... 這樣會好一點 try try IdSMTP1.Connect; IdMessage1.Body.Assign(Memo1.Lines); IdSMTP1.Send(IdMessage1); MsgLog('啟動Email回報系統成功'); except on e: exception do begin MsgLog('無法啟動Email回報系統'); end; finally IdSMTP1.Disconnect; end;

發表人 - aAlan 於 2004/08/09 18:01:31