VPF::отправка почты в D2009 - Форум программистов

KnyazUA

Дата 21.7.2009, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 21.7.2009

Репутация: нет
Всего: нет

Добрый день Всем.
В данный момент перевожу проекты с D7 на D2009 и возникла у меня проблема с модулем отправки почты.
При ипорте исходников в D2009 выругался на отсутствие ТIdSSLIOHandlerSocket. Не беда нашел на палитре TIdSSLIOHandlerSocketOpenSSL и заменил. Ну и в основном ничего больше не менял.
После компиляции в D2009 программа стала при попытке отправить письмо выдавать ошибку "Connection Closed Gracefully", письмо соответственно не отправляет. Собранная в D7 программа работает без косяков.
Возможно кто-то просветит меня в ньюансах работы с Indy в D2009? Такое чувство, что упускаю нечто само-собой разумеющееся :(

Romikgy

Дата 21.7.2009, 17:47 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

Цитата(KnyazUA @ 21.7.2009, 11:15

)

с Indy в D2009

а индейцы у тя какие ? версия?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

KnyazUA

Дата 21.7.2009, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 21.7.2009

Репутация: нет
Всего: нет

Indy 10.2.5

KnyazUA

Дата 21.7.2009, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 21.7.2009

Репутация: нет
Всего: нет

Попробовал создать новое приложение, эффект такой же :(
На форме имеются IdSMTP1, IdMessage1 и IdSSLIOHandlerSocketOpenSSL1. Indy 10.2.5. Возможно какие то настройки сделаны неверно, даже скорее всего что неверно, но опытным путем выяснить что именно не получилось :(

Код


object IdSMTP1: TIdSMTP
    IOHandler = IdSSLIOHandlerSocketOpenSSL1
    AuthType = satNone
    Host = 'smtp.ukr.net'
    Port = 465
    SASLMechanisms = <>
    UseTLS = utUseRequireTLS

  object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL
    Destination = 'smtp.ukr.net:465'
    Host = 'smtp.ukr.net'
    MaxLineAction = maException
    Port = 465
    DefaultPort = 0
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0

Это уже код отправки письма по введенным данным.

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSMTP1.Username:=Login.Text;
  IdSMTP1.Password:=Pas.Text;
  IdSMTP1.ConnectTimeout:=60*100;
  IdMessage1.Clear;
  with IdMessage1 do
    begin
      charset := 'windows-1251';
      Recipients.EMailAddresses :=sendTo.Text;
      From.Address :=sendFrom.Text;
      From.Text:=sendFrom.Text;
      ReplyTo.EMailAddresses :=sendFrom.Text;
      Body.Assign(Text.Lines);
      Subject :=Tema.Text;
      ContentType:='text/plain';
    end;
  IdSMTP1.Connect();
  IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;
  MessageDlg('Сообщение отправлено',mtInformation,[mbOK],0);
end;

procedure TForm1.IdMessage1InitializeISO( var VHeaderEncoding: Char; var VCharSet: string);
begin
  VHeaderEncoding := 'Q'; // Тип кодировки: Q - QuotedPrintable, B - Base64
  VCharSet := 'windows-1251'; // Кодировка - кириллица Windows
end;

При попытке отправить письмо программа выдает сообщение "Connection Closed Gracefully."

Romikgy

Дата 21.7.2009, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

смущает

Цитата(KnyazUA @ 21.7.2009, 17:58

)

AuthType = satNone

http://wiki.ukr.net/%D0%9F%D0%BE%D1%87%D1%...SMTPPOP3/TheBat
картинка после

Код


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

Добавлено @ 19:24
и плюс дельфи 2009 полностью юникод! мож и с этим быть косяки ,
да и об ошибках ни слова!

Это сообщение отредактировал(а) Romikgy - 21.7.2009, 19:24

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

KnyazUA

Дата 21.7.2009, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 21.7.2009

Репутация: нет
Всего: нет

Romikgy спасибо. Да здесь был косяк: нужно AuthType =satDefault и еще SSLOptions.Mode =utUseImplicitTLS.
Но после этого полезли проблемы с кодировкой темы письма, сообщения и имен файлов.
После долгих чтений форумов, попыток править исходников и произнесения вслух бранных слов в адрес Индейцев было принято решение установить последнюю версию Indy.
В данный момент установлена версия 10.5.6 - все работает отлично, пока глюков с почтой не заметил.

Romikgy

Дата 21.7.2009, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

KnyazUA, удачи в освоении индейцев

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »