Использую 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? Как с этим бороться?

Здравствуйте, avec, Вы писали:

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

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

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

А почему не только sendmail в цикле?

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

возможно исключение вылетает в самом блоке обработки.

Здравствуйте, AlexVinS, Вы писали:

AVS>А почему не только sendmail в цикле?

Мне показалось — так надежнее. А то иногда connect теряется во время отправки.

Здравствуйте, avec, Вы писали:

A>Здравствуйте, AlexVinS, Вы писали:

AVS>>А почему не только sendmail в цикле?

A>Мне показалось — так надежнее. А то иногда connect теряется во время отправки.

если потерялся коннектимся заново.