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

Помогите разобраться ! ;-)   Найти похожие ветки 

← →
SemFLY ©   (2002-07-12 13:52) [0]

Проблема в том, что я пытаюсь обработать наиболее частые ошибки при подсоединение к SMTP серверу, но всёравно выскакивает ошибка SocketError, хотя она у меня обработана.
В чём тут дело ?
Компаненты использую INDY.


begin
Msg1.From := "Test";
Msg1.Too.Add("test@test.ru");
Msg1.Subject := "<-<-< Subject Email >->->";
try
SMTP1.Connect;
If SMTP1.Connected then SMTP1.Send(msg1);
except
on ESocketError do
begin
SMTP1.Disconnect;
end;
on EWinshoeAlreadyConnected do
begin
SMTP1.Disconnect;
end;
on EWinshoeResponseError do
begin
SMTP1.Disconnect;
end;
on EWinshoeTimedOut do
begin
SMTP1.Disconnect;
end;
end;


Спасибо ! :)

---

← →
Digitman ©   (2002-07-12 14:28) [1]

Я не в курсе насчет Indy, но ...

Вот это :
SMTP1.Connect;

на основании чего ты подразумеваешь, что Connect - метод, выполняющийся синхронно ?
Приведи , пожалуйста, фрагмент хэлпа или док-ции, где сказано, что при таких-то опциональных условиях метод выполняется синхронно и генерирует ожидаемые тобой исключения ...

---

← →
SemFLY ©   (2002-07-12 15:05) [2]

Синхронно ? Я не очень понял, а с чем ?
Вроде же так работает:
Если соединение удачно, то отправить письмо, если нет то обработать ошибку.
Такой же вроде принцип.

*************************************************************

Вот из Helpa.
===========================
Для Connect.

Applies to
TWinshoeSMTP
Declaration
Procedure Connect;

-------------------
Для Conected.

Applies to
TWinshoe
Declaration
Function Connected: Boolean;
Description
True if the socket is currenly connected, or false if not.
=============================================
P.S. Я извеняюсь, это компанент Winshoes ;)

---

← →
Digitman ©   (2002-07-12 15:58) [3]

Ладно, понятно) ...

Какая ошибка-то возникает ? Конкретно ?
Ты говоришь "она у меня обработана" ... Где ? В какой конкретно строчке ? В какой момент времени и при каких условиях эта строчка получает управление ?

---

← →
SemFLY ©   (2002-07-12 18:15) [4]

Ошибка : SocketError
Обрабатывается тут

try
SMTP1.Connect;
If SMTP1.Connected then SMTP1.Send(msg1);
except
on ESocketError do
begin
SMTP1.Disconnect;
end;


---

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

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



Память: 0.46 MB
Время: 0.01 c