Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.10.2008, 22:52   #1
JRcoker
Форумчанин
 
Аватар для JRcoker
 
Регистрация: 18.07.2008
Сообщений: 119
Печаль idSMTP не пойму где ошибка

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := 'test-smtp'; //специально зарегил для проверок
IdSMTP1.Password := '123456';
IdMessage1.Subject := 'Test';
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := 'goth-book@list.ru';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;
компилируется нормально но при нажатие на кнопку вылазиет окно

Debugge Exception Notification
Project Project1.exe raised exception class EidSMTPReplyError wich message

в окне жму Continue,вылезает пусто окно с ошибкой только оно пусто не заголовка не текста...И не чего не приходит...Не понимаю в чем проблема...
Улыбайся...Люди любят идиотов...
JRcoker вне форума Ответить с цитированием
Старый 07.10.2008, 09:24   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Цитата:
EidSMTPReplyError wich message
а что дальше- то в ошибке написано ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 07.10.2008, 13:45   #3
JRcoker
Форумчанин
 
Аватар для JRcoker
 
Регистрация: 18.07.2008
Сообщений: 119
По умолчанию

Нечего...Пусто...Вот по этому и не пойму...
Улыбайся...Люди любят идиотов...
JRcoker вне форума Ответить с цитированием
Старый 07.10.2008, 14:00   #4
JRcoker
Форумчанин
 
Аватар для JRcoker
 
Регистрация: 18.07.2008
Сообщений: 119
По умолчанию

Решил использовать другой код ругается на SMTP.AuthenticationType:=atLogin;
Код:
procedure TForm1.Button4Click(Sender: TObject);
begin
  SMTP.Host:='smtp.mail.ru'; // адресс почтового сервера
  SMTP.Port:=25;    // порт по которому будет осуществляться подключение
  SMTP.Username:='test-smtp';  // логин пользователя
  SMTP.Password:='123456';     // пароль пользователя
  SMTP.AuthenticationType:=atLogin;
 with IdMessage do
     begin
      Body.Assign(Memo1.Lines);
      From.Text := 'test@58r.ru';
      Recipients.EMailAddresses := 'goth-book@list.ru';
      Subject := 'Programmersclub.ru';
      end;
   SMTP.Connect;
   try
  showmessage('подключился');
  SMTP.Send(IdMessage);
   finally
      SMTP.Disconnect;
   end;
end;
[DCC Error] Unit1.pas(45): E2003 Undeclared identifier: 'AuthenticationType'
[DCC Error] Unit1.pas(45): E2003 Undeclared identifier: 'atLogin'
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
Улыбайся...Люди любят идиотов...
JRcoker вне форума Ответить с цитированием
Старый 07.10.2008, 14:04   #5
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Кстати, а кто будет за вас заполнять поле "From" ? )

Код:
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := 'test-smtp'; //специально зарегил для проверок
IdSMTP1.Password := '123456';
IdMessage1.From.Address:='test-smtp@mail.ru';
IdMessage1.Subject := 'Test';
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := 'goth-book@list.ru';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
Вот этот код у меня отработал.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 07.10.2008, 14:10   #6
JRcoker
Форумчанин
 
Аватар для JRcoker
 
Регистрация: 18.07.2008
Сообщений: 119
По умолчанию

Ой...Извиняюсь...Да не доглядел...Но всё ровно спасибо,я уж думал что у меня проклятие с SMTP)...
Улыбайся...Люди любят идиотов...
JRcoker вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определение уровня напряженности магнитного поля, не пойму где ошибка neznayka2 Паскаль, Turbo Pascal, PascalABC.NET 2 24.08.2008 21:01
Где ошибка? [Smarik] Общие вопросы Delphi 5 01.04.2008 09:56
Где ошибка в коде? Македонский Общие вопросы Delphi 16 10.09.2007 15:45
Никак не пойму где крыса затаилась! Подскажите! Хs-You Общие вопросы Delphi 12 19.08.2007 16:28
Где ошибка? jarded Общие вопросы C/C++ 2 01.06.2007 15:10