Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Если нет коннекта выдать свое сообщение (indy) [D7, 2000]

XTD © (2006-08-22 15:13:00)
Мне нужно выдать свое сообщение если нет коннекта. Пробовал писать так:
IdSMTP1.Port:=25;
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:=login@mail.ru';
IdSMTP1.Password:='pass';
IdSMTP1.Connect(5000);

if IdSMTP1.Connected=True then
begin
//-//
…
//-//
end
else ShowMessage(‘Не удалось отправить');

Отключаю инет, пробую отправить, выдается сообщение о исключение класса, а моего сообщения нет.
Что у меня не так?

XTD (2006-08-22 15:18:00) [1]
ок! Спасибо...

Сергей М. (2006-08-22 15:17:00) [2]
try
IdSMTP1.Connect(5000);
except
ShowMessage('Облом-с !')
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »