调用IMAP.Connect时程序无提示直接退出问题求助

我正在开发一个连接邮件服务、下载附件的自定义Windows服务，之前已经解决了Socket错误并配置了SSL，但现在调用IMAP.Connect时程序仅停顿1秒就无崩溃提示直接关闭。已尝试重装OpenSSL组件，问题依旧。

相关代码 #

unit UMailWorker;

interface

uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
  Vcl.Graphics, Vcl.Controls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessage, IdMessageCollection,
  IdAttachment,
  IdExplicitTLSClientServerBase, IdMessageClient, IdIMAP4, IdSSLOpenSSL,
  IniFiles;

type
  TDownloadThread = class; // Предварительное объявление

  TMailWorker = class
  private
    FIMAP: TIdIMAP4;
    FMyThread: TDownloadThread;

  public
    procedure SetOptions;
    function InitWorker: Boolean;
    property IMap: TIdIMAP4 read FIMAP write FIMAP;
    constructor Create();
    destructor Destroy(); override;
  end;

  TDownloadThread = class(TThread)
  protected
    procedure Execute; override;
  end;

implementation

uses UService;

{ TMailWorker }

constructor TMailWorker.Create;
begin
  FIMAP := TIdIMAP4.Create(nil);
  Self.SetOptions;
  Self.InitWorker;
  FMyThread := TDownloadThread.Create(False);
  FMyThread.FreeOnTerminate := True;
end;

destructor TMailWorker.Destroy;
begin
  if Assigned(FIMAP) then
    FreeAndNil(FIMAP);
  if Assigned(FMyThread) then
    FMyThread.Terminate;
end;

function TMailWorker.InitWorker: Boolean;
var
  IniFile: TIniFile;
begin
  Result := False;
  IniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Options.ini');
  try
    IMap.Username := IniFile.ReadString('Authenticacion', 'Email', '0');
    IMap.Password := IniFile.ReadString('Authenticacion', 'Password', '0');
    if (IMAP.Username <> EmptyStr) and (IMAP.Password <> EmptyStr) then
      Result := True;
  finally
    IniFile.Destroy;
  end;
end;

procedure TMailWorker.SetOptions;
begin
  FIMAP.Host := 'imap.gmail.com';
  FIMAP.Port := 993;
  FIMAP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  FIMAP.UseTLS := utUseImplicitTLS;
  TIdSSLIOHandlerSocketOpenSSL(IMap.IOHandler).SSLOptions.Method := sslvTLSv1_2;
  TIdSSLIOHandlerSocketOpenSSL(IMap.IOHandler).SSLOptions.Mode := sslmClient;
end;
{ TDownloadThread }

procedure TDownloadThread.Execute;
//var
//  MsgNums: TIdIMAP4SearchRec;

//  Msg: TIdMessage;
//  Attachment: TIdAttachment;
//  I, J: Integer;
//  AttachmentFileName: string;
begin
  inherited;
  repeat
  until (Assigned(MyService));

  if Assigned(MyService) and (pos('@', MyService.Worker.FIMAP.Username) <> 0)
    and (MyService.Worker.FIMAP.Username <> '') and
    (MyService.Worker.FIMAP.Password <> '') then
  begin
    with MyService.Worker do
    begin
      FIMAP.Connect;
      FIMAP.Login;

      FIMAP.SelectMailBox('INBOX');
      try
        // FIMAP.SearchMailBox(MsgNums, 'ALL');
      finally

      end;

    end;

  end;

end;

end.

排查与解决步骤 #

• 强制捕获异常并记录日志
  在Execute方法的IMAP操作代码外层添加try-except块，捕获所有未处理异常并写入日志，明确程序退出的根本原因：

  try
    FIMAP.Connect;
    FIMAP.Login;
    FIMAP.SelectMailBox('INBOX');
    // ... 后续操作
  except
    on E: Exception do
      TFile.AppendAllText('imap_crash.log', Format('%s: %s - %s', [DateTimeToStr(Now), E.ClassName, E.Message]) + sLineBreak);
  end;
  

• 校验OpenSSL库文件
  确保程序目录下存在对应位数的OpenSSL库文件：32位程序放32位的libeay32.dll/ssleay32.dll（或新版libcrypto-1_1.dll/libssl-1_1.dll），64位程序放64位版本，且版本需支持TLSv1.2。

• 修正线程安全问题
  Indy的TIdIMAP4并非线程安全组件，当前代码直接在子线程中访问主线程创建的FIMAP实例，可能引发线程冲突。建议在TDownloadThread内部独立创建TIdIMAP4实例，避免共享资源。

• 检查服务运行权限
  Windows服务默认以Local System账户运行，可能缺乏网络访问权限或证书访问权限。尝试将服务切换到本地管理员账户测试，同时确认防火墙/杀毒软件未拦截993端口的出站连接。

• 开启SSL与IMAP调试日志
  通过TIdSSLIOHandlerSocketOpenSSL的OnStatusInfo事件记录SSL握手细节，同时开启TIdIMAP4的OnStatus事件记录IMAP命令执行过程，定位连接阶段的具体错误：

  procedure TMailWorker.SetOptions;
  begin
    // ... 原有配置代码
    TIdSSLIOHandlerSocketOpenSSL(FIMAP.IOHandler).OnStatusInfo := SSLDebugLog;
    FIMAP.OnStatus := IMAPDebugLog;
  end;
  
  procedure TMailWorker.SSLDebugLog(Sender: TObject; const AStatus: TIdStatus; const AStatusText: string);
  begin
    TFile.AppendAllText('ssl_debug.log', Format('%s: %s', [DateTimeToStr(Now), AStatusText]) + sLineBreak);
  end;
  
  procedure TMailWorker.IMAPDebugLog(Sender: TObject; const AStatus: TIdStatus; const AStatusText: string);
  begin
    TFile.AppendAllText('imap_debug.log', Format('%s: %s', [DateTimeToStr(Now), AStatusText]) + sLineBreak);
  end;
  

• 验证Gmail账户配置
  若使用Gmail，需确保账户已开启IMAP访问；若启用了两步验证，必须使用应用专用密码登录，而非原账户密码。同时检查Google账户安全中心是否拦截了未知设备的登录请求。

内容的提问来源于stack exchange，提问作者blackspaceghost