Delphi 2010中IMAP4无法与Gmail完成认证的问题求助

核心问题定位 #

• 未执行登录操作：TIdIMAP4.Connect仅建立TCP连接，不会自动完成用户认证，必须显式调用Login方法才能访问邮箱内容，这是触发"未认证"异常的直接原因。
• TLS版本过低：Gmail已不再支持TLSv1，必须使用至少TLSv1.2版本，否则即使连接成功也无法完成后续认证流程。
• 资源泄漏风险：创建的TIdSSLIOHandlerSocketOpenSSL对象未被释放，需通过合理的内存管理避免泄漏。

修正后的代码 #

procedure TfrmEmail.LoadInbox;
var
  IMAP: TIdIMAP4;
  iLength, i: Integer;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    // 配置SSL，适配Gmail的TLS版本要求
    with SSL.SSLOptions do
    begin
      Method := sslvTLSv1_2; // 替换原TLSv1版本
      Mode := sslmClient;
      VerifyMode := [];
      VerifyDepth := 0;
    end;

    IMAP := TIdIMAP4.Create(nil);
    try
      with IMAP do
      begin
        IOHandler := SSL;
        Host := 'imap.gmail.com';
        Port := 993;
        Username := 'your-email@gmail.com'; // 替换为实际邮箱地址
        Password := 'your-app-password';    // 替换为Gmail应用密码
        UseTLS := utUseImplicitTLS;
        
        Connect;
        try
          Login; // 显式执行登录认证，这一步是核心修复点
          if SelectMailBox('INBOX') then
          begin
            iLength := IMAP.RetrieveMailBoxSize;
            ShowMessage(IntToStr(iLength));
            SetLength(ArrInboxMessages, iLength);
            // 注意：Pascal动态数组为0索引，IMAP邮件编号从1开始
            for i := 1 to iLength do
            begin
              ArrInboxMessages[i-1] := TIdMessage.Create(nil);
              IMAP.Retrieve(i, ArrInboxMessages[i-1]);
            end;
          end;
        finally
          Disconnect;
        end;
      end;
    finally
      IMAP.Free;
    end;
  finally
    SSL.Free;
  end;
end;

关键注意事项 #

• Gmail应用密码：必须确保账号已开启两步验证，使用生成的专用应用密码登录，不能使用常规账号密码。
• Indy版本兼容：若Delphi 2010自带的Indy版本不支持sslvTLSv1_2，需更新Indy的IdSSLOpenSSLHeaders单元，或替换为支持TLSv1.2的OpenSSL库文件（libeay32.dll、ssleay32.dll）。
• 内存管理：TIdMessage对象需在后续业务逻辑完成后逐个释放，避免内存泄漏。

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