Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

Отправка почты.   Найти похожие ветки 

← →
andrey_pst ©   (2002-10-10 14:46) [0]

Отправляю почту с помощью компонента NMSMTP.

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;

procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
Memo1.Lines.Add("connect");
end;

procedure TForm1.NMSMTP1Disconnect(Sender: TObject);
begin
Memo1.Lines.Add("disconnect");
end;

Почему-то в Memo1 я получаю два дисконнекта:
connect
disconnect
disconnect

---

← →
andrey_pst ©   (2002-10-10 15:27) [1]

Неужели никто не сталкивался ?

---

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

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх

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