VPF::Неполадки с Memo и логом отправки

Dzeu

Дата 12.3.2012, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 29.2.2012

Репутация: нет
Всего: нет

Создавал почтовик с различными плюшками, одной из которых является окно Memo, в котором должны появляться строки, содержащие сообщения при отправки почты (подключение к серверу, отправка, дисконнект, возможные ошибки и тд)

Код


procedure TForm3.SMTPStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: string);
begin
Memo1.Lines.Insert(0,'Статус отправки: '+AStatusText);
end;

вот этот самый кусочек кода. При отправки сообщения с memo1 ничего не происходило. ЧЯДНТ?

(помогите пожалуйста)

Данкинг

Дата 12.3.2012, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

А при чём здесь базы данных? Думаешь, если в каждом разделе расплодить вопросы, то на них где-нибудь, да ответят?
Проверяй так как-нибудь:

Код


IdSMTP1.Connect();
if IdSMTP1.Connected then
  begin
    try
    IdSMTP1.Send(M);
    MessageDlg ('Сообщение успешно отправлено!',mtinformation,[mbyes],0);
    IdSMTP1.Disconnect;
    except
     on E: Exception do
      begin
      MessageDlg ('Невозможно отправить письмо!!!'+chr(13)+E.Message,mtError,[mbyes],0);
      IdSMTP1.Disconnect;
      end;
end;

--------------------

There's nothing left but silent epitaphs.

Dzeu

Дата 12.3.2012, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 29.2.2012

Репутация: нет
Всего: нет

Цитата

Базы данных и репортинг

Цитата

и репортинг

Подумал, что подходит, но не суть.

Мне нужно, чтобы я видел как поэтапно отсылается письмо, чтобы я видел, что я подключился к серверу, что я отправил письмо, отключился. А если выпала ошибка, то он ее вывел в том же memo. Выпадающие окна не вариант, программа работает на событии ontimer, если будут высвечиваться окна, придется их закрывать, иначе вся программа встанет.

Данкинг

Дата 12.3.2012, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Ну так события же есть - на то же подключение.

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »