Скачать: CL | DM;

NMSMTP - почему не работает try... except?   Найти похожие ветки 

← →
avec   (2003-08-15 12:56) [0]

Использую TNMSMTP для отправки сообщений из Дельфийской программы. Иногда бывает нужно отправить сразу штук 20-30 сообщений подряд.

Соответственно, в цикле стоит вот такая конструкция:

try
Connect;
SendMail;
Disconnect;
except
on E: Exception do
begin
Disconnect;
SaveToLog("SendReportViaEMail", E.Message);
_Result := False;
end;
end; {try}

Вроде бы все exceptionы должны отлавливаться и писаться в LOG. НО!!! Все же иногда вылетает на экран сообщение с exception "Socket error" (например, штук 15 отправилось, а потом вылетел этот exception). Почему он не отлавливается в try...except? Как с этим бороться?

---

← →
wl ©   (2003-08-15 13:19) [1]

Попробуй обработывать события самого компонента TNMSMTP

---

← →
KILLER_ABV ©   (2003-08-15 13:27) [2]

try
Connect;
SendMail;
Disconnect;

finally
on E: Exception do
begin
Disconnect;
SaveToLog("SendReportViaEMail", E.Message);
_Result := False;
end;
end;

---

← →
avec   (2003-08-15 14:06) [3]

А почему finally-то? Я не понял этой мысли...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c