Текущий архив: 2006.11.12;
Скачать: CL | DM;
Вниз
Отправка почты. Ошибка приложения... Найти похожие ветки
← →
Max.66RUS © (2006-10-29 12:23) [0]В приложении используется нижеприведённая процедура для отправки почты. Приложение без формы. Приложение компилируется нормально, но при попытке запуска выдает ошибку:
Exception EPrivilege in module Project1.exe at 006DF6E
Privileged instruction.
А вот и сама процедура:Procedure SEND_MESSAGE;
Var
IdSMTP1: TidSMTP;
Messages: TIdMessage;
Begin
Messages:=TIdMessage.Create(nil);
Messages.Body.Add("Строка письма");
Messages.From.Text := "Адрес отправителя"; //
Messages.Recipients.Add;
Messages.Recipients.Items[0].Text := "Адрес получателя";
Messages.Subject := "Тема письма";
IdSMTP1.Host := "Адрес SMTP сервера";
IdSMTP1.Username := "Имя пользователя";
IdSMTP1.Password := "Пароль пользователя";
IdSMTP1.Connect();
If IdSMTP1.Connected then
Begin
IdSMTP1.Send(Messages);
End;
IdSMTP1.Disconnect;
End;
Вопрос: в чём может быть ошибка?
Заранее спасибо.
← →
Ketmar © (2006-10-29 12:28) [1]в неверном выборе хобби автором (и не говорите мне, что это профессия -- у меня психика слабая!).
TIdSMTP кто создавать будет? убирать за собой потом кто будет? а потом удивляются, что подъезды загажены...
← →
Орион © (2006-10-29 12:29) [2]> Вопрос: в чём может быть ошибка?
В программе видимо.
Не знаю почему там EPrivilege, но попробуй для начала IdSMTP1 все таки создать.
Ну и по мелочам:
IdSMTP1.Connect();
If IdSMTP1.Connected then
Глупо. Если Connect не выполнится - возникнет исключение, если же выполнится - нет смысла еще раз проверять.
← →
Орион © (2006-10-29 12:31) [3]+ к мелочам:
> [1] Ketmar © (29.10.06 12:28)
%))
← →
Max.66RUS © (2006-10-29 12:37) [4]Всё заработало. Всем спасибо. И ещё, если что, то извеняюсь за свои тупые вопросы...
← →
Ketmar © (2006-10-29 12:57) [5]>[4] Max.66RUS(c) 29-Oct-2006, 12:37
>Всё заработало.
не верю. в том виде, в котором ты привёл код -- он может работать только случайно. обработки исключений нет, очистки памяти нет, проверок нет... ты сам себе создаёшь проблемы. это -- не код. и если бы ты с ним пришёл в "начинающим", то, скорее всего, получил бы много интересных рекомендаций. не без сарказма, но получил бы. написав же в "Сети" вместо этого, ты открылся для стёба по-полной. ибо предполагается, что ты уже не новичок, и такие элементарные вещи знаешь.
← →
MikePetrichenko © (2006-10-29 19:19) [6]
> Вопрос: в чём может быть ошибка?
А я бы переформулировал вопрос. И, в данном случае, он должен звучать так:
"Где у меня ошибка?"
Страницы: 1 вся ветка
Текущий архив: 2006.11.12;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.032 c
