Поиск сообщества

Здравствуйте!.Delphi 10.2. Android 6 (Xiaomi Redmi note 4) программирую раз в год, уровень языка минимальный, наверно. код: procedure TForm1.FormCreate(Sender: TObject); begin {$IFDEF MSWINDOWS} pflog:='log.bas'; pfmem:='mem.mem'; pfprod:='prod.txt'; pfpost:='post.txt'; {$ELSE} {$IFDEF IOS} //код для мобильной платформы iOS {$ELSE} {$IFDEF ANDROID} pflog:=Tpath.GetDocumentsPath+pathdelim+'log.bas'; pfmem:=Tpath.GetDocumentsPath+pathdelim+'mem.mem'; pfprod:=Tpath.GetDocumentsPath+pathdelim+'prod.txt'; pfpost:=Tpath.GetDocumentsPath+pathdelim+'post.txt'; {$ENDIF} {$ENDIF} {$ENDIF} memo1.Text:=''; if not(fileexists(pfmem)) then memo1.Lines.SaveToFile(pfmem); memo1.Lines.LoadFromFile(pfmem); if memo1.Lines.Count=0 then memo1.Lines.Add('01.01.0001'); label1.Text:=memo1.Lines[0]; IdIMAP41.Connect(); - тут программа вылетает //ComboBox1.Items.LoadFromFile(pfprod); //ComboBox2.Items.LoadFromFile(pfpost); //loadlist; end; Задача проста: найти письмо и скачать вложение, для дальнейшей обработки. При запуске на Windows 8 все работает нормально, после установки apk и запуска на телефоне программа вылетает при IdIMAP41.Connect() Менял на pop3 тоже самое Подскажите пожалуйста в чем может быть проблема? Может есть другие варианты для загрузки почты? Заранее спасибо!

Доброе время суток. Борюсь с Indy 10 на FMX. Обмен данными между сервером и клиентом наладил. Все работает стабильно. Стал экспериментировать с разрывом связи. И тут программы ведут себя не очень понятно, особенно на клиенте. Если сервер не запушен. Клиент на команде IdTCPClient.Connect; закрывается. ???? Делаю обработки так procedure TfrmMainClient.TimerTimer(Sender: TObject); var Server : string; begin if not IdTCPClient.Connected then try IdTCPClient.Connect; except on E : Exception do lblInfo.Text := e.Message; end; Server := 'Сервер ' + IdTCPClient.Socket.Binding.PeerIP + ':' + IntToStr(IdTCPClient.Socket.Binding.PeerPort); if IdTCPClient.Connected then begin lblInfo.Text := Server + ' подключен!'; lblInfo.TextSettings.FontColor := TAlphaColors.Green; end else begin lblInfo.Text := Server + ' не доступен!'; lblInfo.TextSettings.FontColor := TAlphaColors.Red; end; end; Никаких сообщений не появляется. Программа подвисает вместе с Адроидом, потом тупо окно закрывается. Молча. Таймауты на клиенте выставил ConnectTimeOut = 5000; ReadTimeOut = 5000; В общем вопрос. Как правильно организовать на Indy управление соединением? Чтобы не тормозило, Была возможность переподключиться. PS. Почему-то в Delphi 10.2 не могу найти компонент AntiFreeze. ????