Лидеры

Ссылка: http://delphifmandroid.blogspot.ru/2017/04/onrequestpermissionsresult.html Автор: Андрей Ефимов Описание:

Сам отвечу. Ярослав подсказал, спасибо ему, а я что-то "затупил" объявляю в паблике: TfgToast *Toast; - это лишнее. надо так: TfgToast::Show(L"Всем привет!");

Какая у вас версия Android? Пример из поставки работает?

В паскале если сам создал, то и уничтожать надо самому IF Assigned( postdata ) THEN BEGIN postdata.DisposeOf; postdata := Nil; END;

Покажите скриншот из консоли разработчика, вот как у меня, тогда будет проще понять. И файл манифеста из деплоя. Так же обратите внимание - если у вас, в консоли разработчика, в описании приложения, не загружен скриншот для планшетных ПК, то гугль может все планшеты отнести к не поддерживаемым устройствам.

Побуду в роли кэп'а ещё немного... Кто-то плохо изучил матчасть :http://docwiki.embarcadero.com/RADStudio/Berlin/en/Preparing_an_Android_Application_for_Deployment#Customizing_Your_AndroidManifest.xml_File (Ваш кэп) Вот вам данные по приложению, которое не требует ни одного разрешения но запиленное под версию Андроида 4.1 или более поздняя: Поддерживаемые устройства: 12439 Неподдерживаемые устройства: 2752 Проверяйте манифест, возможно там что-то лишнее есть... Сделайте Clean проекта и проверьте, как будут обстоять дела со списком устройств на маркете. Попробуйте запостить пустое приложение и посмотрите как там обстоят дела. Наблюдал в своих проектах и экспериментах, чем больше особенных разрешений (типа "связь", "GPS" и т.п.) требуется, тем меньше будет поддерживаемых устройств, что вполне логично... Но с необъяснимым ростом неподдерживаемых устройств не сталкивался. Нельзя исключать и глюк в Гугл плее. АП. Нашёл ссылку, которую хотел изначально дать: https://developer.android.com/google/play/filters.html?hl=ru p.s. Удачи в поисках проблемы

тыц: Как просмотреть и изменить список совместимых устройств, там смотрите, что написано в "Дополнительная информация". и ещё полезно будет Device Compatibility Если кратко, то проверяйте манифест.

Пожалуйста

Замените код на такой procedure TForm1.WebBrowser1DidStartLoad(ASender: TObject); var aThread: TThread; begin aThread := TThread.CreateAnonymousThread( procedure begin TThread.Synchronize(nil, procedure begin If CheckBox1.IsChecked Then Image1.Bitmap := WebBrowser1.MakeScreenshot; end) end); aThread.FreeOnTerminate := true; aThread.Start; end;