email - 无法使用 Indy 发送电子邮件(通过 GMail)。协议(protocol)版本不匹配

Question

我想通过 GMail 服务器发送电子邮件。

  TRY
    SMTP.Connect;      // <---- This is TIdSMTP
  EXCEPT
    Log.AddError('Cannot connect to the email server.');
  END;

  if SMTP.Connected then
   TRY
     SMTP.Send(MailMessage);
   EXCEPT
     on E:Exception DO
      begin
       Log.AddError('Connected to server but could not send email!');
       Log.AddError(E.Message);
      end;
   END;

 if SMTP.Connected
 then SMTP.Disconnect;

这段代码在 2014 年与 Delphi XE 一起工作。

程序连接到服务器正常，但最后它说“SSL 在此服务器上不可用”:

Resolving hostname smtp.Gmail.com.
Connecting to 74.125.xxx.xxx
Connected.
Connected to SMTP server...
SSL status: "before/connect initialization"
SSL status: "before/connect initialization"
SSL status: "SSLv3 write client hello A"
SSL status: "SSLv3 read server hello A"
SSL status: "SSLv3 read server hello A"
Disconnected.
Connected to server but could not send email!  
SSL is not available on this server.  

我有最新版本的 OpenSSL(今天下载)和 Delphi XE7。
WireShark 说:

Alert (Level: Fatal, Description: Protocol version)

为什么我不能发送电子邮件？
我已经尝试了所有:没有 TSL，隐式，显式，startTSL ...

Answer 1

解决方案:SSLIOHandler.SSLVersions 属性中必须包含 sslvTLSv1。