我想让SMTP TLS“隐式/显式”配置透明，为此我想到了使用事件触发器。
我的想法是捕捉TLS协商成功或失败，然后用另一个选项再试一次。
我在TIdSMTP和TIdSSLIOHandlerSocketOpenSSL上看到了一些事件，但似乎都没有正确触发。
Indy的文档也无法下载here（DNS中断错误）。
我使用以下带有“Sleep(1);“的事件只是为了在其中放置一个断点。
TIdSMTP：
OnTLSNotAvailable个
OnTLSHandShakeFailed个
OnTLSNegCmdFailed个
OnFailedEHLO个
TIdSSLIOHandlerSocketOpenSSL：
OnStatus
OnStatusInfo个
OnStatusInfoEx个
我测试过的：
例如，我使用Outlooksmtp.office365.com，端口为587（在Indy中为STARTTLS-utUseExplicitTLS），但我故意将TIdSMTP.UseTLS更改为utUseImlicitTLS以模拟TLS协商失败。
在第一个TIdSMTP.Connect()测试中，我得到了一个EIdSocketError异常（'*Socket Error # 10060 Connection timed out'），而不是TLS协商失败的消息/异常。在这个测试中，唯一触发的事件是TIdSSLIOHandlerSocketOpenSSL.OnStatus和TIdSMTP.OnStatus。
在第二次TIdSMTP.Connect()测试中，我没有收到EIdSocketError的超时消息，除了第一次尝试的事件外，它还触发了TIdSSLIOHandlerSocketOpenSSL.OnStatusInfo和TIdSSLIOHandlerSocketOpenSSL.OnStatusInfoEx事件，处理TLS连接错误。
一些代码片段：

procedure Connect;
var
  LSMTP: TIdSMTP;
  LSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  LSMTP:= TIdSMTP.Create(nil);
  LSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  
  {functions to be declared}
  LSMTP.OnTLSNotAvailable   := MyTLSNotAvailable;
  LSMTP.OnTLSHandShakeFailed:= MyTLSHandShakeFailed;
  LSMTP.OnTLSNegCmdFailed   := MyTLSNegCmdFailed;
  LSMTP.OnFailedEHLO        := MyFailedEHLO;

  LSSL.OnStatus      := MyOnStatus;
  LSSL.OnStatusInfo  := MySSLInfo;
  LSSL.OnStatusInfoEx:= MySSlInfoEx;
  LSSL.ConnectTimeout:= 1000000;
  LSSL.ReadTimeout   := 1000000;

  LSMTP.IOHandler       := FSSL;
  LSMTP.AuthType        := satDefault;
  LSMTP.UseTLS          := utUseExplicitTLS;
  LSSL.SSLOptions.Method:= sslvSSLv23;
  LSSL.SSLOptions.Mode  := sslmBoth;

  LSMTP.Host:= 'smtp.office365.com';
  LSMTP.Port:= '587';
  LSMTP.Username:= [email protected];
  LSMTP.Password:= password;
  LSMTP.From:= LSMTP.Username;

  try
    LSMTP.Connect;
  except
      raise Exception.Create(Format('Error during connect attempt: %s',[Exception(ExceptObject).Message]));
  end;

end;

字符串
我有几个问题

• 为什么在这些情况下不触发TIdSMTP.OnTLSNotAvailable、TIdSMTP.OnTLSHandShakeFailed和TIdSMTP.OnTLSNegCmdFailed事件？
• 为什么TIdSSLIOHandlerSocketOpenSSL.OnStatusInfo和TIdSSLIOHandlerSocketOpenSSL.OnStatusInfoEx事件只在第二次连接尝试中触发？

我错过了什么吗？