Помогите с прогой Делфи - Помощь студентам

program123 · 05.04.2009, 16:16

Вообщем в одной книге, показан пример программы SMS sender
и привед код

Код:

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 := '38068'+tel.Text+'@beesms.beeline.ua';
// и так далее
 end;
NMSMTP1.PostMessage.ToAddress.Add(num);
NMSMTP1.Connect;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
ShowMessage('Сообщение отправлено! '+ num) ;
end;

Решил это написать сам, все свойсва выставил так как написано в книге.
И вроде ошибок никаких нету, но когда нажимаеш кнопку отправить,
то сообщения об отправке не выводится, и закрыть программу не удаётся, только через диспетчер. Объясните в чем ошибка

Neeter · 05.04.2009, 21:18

Вроде бы, программа пока не подключится, на время зависает.
То есть при процедуре Connect программа зависает.
Так что может быть нет подключения к интернету...
Или ошибка какая-нибудь с ним...

program123 · 05.04.2009, 21:28

Подключение есть , но зависает именно при Connect, даже не пойму
в чём дело (((

05.04.2009, 16:16	#1
program123 Подтвердите свой е-майл Регистрация: 12.02.2009 Сообщений: 144	Помогите с прогой Делфи Вообщем в одной книге, показан пример программы SMS sender и привед код Код: `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 := '38068'+tel.Text+'@beesms.beeline.ua'; // и так далее end; NMSMTP1.PostMessage.ToAddress.Add(num); NMSMTP1.Connect; NMSMTP1.SendMail; NMSMTP1.Disconnect; ShowMessage('Сообщение отправлено! '+ num) ; end;` Решил это написать сам, все свойсва выставил так как написано в книге. И вроде ошибок никаких нету, но когда нажимаеш кнопку отправить, то сообщения об отправке не выводится, и закрыть программу не удаётся, только через диспетчер. Объясните в чем ошибка

05.04.2009, 21:18	#2
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Вроде бы, программа пока не подключится, на время зависает. То есть при процедуре Connect программа зависает. Так что может быть нет подключения к интернету... Или ошибка какая-нибудь с ним... Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите с прогой (С++)	Meddy	Помощь студентам	3	13.07.2008 21:38
Помогите с прогой!	NecRomant	Общие вопросы Delphi	4	25.02.2008 20:19
помогите с прогой	никита989	Фриланс	5	14.01.2008 17:38
Помогите с прогой в делфи	ereality	Помощь студентам	6	20.07.2007 10:56
Помогите с прогой	DarthNemo	Помощь студентам	2	06.05.2007 18:11

05.04.2009, 21:28	#3
program123 Подтвердите свой е-майл Регистрация: 12.02.2009 Сообщений: 144	Подключение есть , но зависает именно при Connect, даже не пойму в чём дело (((