Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Процесс отправки сообщения 
V
    Опции темы
Exai1e
Дата 18.5.2007, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 30
Здрасти. Возникла вот такая проблема:
Есть код
Код

 if CheckBox1.Checked = false then
    begin
      if MyHost = '@mail.ru' then fmMain.IdSMTP1.Host := 'smtp.mail.ru';
      if MyHost = '@gmail.ru' then fmMain.IdSMTP1.Host := 'smtp.gmail.ru';
      if MyHost = '@yahoo.com' then fmMain.IdSMTP1.Host := 'smtp.yahoo.com';
      fmMain.IdSMTP1.Port := 25;
      fmMain.IdSMTP1.Username := MyLogin;
      fmMain.IdSMTP1.Password := MyPassword;
      fmMain.IdMessage1.CharSet := 'WINDOWS-1251';
      fmMain.IdMessage1.Subject := fmMain.edSubject.Text;
      fmMain.IdMessage1.Recipients.EMailAddresses := fmMain.edTarget.Text + fmMain.cbHost.Text;
      fmMain.IdMessage1.From.Address := MyLogin + MyHost;
      fmMain.IdMessage1.Body.Text := fmMain.edSendText.Text;
      try
        fmMain.IdSMTP1.Connect;
        fmMain.IdSMTP1.Send(fmMain.IdMessage1);
        fmMain.StatusBar1.Panels[0].Text := 'Сообщение отправленно';
      except
        ShowMessage('Отправка не удалась');
      end;
      fmMain.IdSMTP1.Disconnect;
    end;


Вопрос: как можно вывести процесс отправки сообщения ? как в IE процесс открывания страницы (синенькая полосочка снизу в левом углу на статусбаре)
Спасибо.


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
maniaks1
Дата 18.5.2007, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Можно показывать пользователю, что сейчас происходит...

Код

procedure TForm1.IdSMTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
  Caption:=AStatusText;
end;


Если чуть извратиться, то можно вывести и ProgressBar, например посчитать сколько всего сообщений показываеться при отправке, и при каждом сообщении изменять счётчик
Код

  ProgressBar1:=ProgressBar1+1;
 

Правда это фигня получиться...
PM MAIL ICQ   Вверх
Exai1e
Дата 18.5.2007, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 30
maniaks1, Спасибо


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Exai1e
Дата 20.5.2007, 02:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 30
хех, все бы ничего, но когда крепиш к письму фаил норм размера и отправляеш - то программа какбы зависает... 
так что Лююди) как вывести процес отправки письма в ProgressBar ?


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Poseidon
Дата 20.5.2007, 02:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133
проверяй какой обьем данных отправлен. На основании этого, а так же размера файла и самого тела писма определяй % отправки


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
MetalFan
Дата 20.5.2007, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128
мм... я не уверен конечно, не сталкивался с idSMTP...
но у него, так же как и у idHTTP, есть 3 события OnWorkBegin, OnWork и OnWorkEnd.
в OnWorkBegin запоминаешь AWorkCountMax, в OnWork вычисляешь процент передачи как AWorkCount / FWorkCountMax * 100...
ну и в прогрессбар это все) + прогрессбар.Update + Application.ProcessMessages
p.s. теме место имхо в "Сетях"

Это сообщение отредактировал(а) MetalFan - 20.5.2007, 11:09


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Exai1e
Дата 20.5.2007, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 30
MetalFan, всем спасибо, разобрался

Это сообщение отредактировал(а) Exai1e - 20.5.2007, 12:23


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1172 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.