Indy в Delphi XE5 (Android Dev)

[ZuBy]

Доброго Времени суток!

Вот этот код без изменений взят из десктопной версий под Windows

procedure TInformer.Timer1Timer(Sender: TObject);
var
  MsgCount, MsgId: Integer;
  MsgArr: array of Integer;
begin
  with IdIMAP41 do
  begin
    if (Connected) then
    begin
      try
        if SelectMailBox('Inbox') then // выбираем папку
        begin
          Memo1.Lines.Add('Inbox');
          MsgCount := MailBox.TotalMsgs; // Кол-во сообщений
          Memo1.Lines.Add('TotalMsgs=' + IntToStr(MsgCount));
          if MsgCount >= 1 then
          begin
            MsgId := 1; // первое непрочтенное (MailBox.FirstUnseenMsg)
            if MsgId >= 1 then // Есть ли непрочитанные письма?
            begin
              while MsgId <= MsgCount do // пробегаем по всем письмам
              begin
                if not CheckMsgSeen(MsgId) then // если письмо непрочтенное, то
                begin
                  IdMessage1.Clear;
                  sBody.Clear;

                  RetrieveHeader(MsgId, IdMessage1); // получаем заголовок
                  if (IdMessage1.From.Address = Sign) then
                  // только от этого адресата
                  begin
                    Retrieve(MsgId, IdMessage1); // полчуаем всё письмо
                    if not IdMessage1.IsBodyEmpty then // если не пустое, то
                    begin
                      sBody.Assign(IdMessage1.Body); // получаем текст сообщения
                      BodyProcessing; // вызываем процедуру парсинга
                    end;
                    MailBox.Flags := [mfSeen]; // письмо прочтенное

                    // подготавливаем массив для удаления
                    SetLength(MsgArr, 1);
                    MsgArr[0] := MsgId;

                    if DeleteMsgs(MsgArr) then // удаляем письмо
                    begin
                      // не уверен что правильно, но вроде работает
                      Finalize(MsgArr[0], 1);
                      SetLength(MsgArr, 0);
                    end;
                  end;
                end;
                Application.ProcessMessages; // чтобы не замерала
                inc(MsgId); // идем дальше
              end;
            end;
          end;
        end;
      except
        on e: Exception do
        begin
          ShowMessage('Проверьте :' + #13#10 +
            '   Введенные данные (Логин - Пароль)'#13#10 +
            '   Интернет Соединение!');
          pfLogOfClick(nil);
        end;
      end;
    end
    else
    begin
      ShowMessage('Проверьте :' + #13#10 +
        '   Введенные данные (Логин - Пароль)'#13#10 +
        '   Интернет Соединение!');
      pfLogOfClick(nil);
    end;
  end;
end;

Он рабочий! перенес его в андроид приложение и... пусто. приложение замерзает. не реагирует на какие либо действия. хотя авторизация проходит успешно!

Кто нибудь в курсе, как можно это решить?

[Dozent]

в каком месте замирает? Пошагово пробовали пройти?

[ZuBy]

методом исключения пробегал

начиная с этой строки и все что после

 if not CheckMsgSeen(MsgId) then // если письмо непрочтенное, то

[Человек_Борща]

заходите в функию и трассируете дальше=) Судя по всему, функция так же ваша.

[ZuBy]

Сообщение от Человек_Борща

заходите в функию и трассируете дальше=) Судя по всему, функция так же ваша.

нет функция родная, т.е. IdIMAP41.CheckMsgSeen(MsgId)