В 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"
Где еще копать? Все перепробовал. Вот весь код приложения:
Вопрос
toland
В 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;
Заранее спасибо
Ссылка на комментарий
8 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.