Выдаёт ошибку - Помощь студентам

DM_bite · 08.08.2008, 06:27

Написал программу для отправки SMS.Вроде без ошибок, но когда пытаюсь отправить на номер, не выдаёт сообщение об успешной отправке, а выдаёт ошибку прождав минуту

Код:

procedure TForm1.Button1Click(Sender: TObject);
var num: string;
begin
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.Body.AddStrings(sms.Lines);
case oper.ItemIndex of
0 : num := '8908'+tel.Text+'@sms.smarts.ru';
1 : num := '8960'+tel.Text+'@sms.beline.ru';
2 : num := '8927'+tel.Text+'@sms.megafon.ru';
end;
NMSMTP1.PostMessage.ToAddress.Add(num);
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
ShowMessage('Сообщение отправлено! '+ num) ;
end;

Не может выполнить именно SendMail

Stilet · 08.08.2008, 08:15

А что за ошибка мабудь Secret?

DM_bite · 08.08.2008, 10:33

Исключительная ситуация ESockError "Connection Failed"

08.08.2008, 06:27	#1
DM_bite Участник клуба Регистрация: 29.07.2008 Сообщений: 1,091	Выдаёт ошибку Написал программу для отправки SMS.Вроде без ошибок, но когда пытаюсь отправить на номер, не выдаёт сообщение об успешной отправке, а выдаёт ошибку прождав минуту Код: `procedure TForm1.Button1Click(Sender: TObject); var num: string; begin NMSMTP1.PostMessage.Body.Clear; NMSMTP1.PostMessage.Body.AddStrings(sms.Lines); case oper.ItemIndex of 0 : num := '8908'+tel.Text+'@sms.smarts.ru'; 1 : num := '8960'+tel.Text+'@sms.beline.ru'; 2 : num := '8927'+tel.Text+'@sms.megafon.ru'; end; NMSMTP1.PostMessage.ToAddress.Add(num); NMSMTP1.Connect; NMSMTP1.SendMail; NMSMTP1.Disconnect; ShowMessage('Сообщение отправлено! '+ num) ; end;` Не может выполнить именно SendMail Кто бы ты ни был - не думай о себе слишком (с) Последний раз редактировалось DM_bite; 08.08.2008 в 10:32.

08.08.2008, 08:15	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	А что за ошибка мабудь Secret? I'm learning to live...

08.08.2008, 10:33	#3
DM_bite Участник клуба Регистрация: 29.07.2008 Сообщений: 1,091	Исключительная ситуация ESockError "Connection Failed" Кто бы ты ни был - не думай о себе слишком (с)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выдаёт NAN	DM_bite	Помощь студентам	2	26.08.2008 20:52
неправильно выдаёт stringgrid	chelsi	Общие вопросы Delphi	3	30.04.2008 22:42
Найдите ошибку!	geniy	JavaScript, Ajax	4	04.12.2007 16:22
Почему ошибку выдаёт?	Inbox	Общие вопросы Delphi	14	24.06.2007 02:15