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-то? Я не понял этой мысли...

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