Indy 9 отправка SMTP с TLS, вызывающая сбой

Question

У меня странная проблема с отправкой электронной почты через Gmail. Я использую Delphi 7 и Indy 9, работающие на 32-битной Windows 7 Professionel на VirtualBox (4.2)

Поскольку Indy 9 не поддерживает TLS из коробки, я должен сам отправить команду STARTTLS.

Это хорошо работает с небольшой пробной почтой. Обычная почта с вложением приводит к полному сбою VirtualBox. Нет Windows синего экрана.

Я уже нашел обходной путь, но он кажется довольно грязным. Если я добавлю IdSSLOpenSSL.pas из источника Delphi и добавлю Sleep(5); к функции отправки это работает

function TIdSSLIOHandlerSocket.Send(var ABuf; ALen: integer): integer;
begin
  // 13.12.2012 fix timing
  Sleep(5);

  if fPassThrough then begin
    result := inherited Send(ABuf, ALen);
  end
  else begin
    result := SendEnc(ABuf, ALen);
  end;
end;

Есть ли лучший способ исправить эту проблему?

Если вам нужен код для настройки IOHandler

sslIOHandler                   := TIdSSLIOHandlerSocket.Create(nil);
sslIOHandler.SSLOptions.Method := sslvTLSv1;
sslIOHandler.PassThrough       := True;
IdSSLOpenSSLHeaders.Load;
smtpClient.Username            := tbUsername.Text;
smtpClient.Password            := tbPassword.Text;
smtpClient.AuthenticationType  := atLogin;
smtpClient.IOHandler           := sslIOHandler;
smtpClient.Connect(C_TIMEOUT);
smtpClient.SendCmd('STARTTLS');
sslIOHandler.PassThrough := False;
smtpClient.Authenticate();

Answer 1

Поскольку, похоже, ни у кого нет решения для этого, и обновление до Indy 10 не вариант (задействовано слишком много проектов), я нашел другую библиотеку для обработки smtp с tls...

Сейчас я использую Synapse, который не мешает Indy 9 и делает то, что я ожидал.

http://synapse.ararat.cz/doku.php/public:howto:smtpsend

Надеюсь, это поможет другим с той же проблемой.