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

как отключить сообщения об ошибках?   Найти похожие ветки 

← →
mazai   (2004-12-04 16:40) [0]

Люди, как при работе с nmsmtp и сокетами сделать так, что бы при каких то ошибках не вылазило никаких сообщений типа  not connected и т.д.?

---

← →
Xaker ©   (2004-12-05 02:30) [1]

надо везде Try Except замутить и где найдёшь Errocode - поставить в 0

---

← →
mazai   (2004-12-05 14:59) [2]

А можно чуть подробнее про этот 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;

---

← →
dr Tr0jan   (2004-12-06 14:28) [3]

try
 NMSMTP1.Connect;
except
 ShowMessage("Error");
end;

---

← →
mazai   (2004-12-07 14:11) [4]

Спасибо старина))... разобрался уже)... щас другие проблемы(..

---

← →
mazai   (2004-12-07 14:12) [5]

Спасибо старина))... разобрался уже)... щас другие проблемы(..

---

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

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



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