TBannerAd

[Tinko]

Hallo,

ich versuche ein TBannerAd unter Delphi 10.1. Berlin zum laufen zu bringen. Es wird aber leider keine Werbung angezeigt. Das OnDidLoad-Event zeigt, dass die Werbung eigentlich geladen sein sollte. Der Banner zeigt jedoch keinerlei Änderung (bleibt wie er ist). Das Android-Manifest wird von Delphi scheinbar korrekt geändert. Wer kann helfen?

Nexus 6, Android-Version: 7.0

1. Über https://apps.admob.com einen neuen Anzeigenblock generieren und die Anzeigenblock-ID kopieren.
2. Datei > Neu > Geräteübergreifende Anwendung > Leere Anwendung
3. Projekt > Optionen > Berechtigungsliste > Ziel: Alle Konfigurationen - Android Plattform > AdMob-Dienst checken
4. Projekt > Optionen > Berechtigungen > Internet checken
5. Projektverwaltung > Zielplattform > Android
6. Tool-Palette > TBannerAd einfügen
7. TBannerAd1-Properites: Align: Mostbottom, Height: 128

Delphi-Quellcode:

procedure TMainForm1.FormCreate(Sender: TObject);
begin
  BannerAd1.AdUnitID := 'ca-app-pub-xxxxxxxxxx/yyyyyyyyy';
end;

procedure TMainForm1.FormShow(Sender: TObject);
begin
  BannerAd1.LoadAd;
end;

procedure TMainForm1.BannerAd1DidFail(Sender: TObject; const Error: string);
begin
  Label2.Text := Error;
end;

procedure TMainForm1.BannerAd1DidLoad(Sender: TObject);
begin
  Label2.Text := 'DidLoad ' + BannerAd1.AdUnitID;
end;