"Обновление старых проектов Delphi: современный компонент для отправки email с поддержкой TLS/SSL"

Delphi , Интернет и Сети , Почтовый клиент

Прежде всего, вам необходимо обновить ваше приложение Delphi 2007 для работы с новыми требованиями к безопасности почтовых серверов, такими как TLS/SSL. Вместо использования устаревшего TurboPower Internet Professional 1.15 (tpipro), вы можете использовать встроенную библиотеку Indy, которая поддерживает необходимые протоколы и включена в Delphi XE2.

Обновление приложения с помощью Indy

Инди (Indy) - это мощная библиотека для работы с сетью, которая включает в себя компоненты для отправки электронной почты. Она позволяет легко интегрировать поддержку TLS/SSL в ваше приложение Delphi 2007.

Шаги для обновления:

Удалите все ссылки на TurboPower Internet Professional из вашего проекта.
Добавьте необходимые компоненты Indy, такие как TIdSmtp, TIdSSLIOHandlerSocketOpenSSL и другие, которые требуются для работы с TLS/SSL.
Настройте эти компоненты в соответствии с требованиями вашего почтового сервера.

Пример кода на Object Pascal (Delphi) с использованием Indy:

uses IdGlobal, IdTCPClient, IdIOHandlerSocket, IdSSLOpenSSL, IdSMTP;

procedure SendEmail(const RecipientEMail: string; const SMTPHost: string);
var
  Smtp: TIdSMTP;
begin
  Smtp := TIdSMTP.Create(nil);
  try
    Smtp.Host := SMTPHost;
    Smtp.Port := 25;
    Smtp.UseTLS := True; // Установить в False, если TLS не требуется для вашего сервера.
    Smtp.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      Smtp.Connect;
      try
        Smtp.AuthMode := smtNone;
        Smtp.Hello(SMTPHost);

        // Настройка письма
        Smtp.Subject := 'Тестовое сообщение';
        Smtp.FromName := 'Ваше имя';
        Smtp.FromAddr := 'ваша_почта@example.com';

        Smtp.AddDest(RecipientEMail);
        Smtp.ClearBody;
        Smtp.Body.TextType := 'text/html';
        Smtp.Body.Text := '<html><body>Текст письма</body></html>';

        // Отправка письма
        Smtp.Send;
      finally
        Smtp.Disconnect;
      end;
    finally
      Smtp.IOHandler.Free;
    end;
  finally
    Smtp.Free;
  end;
end;

Обратите внимание, что для работы с TLS/SSL вам потребуется установить UseTLS в True. Также убедитесь, что вы используете правильный порт и имя хоста сервера SMTP.

Альтернативные решения

Если по каким-то причинам использование Indy не подходит, рассмотрите следующие альтернативы:

IPWorks: Коммерческий компонент для работы с сетью от компании NSoftware.
Internet Component Suite (ICS): Бесплатный набор компонентов для Delphi.

Заключение

Обновление вашего приложения Delphi 2007 до использования современного компонента для отправки электронной почты позволит вам соответствовать новым требованиям безопасности и продолжить работу с email-сервисами без необходимости полного перехода на новую версию IDE. Indy является предпочтительным выбором, так как она уже включена в Delphi XE2, но есть и другие альтернативы, которые вы можете рассмотреть.

Примечание: В статье использованы примеры кода для демонстрации обновления приложения Delphi 2007. Примеры взяты из реального проекта и предназначены для понимания процесса интеграции современных компонентов для работы с email.

Создано по материалам из источника по ссылке.

Обновление приложения Delphi 2007 для поддержки новых требований безопасности почтовых серверов, в том числе TLS/SSL, путем замены устаревшего TurboPower Internet Professional на встроенную библиотеку Indy.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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

:: Главная :: Почтовый клиент ::

Время компиляции файла: 2024-12-22 20:14:06
2024-12-26 16:47:38/0.0033769607543945/0