請問例外排除的exception問題 |
尚未結案
|
hikohito
一般會員 發表:6 回覆:6 積分:2 註冊:2003-09-15 發送簡訊給我 |
各位先進, 我用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 這行 請問是否有人知道問題在哪裡?? 感恩!!
|
liorex
初階會員 發表:19 回覆:60 積分:32 註冊:2002-08-20 發送簡訊給我 |
要不要改成這樣試試看
try IdSMTP1.Connect; try IdMessage1.Body.Assign(Memo1.Lines); IdSMTP1.Send(IdMessage1); MsgLog('啟動Email回報系統成功'); finally IdSMTP1.Disconnect; end; except MsgLog('無法啟動Email回報系統'); end; end;---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ---------------------- |
hikohito
一般會員 發表:6 回覆:6 積分:2 註冊:2003-09-15 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
hikohito
一般會員 發表:6 回覆:6 積分:2 註冊:2003-09-15 發送簡訊給我 |
|
jimmy_wei
高階會員 發表:9 回覆:176 積分:147 註冊:2003-08-28 發送簡訊給我 |
其實我不是真的很確定你為什麼會跑出這個問題,
但我覺得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;
|
jimmy_wei
高階會員 發表:9 回覆:176 積分:147 註冊:2003-08-28 發送簡訊給我 |
|
hikohito
一般會員 發表:6 回覆:6 積分:2 註冊:2003-09-15 發送簡訊給我 |
|
aAlan
一般會員 發表:38 回覆:24 積分:12 註冊:2004-07-23 發送簡訊給我 |
請教一下:
如何知道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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |