| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Инди давай быстрее, быстрее! [D7, WinXP]
barakuda © (2006-08-17 11:51:00)Делаю рассылку, ниже приведенный алгоритм, работает просто великолепно, но на одно письмо уходит 15-20 сек. (БЕЗ АТАЧА),
в базе 800-1500 клиентов, Цикл рассылки будет вечно длится
Кто, что, посоветует
procedure TForm1.cxButton1Click(Sender: TObject);
begin
IdMessage1.Clear;
IdMessage1.From.Text :=cxtextEdit1.Text;
IdMessage1.ReplyTo.EMailAddresses:=cxtextEdit1.Text;
IdMessage1.Recipients.EMailAddresses:=cxtextEdit2.Text;
IdMessage1.Date:=Date;
IdMessage1.Subject:=cxtextEdit3.Text;
IdMessage1.Priority:=mpNormal;
IdMessage1.Body.Assign(cxMemo1.Lines);
if not (cxtextEdit4.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,cxtextEdit4.Text); //Attache le fichier
IdSMTP1.AuthenticationType:=atLogin; //Type d'authentification
IdSMTP1.Host:='www.freemail.ukr.net'; //Hote (par exemple pour Free : smtp.free.fr)
IdSMTP1.Port:=25; //Port (par exemple pour Free : 25)
IdSMTP1.UserName:='barakuda-design'; //Nom d'utilisateur
IdSMTP1.Password:='123123'; //Mot de passe
IdSMTP1.Connect; //Connexion
try
IdSMTP1.Send(IdMessage1); //Envoi du message
finally
IdSMTP1.Disconnect; //Deconnexion
showmessage('Тестовое письмецо отправилось');
end;
Ketmar (2006-08-17 12:11:00) [41]> [2] barakuda © (17.08.06 12:02)
только самописному.
можешь попробовать организовать несколько потоков для отсылки.
зыж (с подозрением)а ты, часом, не спамер???
barakuda (2006-08-17 12:02:00) [42]А нельзя серверу как то массив адресов передать, а дальше это его проблемы
Ketmar (2006-08-17 12:00:00) [43]сменить сервер на более быстрый (у которого загруженность меньше, а канал толще)?
| |
Страницы: 