|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.04.2007, 16:33 | #1 |
Пользователь
Регистрация: 17.03.2007
Сообщений: 39
|
Программа висит при действии
У меня такая проблема, я сделал программу которая отсылает письма на мыло, но как только нажимаем отослать, программа зависает, а отвесает только тогда когда письмо отправлено, а как сделать так чтобы не висела?
вот кот отправки если нужен: procedure TForm1.Otpravka; var M: TIdMessage; begin M := TIdMessage.Create(Form1); M.From.Text := '"Виталёк" <vit_5@mail.ru>'; M.Recipients.Add; M.Recipients.Items[0].Text :='<vit_5@mail.ru>'; M.Subject := 'Тема сообщения'; IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'smtp.mail.ru'; IdSMTP1.Username := 'vit_5'; IdSMTP1.Password := '555parazit555'; IdSMTP1.Connect(); if IdSMTP1.Connected then begin IdSMTP1.Send(M); end; IdSMTP1.Disconnect; end; |
21.04.2007, 19:30 | #2 |
Студент
Форумчанин
Регистрация: 10.11.2006
Сообщений: 196
|
Код отправки сообщения помести в Dllку, а от туда из
своей проги вызывай функцию. И все будет "ок", либо юзай MAPI.
Visita Interiorem Terrae Rectificando Operae Lapidem...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа. | Asentian | Фриланс | 14 | 25.04.2010 17:30 |
Висит процесс, как его можно убрать? | HAMMAN | Помощь студентам | 5 | 16.05.2008 08:55 |
Все висит пока выполняется процедура | XPAiN | Общие вопросы Delphi | 3 | 07.05.2008 15:03 |
программа на С++ | Raptor | Помощь студентам | 2 | 28.04.2008 09:27 |