Скачать: 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 вся ветка

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



Память: 0.44 MB
Время: 0.012 c