IMAP4 не проходит аутентификацию в Gmail в Delphi 2010

Использование пароля приложения с установленным для TIdIMAP4.AuthType значением iatUserPass (настройка по умолчанию) должно работать нормально, вам не нужно использовать SASL+OAuth (хотя GMail предпочел бы это).

TIdIMAP4.Connect() имеет необязательный параметр AAutoLogin, который по умолчанию равен True, поэтому TIdIMAP4.Login() должен вызываться до выхода Connect(). Если бы Login() произошел сбой, вы бы получили другое исключение и с самого начала не смогли бы достичь TIdIMAP4.SelectMailBox().

Исключение EIdConnectionStateError, которое вы получаете, означает, что TIdIMAP4.ConnectionState не является csAuthenticated, когда вы звоните SelectMailBox(). ConnectionState устанавливается в csNonAuthenticated в начале Connect() и Login(), а затем Login() обновляет его до csAuthenticated, если аутентификация прошла успешно. Таким образом, ваша ошибка не должна быть возможной, если Login() не обходится, т. е. если AAutoLogin=False.

При необходимости вы можете попробовать вызвать Login() явно после Connect() и перед SelectMailBox(), например:

Connect;
if ConnectionState <> csAuthenticated then
  Login;
SelectMailBox('INBOX');

Альтернативно:

Connect(False);
Login;
SelectMailBox('INBOX');

При этом, как только вы решите проблему Login, в вашем коде возникнут еще две проблемы:

• вы сливаете объект SSL. TIdIMAP4 не берет на себя ответственность за него.

• вы не создаете никаких TIdMessage объектов для TIdIMAP4.Retrieve() для заполнения. Выделение массива объектов не приводит к созданию самих объектов, вам необходимо создать их самостоятельно.

• TIdIMAP4.(UID)RetrieveMailBoxSize() извлекает общий размер всех писем в почтовом ящике в байтах. Чтобы получить количество сообщений в почтовом ящике, вместо этого используйте TIdIMAP4.MailBox.TotalMsgs, который SelectMailBox() заполняет.

Однако вы вручную копируете функцию, которая TIdIMAP4 вам уже предоставлена. TIdIMAP4 имеет публичные RetrieveAllHeaders() и RetrieveAllMsgs() методы. А если вы установите TIdIMAP4.RetrieveOnSelect на rsHeaders или rsMessages, то SelectMailBox() автоматически загрузит для вас все доступные заголовки/тела электронной почты в TIdIMAP4.Mailbox.MessageList.

ОБНОВЛЯТЬ:

Я не заметил, что вы используете очень старую версию Delphi.

Я просмотрел исходный код TIdIMAP4 в версии Indy, которая поставлялась бы с Delphi 2010 (см. здесь ), и заметил, что Login() на самом деле не вызывал исключения в случае сбоя в то время. Эта проблема была исправлена ​​2 года спустя ( см. здесь) и, скорее всего, будет включена в Delphi XE2.

Итак, в вашем случае Login(), скорее всего, вызывается Connect(), но аутентификация не удалась, и Login() не вызывает исключения по этому поводу, поэтому ConnectionState остается как csNonAuthenticated. Это объясняет вашу ситуацию.

Итак, вам необходимо дважды проверить правильность ваших учетных данных. Вызов Login() второй раз будет излишним, но вы можете проверить, является ли TIdIMAP4.LastCmdResult.Code'OK' или 'PREAUTH', когда Connect() выходит, например:

Connect; // <-- AAutoLogin=True
if PosInStrArray(LastCmdResult.Code, ['OK', 'PREAUTH']) = -1 then
  RaiseExceptionForLastCmdResult;
SelectMailBox('INBOX');

Альтернативно:

Connect(False);
if ConnectionState <> csAuthenticated then
begin
  Login;
  if ConnectionState <> csAuthenticated then
  //if LastCmdResult.Code <> 'OK' then
    RaiseExceptionForLastCmdResult;
end;
SelectMailBox('INBOX');

Тем не менее, я бы посоветовал обновить Indy до последней версии из репозитория GitHub, чтобы убедиться, что у вас есть все последние исправления, включая то, где Login() вызывает исключение в случае сбоя. Используя последнюю версию, я могу использовать TIdIMAP4 для успешного входа в свою Gmail с паролем приложения и без ошибок выбрать Inbox.

Вы можете обновить Indy, даже если используете старую версию Delphi, поскольку Indy по-прежнему поддерживает Delphi 2010. См. документацию Обновление Indy в Wiki репозитория.