Отправка писем с GMail с использованием Synapse.

Т.к. в первом посте, касающимя работы с GMail у некоторых пользователей возникли проблемы при отправке писем, то решил сегодня чуть подробнее разобраться с тем, как работает Synapse с SSL и, возможно, помочь решить проблему с «неотправляемыми» письмами.
Заметил такую «странность» или «особенность» работы с GMail — то, что написано в этом посте, по крайней мере у меня, прекрасно работает на Windows XP, но ни в какую не работает на Windows 7. Причем в обоих ОС работа Synapse происходит абсолютно идентично — с дури по [F7] прошелся по всем модулям, касающихся работы с SSL. С чем связана эта особенность мне лично пока непонятно, но решение проблемы с отправкой писем из любой ОС все-таки нашлось. Начнем по порядку.

Организация работы Synapse с SSL

В Synapse организация работы с SSL напоминает работу любой более-менее большой программы с плагинами и происходит следующим образом.
1. Работа с Сетью ведется с использованием сокетов. Поэтому при создании таких, например, объектов как THTTPSend или TSMTPSend создается также экземпляр TTCPBlockSocket (о событиях которого я рассказывал).
2. При создании сокета происходит следующее:

constructor TTCPBlockSocket.CreateWithSSL(SSLPlugin: TSSLClass);
begin
  inherited Create;
  FSSL := SSLPlugin.Create(self);//загрузка плагина
  ...
end;

где SSLPlugin — это

  TCustomSSL = class;
  TSSLClass = class of TCustomSSL;

3. Теперь стоит вспомнить о том, то если Вы хотите работать с SSL, то должны подключить в uses модуль ssl_openssl и при этом ничего менять не надо — поддержка ssl становится доступна автоматически. Что происходит в этом модуле такого, что позволяет нам не заморачиваться над проблемой работать с https также как и с http?
А происходит следующее. В секции initialization модуля выполняется функция:

if InitSSLInterface then
    SSLImplementation := TSSLOpenSSL;

InitSSLInterface возвращает true в случае, если все необходимые для работы с SSL DLL-библиотеки загружены. В случае успеха SSLImplementation становится уже не просто TCustomSSL, а его потомком — TSSLOpenSSL в котором и реализована вся поддержка SSL включая создание self-signed сертификата на время сеанса.
Если загрузка библиотек невозможна (библиотеки отсутствуют), то в плане сбоев программы ничего не происходит — все работает, но только при попыке коннекта по https или отправке почты на gmail нам будет возвращаться код ошибки 10091 и мы всё время будем получать вместо результата — облом.

Так что первое, что нам необходимо — это скачать необходимые библиотеки, а именно:

1. libeay32.dll
2. ssleay32.dll

скачать их можно здесь (архив Openssl-0.9.8d-Win32). Скачиваете, укладываете в директории с программой и проблема с SSL будет решена.

Работа с GMail в Synapse.

При работе с GMail следует учитывать, что в этом случае используется шифрованное подключение TLS.  В своих статьях я обычно использовал вспомогательную функцию из модуля smtpsend — SendToRaw.  И здесь опять же для меня непонятная загадка. Дело в том, что по умолчанию при использовании этой функции поддержка TLS отключена. Для того, чтобы эта функция использовала TLS необходимо раскомментировать в ней следующую строку:

Result := False;
  ...
    SMTP.AutoTLS := True;
  ...

После этого при отправке писем указываем 587 порт и письма отправляются как надо. Проверял на Windows XP и Windows 7.

Книжная полка

	Автор: Андрей Шкрыль Название: Разработка клиент-серверных приложений в Delphi Описание: Рассмотрены практические вопросы по разработке клиент-серверных приложений в среде Delphi 7 и Delphi 2005 с использованием СУБД MS SQL Server 2000, InterBase и Firebird. Приведена информация о теории построения реляционных баз данных и языке SQL. Освещены вопросы эксплуатации и администрирования СУБД.
	Автор: Антон Григорьев Название: О чем не пишут в книгах по Delphi Описание: Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP и др.