IdSMTP.Host := server;
IdSMTP.Port := port;
IdSMTP.Username := login;
IdSMTP.Password := pass;
IdSMTP.Connect;
if IdSMTP.Connected then
begin
IdSMTP.Send(MSG);
end;
Обработать ошибку при отправки почты
я в своей программе отправляю почту с помощью компонентов:
проблема в том, если компьютер находиться офлайн при IdSMTP.Connect; вылетает ошибка невозможно найти сокет. Подскажите, как её можно отлавливать??
заранее спасибо!
Код:
проблема в том, если компьютер находиться офлайн при IdSMTP.Connect; вылетает ошибка невозможно найти сокет. Подскажите, как её можно отлавливать??
заранее спасибо!
Видимо, как то так: http://www.devarticles.com/c/a/Delphi-Kylix/Creating-an-Email-Client-with-Borland-Delphi/2/
;)
;)
почитал, переписсал:
код вообще перестал компилироваться :(
Код:
IdSMTP.Host := server;
IdSMTP.Port := port;
IdSMTP.Username := login;
IdSMTP.Password := pass;
try
IdSMTP.Connect;
if IdSMTP.Connected then
begin
IdSMTP.Send(MSG);
end;
except on E: EIdSMTPReplyError do
begin
ShowMessage(E);
end;
finally
if IdSMTP.Connected then
IdSMTP.Disconnect;
end;
IdSMTP.Port := port;
IdSMTP.Username := login;
IdSMTP.Password := pass;
try
IdSMTP.Connect;
if IdSMTP.Connected then
begin
IdSMTP.Send(MSG);
end;
except on E: EIdSMTPReplyError do
begin
ShowMessage(E);
end;
finally
if IdSMTP.Connected then
IdSMTP.Disconnect;
end;
код вообще перестал компилироваться :(
Во первых, ты забыл еще один try поставить.
Во вторых, ну нельзя же бездумно списывать код! :)
Ну и последнее - посмотри в мануалах инфу по обработке исключений в Delphi, а также какие исключения генерирует класс IdSMTP.
Во вторых, ну нельзя же бездумно списывать код! :)
Ну и последнее - посмотри в мануалах инфу по обработке исключений в Delphi, а также какие исключения генерирует класс IdSMTP.