toland

Спасибо, я нашел этот еррор код, но реальность оказалась гораздо прозаичнее - неправильная дата на моем селфоне. Исправил дату - все заработало. Если бы не комментарий какого-то товарища на просторах интернета сто лет бы еще искал причину. Гууглу и Адмобу хорошо бы более внимательно относиться к разработчикам.

Спасибо Pax Peach, Вы правы, после замены ShowMessage( Error ); на CallInUiThread ( procedure begin TJToast.JavaClass.makeText (SharedActivityContext, StrToJCharSequence(Msg), ToastLength).show end Получаю Error в OnDidFail "Ad failed to load: 2" что не многим более понятно, чем предыдущее сообщение, но уже лучше

В Delphi 10 Berlin cоздаю пустое приложение, добавляю TBannerAd, настраиваю в соответсвии с Embarcodero вебсайтом описанием, ставлю True в Entitlement list и User Permissions для Internet и Access Network state, делаю TBannerAd.Align=MostBottom, TBannerAd.TestMode=true, исправляю манифест файл или не исправляю, все равно при запуске на Android TBannerAd ничего не показывает и на OnDidFail event выдает: "Message must be shown in the main UI thread" Где еще копать? Все перепробовал. Вот весь код приложения: procedure TForm1.BannerAd1DidFail(Sender: TObject; const Error: string); begin ShowMessage( Error ); end; procedure TForm1.FormCreate(Sender: TObject); begin BannerAd1.AdUnitID := 'ca-app-pub-4764996711058034/1111101905'; end; procedure TForm1.FormShow(Sender: TObject); begin BannerAd1.LoadAd; end; Заранее спасибо