Форум программистов, компьютерный форум, киберфорум
Delphi: Сети
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.79/67: Рейтинг темы: голосов - 67, средняя оценка - 4.79
 Аватар для anonimus
2184 / 1255 / 143
Регистрация: 28.04.2010
Сообщений: 4,592

Отправка писем SSL

24.04.2014, 18:20. Показов 13593. Ответов 22
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
КАК? Это ж уму не постижимо, неужели делфи реально умирает, что бы элементарно отправить письмо с использованием современных требований SMTP серверов (Gmail, Mail.ru, yandex) нужно нехило поплясать с бубном.
Установил инди 10, а точнее 10.0.52 (т.к. с инди 9 даже не стоило и пытаться), делал все как в статье
http://psvlab.blogspot.ru/2010... n-ssl.html
результат, ошибка
"could not load ssl library"
В нете пишут что нужны какие-то определенные libeay32.dll и ssleay32.dll, так где ж их найти именно те что заработают, это как искать иглу в стоге сена.
Попробовал взять отсюда
http://indy.fulgan.com/SSL/
скачал первые 3 (что для 32 разрядной ОС) результат тот же. Вот это тоже удивляет, как так indy разработчики пишут компонент под какие-то определенные библиотеке, не стандартные, FTW!

Что говорить если даже пример с оф сайта инди
http://www.indyproject.org/Soc... ex.EN.aspx
не работает, приложение зависает и все.

Рещил обратиться за помощью к synapse, помню как-то он меня выручил когда нужно было работать с https, инди так же глючил.
Скачал модули:
http://sourceforge.net/p/synal... ree/trunk/

пример взял отсюда:
http://www.webdelphi.ru/2010/0... zuya-smtp/

в итоге все зависает секунд на 30 на строке SMTP.Login в функции SendToRaw в модуле smtpsenp.pas видать внутри происходит исключение, только оно глушится, после SMTP.Login попадаем в finally и на выход, ничего не сделав.

Плюнул на этот SSL нашел почтовый сервис у которого SMTP по старинке на 25 порту, попытался отправить письмо используя все тот же инди 10, ошибка! (скрин приложенил) Единственое этот SMTP для отправки почты требует авторизацию, но в инди 10 AuthType тлоько atDefault, atNone и atSASL на всех трех эта ошибка. В 9-м инди был вроде тип что-то вроде atLogin.

Дорогие форумчанены, как-так? Если у кого-то есть рабочий пример отправки писем с использованием ssl, +100 к карме ))
Миниатюры
Отправка писем SSL  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.04.2014, 18:20
Ответы с готовыми решениями:

отправка писем
Как отправлять письма на почту?

Отправка писем
Как сделать чтобы одновремено отправиль две писма на оделенме почты. Чтобы писма отправиль на 123@mail.ru и 321@mail.ru сделал код такой...

Отправка почты SSL
Уже создавались такие темы, но проблема осталась. Как отправить письмо с помощью SLL?

22
 Аватар для anonimus
2184 / 1255 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
13.11.2014, 11:07  [ТС]
Студворк — интернет-сервис помощи студентам
FaTaL-CS, код отправки у тебя может быть правильный, у меня с ssl проблема была в том что некоторые функций из dll не загружались, небе нужно поставить точку останова в месте загрузки этих ф-й (выше через комментарий я писал) у меня одни не загружались, у тебя может другие не загрузятся, фиг знает.
Кстати какой у тебя инди?

Если не выйдет вечером могу скинуть поправленный инди модуль (в котором я то что не грузилось закоментировал) у меня 10-й был инди
0
 Аватар для FaTaL-CS
73 / 74 / 23
Регистрация: 14.10.2013
Сообщений: 549
13.11.2014, 11:51
Разобрался с SSL. Вот если кому надо полный код отправки:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var
  SMTP    : TIdSMTP;
  msg     : TIdMessage;
  SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
begin
  SMTP := TIdSMTP.Create(Application);
  SMTP.Host := 'smtp.mail.ru';
  SMTP.Port := 465;
  SMTP.AuthType := satDefault;
  SMTP.Username := 'my_login@mail.ru';
  SMTP.Password := 'MyPass';
  
  //это необходимо использовать для SSL
  SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
  SSLOpen.Host := SMTP.Host;
  SSLOpen.Port := SMTP.Port;
  SSLOpen.DefaultPort := 0;
  SSLOpen.SSLOptions.Method := sslvSSLv23;
  SSLOpen.SSLOptions.Mode := sslmUnassigned;
 
  SMTP.IOHandler := SSLOpen;
  SMTP.UseTLS := utUseImplicitTLS;
 
  msg := TIdMessage.Create(Application);
  msg.Subject := 'Проверка почты';
  msg.From.Address := 'my_login@mail.ru';
  msg.From.Name := 'FaTaL';
  msg.Recipients.EMailAddresses := 'sender@mail.ru';
 
  SMTP.Connect;
  if SMTP.Connected then
    begin
      SMTP.Send(msg);
      ShowMessage ('Сообщение отправлено');
    end else
      ShowMessage ('Не удалось отправить сообщение');
  SMTP.Disconnect();
  SMTP.Free;
  msg.Free;
end;
Библиотеки брал последние Win32OpenSSL_Light-1_0_1j.exe

Добавлено через 6 минут
anonimus, Версия Delphi XE7, стандартная поставка INDY в комплекте.
5
3 / 3 / 8
Регистрация: 25.05.2010
Сообщений: 169
16.02.2015, 10:00
Также можно взять DLL здесь http://indy.fulgan.com/SSL
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.02.2015, 10:00
Помогаю со студенческими работами здесь

Отправка писем на почту
idsmtp2.Host:='smpt.yandex.ru'; idsmtp2.Host:= IntToStr(25); idsmtp2.Username:='*******'; idsmtp2.Password:='******'; ...

Отправка писем через gmail
Доброго времени суток. Ребят подскажите как можно отправлять письма через gmail, я пытаюсь сделать так: var IdSMTP: TIdSMTP;...

Отправка письма на mail.ru SSL защита
Не приходит письмо. В чем трабл? procedure TForm1.Button1Click(Sender: TObject); var Msg: TIdMessage; begin ...

Отправка почты SMTP сервер и SSL
Всем доброго времени суток, извините за тему, просто другого решения не смог найти, два дня потратил на поиск перед тем как создать эту...

Delphi 2010 и отправка писем на мыло
Добрый день! Во всех версах отправка писем работает стабильно по методу: IdSmtp1.Host:= 'smtp.yandex.ru'; IdSmtp1.Port...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru