Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизОтправка почты. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c