| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как отключить сообщения об ошибках? [D6, WinXP]
mazai © (2004-12-04 16:40:00)Люди, как при работе с nmsmtp и сокетами сделать так, что бы при каких то ошибках не вылазило никаких сообщений типа not connected и т.д.?
mazai (2004-12-07 14:12:00) [1]Спасибо старина))... разобрался уже)... щас другие проблемы(..
mazai (2004-12-07 14:11:00) [2]Спасибо старина))... разобрался уже)... щас другие проблемы(..
dr Tr0jan (2004-12-06 14:28:00) [3]
try
NMSMTP1.Connect;
except
ShowMessage('Error');
end;
mazai (2004-12-05 14:59:00) [4]А можно чуть подробнее про этот Try Except и куда его впендюрить...
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := Edit1.Text;
NMSMTP1.UserID := Edit2.Text;
NMSMTP1.PostMessage.ToAddress.Text := Edit3.Text;
NMSMTP1.PostMessage.FromAddress := Edit3.Text;
NMSMTP1.PostMessage.Subject := 'Test message';
NMSMTP1.PostMessage.Body.Add('This is a test message');
NMSMTP1.PostMessage.Body.Add('If this message is delivered, the Cancel button (Button2) wasn''t pressed fast enough');
NMSMTP1.Connect;
end;
procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
Memo1.Lines.Add('Connected, sending message');
NMSMTP1.SendMail;
end;
Xaker (2004-12-05 02:30:00) [5]надо везде Try Except замутить и где найдёшь Errocode - поставить в 0
| |
