Асинхронная отправка email в Delphi: решение проблемы блокировки

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

Вопрос асинхронной отправки электронной почты в Delphi является актуальным для разработчиков, работающих над проектами, где необходимо обеспечить отзывчивость основного потока. В контексте поддержки старого ERP-приложения, написанного на Delphi 11.3, разработчику необходимо интегрировать новую систему отправки email через Outlook Azure, используя компонент TMS FNC CloudPack, который работает исключительно в асинхронном режиме.

Проблема

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

Контекст

Разработчик сталкивается с необходимостью поддержания совместимости с существующим кодом, который ожидает синхронного ответа от функции отправки email. В то же время, новый компонент TMS FNC CloudPack использует асинхронный дизайн, что корректно с точки зрения архитектуры.

Решение

Разработчик решил добавить две публичные методы в класс почты: Send и SendWait. Метод Send использует асинхронный режим там, где это возможно, в то время как SendWait симулирует синхронный режим, что позволяет поддерживать совместимость с существующим кодом без необходимости полной переработки.

Пример кода

function TATMail.SendCloudMail(...): Boolean;
var
  oOutLook: TOutlookEmail;
begin
  oOutLook := TOutlookEmail.Create(...);
  if not Assigned(ACallBack) then
  begin
    // Симуляция блокировки
    while oOutLook.EventSignal.WaitFor(100) = wrTimeout do
    begin
      CheckSynchronize(50);
    end;
    // Обработка результата
    AErrorMessage := oOutLook.fMessage;
    Result := oOutLook.fSuccess;
  end
  else
    Result := True;
end;

Альтернативное решение

Эксперт по Delphi, Remy Lebeau, предложил более эффективный подход, используя WaitForMultipleObjects для ожидания сигнала от события EventSignal и от SyncEvent одновременно. Это позволяет избежать бесконечного цикла и позволяет основному потоку "спать", если нет запросов на синхронизацию.

uses
  ..., Classes, Windows;

var
  Handles: array[0..1] of THandle;
begin
  ...
  // Симуляция блокировки
  Handles[0] := oOutLook.EventSignal.Handle;
  Handles[1] := Classes.SyncEvent;
  repeat
    case Windows.WaitForMultipleObjects(2, @Handles[0], False, Infinite) of
      WAIT_OBJECT_0: Break;
      WAIT_OBJECT_0 + 1: CheckSynchronize;
    else
      RaiseLastOSError;
  until False;
  ...
end;

Заключение

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

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

Разработчик в Delphi решает проблему асинхронной отправки email для улучшения отзывчивости старого ERP-приложения, используя компонент TMS FNC CloudPack, и ищет решения для совместимости с существующим синхронным кодом.

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

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

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