как отключить сообщения об ошибках?

← →
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]

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

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