ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [DELPHI] smtp клиент
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

[DELPHI] smtp клиент
  #1  
Старый 25.08.2009, 01:33
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394

Репутация: 6
По умолчанию [DELPHI] smtp клиент
что делаю не так?

PHP код:
begin 
   IdSMTP1.Host:='smtp.mail.ru';
   IdSMTP1.Port:=25;
  IdSMTP1.Username:='io';
   IdSMTP1.Password:='*****';
   IdSMTP1.AuthenticationType:=atLogin;
   with IdMessage1 do
      begin
        Body.Assign(Edit1.text);
        From.Text := 'ddd';
        Recipients.EMailAddresses := 'dd';
        Subject := '==';

        end;

      IdSMTP1.Connect;
         try
      showmessage('Ïðîèçîøëî ïîäêëþ÷åíèå ê ñåðâåðó');
      IdSMTP1.Send(IdMessage);
         finally
           IdSMTP1.Disconnect;
         end; 
ошибка в строчке
PHP код:
 Body.Assign(Edit1.text); 
 
Ответить с цитированием

  #2  
Старый 25.08.2009, 01:48
Dosia
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме:
1313455

Репутация: 249
По умолчанию
Body.Add(Edit1.text);

Когда то давно кодил: пример посылки письма с аттачем

Параметры только нужные передай функции SendMail
Последний раз редактировалось Dosia; 25.08.2009 в 01:53..
 
Ответить с цитированием

  #3  
Старый 25.08.2009, 04:48
RumShun
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808

Репутация: 149
Отправить сообщение для RumShun с помощью ICQ
По умолчанию
Цитата:
Body.Assign(Edit1.text);
у тебя типы не совподают там не string, а TStrings
Код:
var
 bodytext: TStringList;
begin
 bodytext:=TStringList.Create;
 bodytext.Add(Edit1.text);
 IdSMTP1.Host:='smtp.mail.ru';
 IdSMTP1.Port:=25;
 IdSMTP1.Username:='io';
 IdSMTP1.Password:='*****';
 IdSMTP1.AuthenticationType:=atLogin;
 with IdMessage1 do
  begin
   IdMessage1.Body.Assign(bodytext);
   From.Text := 'ddd';
   Recipients.EMailAddresses := 'dd';
   Subject := '==';
  end;
 IdSMTP1.Connect;
 try
  showmessage('I?iecioei iiaee??aiea e na?aa?o');
  IdSMTP1.Send(IdMessage);
 finally
  IdSMTP1.Disconnect;
 end;
Последний раз редактировалось RumShun; 25.08.2009 в 04:52..
 
Ответить с цитированием

  #4  
Старый 25.08.2009, 07:39
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394

Репутация: 6
По умолчанию
Спасибо! но теперь компилиться нормально а при нажатии на кнопку отправки пишит
Syntactically invalid HELO argument(s)
Что это может быть?
 
Ответить с цитированием

  #5  
Старый 25.08.2009, 08:28
e4key
Новичок
Регистрация: 24.07.2009
Сообщений: 24
Провел на форуме:
71052

Репутация: 5
По умолчанию
В delphi не шарю, но серверу нужно скзазать helo

IdSMTP1.Helo;

если не ошибаюсь, то сказать надо сразу после connect'a.
 
Ответить с цитированием

  #6  
Старый 25.08.2009, 14:11
!nik!
Новичок
Регистрация: 24.08.2009
Сообщений: 6
Провел на форуме:
101212

Репутация: 4
Отправить сообщение для !nik! с помощью ICQ
По умолчанию
Цитата:
Сообщение от e4key  
В delphi не шарю, но серверу нужно скзазать helo

IdSMTP1.Helo;

если не ошибаюсь, то сказать надо сразу после connect'a.
Да-да... вроде надо)
 
Ответить с цитированием

  #7  
Старый 25.08.2009, 18:19
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394

Репутация: 6
По умолчанию
написал
IdSMTP1.Helo;
пишит
[Error] Unit3.pas(50): Undeclared identifier: 'Helo'

Пошарился в гугле все примеры без этой строчки...
как же ее правильно написать..
 
Ответить с цитированием

  #8  
Старый 25.08.2009, 18:31
Vlad3d
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184

Репутация: 106
По умолчанию
[Error] Unit3.pas(50): Undeclared identifier: 'Helo'
эта ошибка потому что нет "idSTMP1.Helo"
idHttp1.Send('helo') или как то так...не помню
 
Ответить с цитированием

  #9  
Старый 25.08.2009, 18:39
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394

Репутация: 6
По умолчанию
а при idHttp1.Send('helo')
[Error] Unit3.pas(61): Incompatible types: 'TIdMessage' and 'String'
 
Ответить с цитированием

  #10  
Старый 25.08.2009, 18:49
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394

Репутация: 6
По умолчанию
ладно, спасибо всем, понел что это тупит mail.ru на рамблере не просит не каких хело..
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
письмо по SMTP из консоли. Delphi. ErrorNeo С/С++, C#, Delphi, .NET, Asm 9 05.08.2009 21:10
Забанили smtp. debil Болталка 1 21.05.2006 19:42
Как послать письмо без Smtp сервера? drmist E-Mail 0 02.05.2006 14:34
SMTP fingerprint с использованием ID тэгов k00p3r Чужие Статьи 0 08.06.2005 15:10



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ