AdMob - erro ao add pacote Android

[microvolution]

---

=====================================

---

Português (native language):
Com muita dúvida e dificuldade, estou tentando implementar o AdMob, através do "demo" AdTestD12.dproj. Ao seguir as instruções para gerar o R.JAR, no último passo está gerando o seguinte erro no Windows, ao clicar com o botão direito sobre projeto e escolher "Adicionar pacote android", que gera o erro abaixo:

---

Warning
Execute uma implantação antes de adicionar um pacote Android
[OK]

---

Fiz os seguintes passos anteriores até chegar neste erro:

1. baixei o instalador do codex.exe;
2. fechei o Delphi 12.1 CE FMX e instalei o Codex;
3. como não tinha o "gradle.bat" fui no link "gradle.org" e baixe a última versão, que inclusive demorou para se instalar;
4. abri o Delphi, carreguei o projeto AdTestD12, cliquei em Tools/Codex/Ferramentas Android/
   4.1) cliquei em "Download do pacote";
   4.2) selecionei a pasta onde está instalado/localizado o "gradle.bat": F:\PROGRAMAS\apps\AdBanner\Kastri-master_gradle\gradle-8.13\bin\gradle.bat
   4.3) selecionei na parte inferior a pasta destino dos pacotes: F:\PROGRAMAS\apps\AdBanner\Kastri-master_googleAndroidGms;
   4.4) em "pacotes", coloquei o link sugerido pelo Kastri;
   4.5) cliquei em extrair, que gerou um montão de arquivos e ao final informou "concluído" e tive que fechar manualmente;
5. fechei o Delphi novamente, salvei as alterações no AdTestD12.dproj;
6. abri o Delphi e o projeto novamente, cliquei no botão direito do projeto para "adicionar pacote android", onde gerou o erro que mostrei logo no início.

Alguém consegue me ajudar?

---

=====================================

---

English (google translate):
With many doubts and difficulties, I am trying to implement AdMob, through the "demo" AdTestD12.dproj. When following the instructions to generate the R.JAR, in the last step the following error is generated in Windows, when right-clicking on the project and choosing "Add Android package", which generates the error below:

---

Warning
Perform a deployment before adding an Android package
[OK]

---

I followed the previous steps until I got this error:

1. I downloaded the codex.exe installer;
2. I closed Delphi 12.1 CE FMX and installed Codex;
3. since I didn't have "gradle.bat", I went to the "gradle.org" link and downloaded the latest version, which took a while to install;
4. I opened Delphi, loaded the AdTestD12 project, clicked on Tools/Codex/Android Tools/
   4.1) I clicked on "Download package";
   4.2) I selected the folder where "gradle.bat" is installed/located: F:\PROGRAMS\apps\AdBanner\Kastri-master_gradle\gradle-8.13\bin\gradle.bat
   4.3) I selected the destination folder for the packages at the bottom: F:\PROGRAMS\apps\AdBanner\Kastri-master_googleAndroidGms;
   4.4) in "packages", I put the link suggested by Kastri;
   4.5) I clicked on extract, which generated a bunch of files and at the end it said "completed" and I had to close it manually;
5. I closed Delphi again, saved the changes in AdTestD12.dproj; 6) I opened Delphi and the project again, right-clicked on the project to "add android package", which generated the error I showed at the beginning.

Can anyone help me?

[DelphiWorlds]

I had inadvertently included the .R.jar in the demo project, which would have prevented performing the first deployment (which is what the error is about). If you update Kastri from the repository now, you should be able to deploy once, before adding the package as you have been trying to do.

[microvolution]

Quer dizer que se eu baixar agora todo o pacote Kastri (incluindo tudo), não será necessário criar o R.JAR?

---

english (translate):
Does this mean that if I download the entire Kastri package now (including everything), there will be no need to create the R.JAR?

[DelphiWorlds]

Does this mean that if I download the entire Kastri package now (including everything), there will be no need to create the R.JAR?

You will still need to create it in order for the AdMob support to work

[microvolution]

I) portugues (native language):

---

Muito estranho...
O Memo mostra:
Inicilializando anúncios...

1. Após clicar no rectBanner, demora uns 30 segundos, mas, mesmo assim o Banner (faixa bottom) é mostrado, e em seguida a mensagem no TMemo:
   Ad Loaded TAdMobBannerAd
   Ad Impression TAdMobBannerAd

1.1) Parece que automaticamente após alguns segundos ou minutos (pouquíssimos), o Banner Bottom é trocado automaticamente, pois no Memo é exibido novamente:
Ad Loaded TAdMobBannerAd
Ad Impression TAdMobBannerAd

2. Quando se clica no botão rectInterstitial, imediatamente aparece no Memo:
   Carregando Interstitial...

3. Quando se clica no botão rectReward, imediatamente aparece no Memo:
   Carregando Rewarded...

Só que infelizmente, nem Intertstitial e nem Reward são exibidos em algum lugar da tela do celular.

O que ainda pode estar errado?

Veja como estão os códigos atualmente do AdTestD12:

---

unit Unit1;

interface

uses
//
type
TForm1 = class(TForm)
private
FIntAd: TInterstitialAd;
FRewAd: TRewardedAd;

FIntAdLoaded: Boolean;
FRewAdLoaded: Boolean;

// ---------------
procedure TForm1.FormCreate(Sender: TObject);
begin
inherited;
// Configuração do Consentimento (UMP)
AdMob.OnConsentComplete := AdMobConsentCompleteHandler;
AdMob.OnConsentError := AdMobConsentErrorHandler;
AdMob.SetDebugGeography(TDebugGeography.EEA); // Simula região EEA (Europa)
AdMob.SetTestDeviceHashedId('5E236AB5D9ACD3626D268508544B8259'); // ID do dispositivo de teste

// Configuração do Banner
AdMobBannerAd1.AdUnitID := 'ca-app-pub-3940256099942544/6300978111'; // ID de teste para Banner
{$IFDEF DEBUG}
AdMobBannerAd1.TestMode := True;
{$ENDIF}

// Configuração do Interstitial
FIntAd := TInterstitialAd.Create;
FIntAd.AdUnitID := 'ca-app-pub-3940256099942544/1033173712'; // ID de teste para Interstitial
{$IFDEF DEBUG}
FIntAd.TestMode := True;
{$ENDIF}
// ... (mantenha os event handlers)

// Configuração do Rewarded Ad
FRewAd := TRewardedAd.Create;
FRewAd.AdUnitID := 'ca-app-pub-3940256099942544/5224354917'; // ID de teste para Rewarded
{$IFDEF DEBUG}
FRewAd.TestMode := True;
{$ENDIF}
// ... (mantenha os event handlers)

// ... seu código existente

FIntAdLoaded := False;
FRewAdLoaded := False;

Memo.Lines.Add('Inicializando anúncios...');
FIntAd.Load(False);
FRewAd.Load(False);

end;

procedure TForm1.rectInterstitiaClick(Sender: TObject);
begin
if not FIntAdLoaded then
begin
Memo.Lines.Add('Carregando Interstitial...');
FIntAd.Load(False); // Certifique-se de que está sendo chamado
end
else
begin
Memo.Lines.Add('Mostrando Interstitial...');
ShowInterstitial.Enabled := False;
rectInterstitial.Enabled := False;
FIntAd.Show;
FIntAdLoaded := False;
end;
end;

procedure TForm1.rectRewardClick(Sender: TObject);
begin
if not FRewAdLoaded then
begin
Memo.Lines.Add('Carregando Rewarded...');
FRewAd.Load(False);
end
else
begin
Memo.Lines.Add('Mostrando Rewarded...');
rectReward.Enabled := False;
FRewAd.Show;
FRewAdLoaded := False;
end;
end;

procedure TForm1.AdDismissedFullScreenContentHandler(Sender: TObject);
begin
Memo.Lines.Add('Fullscreen Ad Dismissed ' + Sender.ClassName);
// Dismissed current ad - load the next one
if Sender = FIntAd then
begin
FIntAdLoaded := False;
FIntAd.Load(False);
rectInterstitial.Enabled := False;
end
else if Sender = FRewAd then
begin
FRewAdLoaded := False;
FRewAd.Load(False);
rectReward.Enabled := False;
end;
end;

procedure TForm1.AdFailedToLoadHandler(Sender: TObject; const AError: TAdError);
begin
if Sender = FIntAd then
begin
FIntAdLoaded := False;
rectInterstitial.Enabled := False;
Memo.Lines.Add('Falha ao carregar Interstitial: ' + AError.Message);
end
else if Sender = FRewAd then
begin
FRewAdLoaded := False;
rectReward.Enabled := False;
Memo.Lines.Add('Falha ao carregar Rewarded: ' + AError.Message);
end;
end;

procedure TForm1.AdFailedToShowFullScreenContentHandler(Sender: TObject; const AError: TAdError);
begin
Memo.Lines.Add(GetErrorMessage('Fullscreen Ad Failed', Sender, AError));
end;

procedure TForm1.AdLoadedHander(Sender: TObject);
begin
Memo.Lines.Add('Ad Loaded '+ Sender.ClassName);
if Sender = FIntAd then
begin
FIntAdLoaded := True;
// Memo.Lines.Add('Interstitial ad is ready to show');
Memo.Lines.Add('Interstitial carregado');
ShowInterstitial.Enabled := True;
rectInterstitial.Enabled := True;
end
else if Sender = FRewAd then
begin
FRewAdLoaded := True;
// Memo.Lines.Add('Reward ad is ready to show');
Memo.Lines.Add('Rewarded carregado');
ShowReward.Enabled := True;
rectReward.Enabled := True;
end;
end;

procedure TForm1.AdMobConsentCompleteHandler(Sender: TObject; const AStatus: TConsentStatus);
begin
Memo.Lines.Add(Format('Consent complete - Status: %s, CanRequestAds: %s', [cConsentStatusValues[AStatus], BoolToStr(AdMob.CanRequestAds, True)]));
ShowBanner.Enabled := True;
// ShowInterstitial.Enabled := True;
// ShowReward.Enabled := True;
FIntAd.Load(False);
FRewAd.Load(False);
end;

---

---

a) Quando é que a procedure AdLoadedHander é acionada?
b) O que pode estar errado no código?

c) Somente o AdMobBannerAd1 que está sendo exibido, após uns 30 segundos.

---

---

II) English (google translate):

---

Very strange...
The Memo shows:
Initializing ads...

1. After clicking on rectBanner, it takes about 30 seconds, but even so the Banner (bottom strip) is shown, and then the message in the TMemo:
   Ad Loaded TAdMobBannerAd
   Ad Impression TAdMobBannerAd

1.1) It seems that automatically after a few seconds or minutes (very few), the Bottom Banner is changed automatically, because in the Memo it is shown again:
Ad Loaded TAdMobBannerAd
Ad Impression TAdMobBannerAd

2. When you click on the rectInterstitial button, the Memo immediately shows:
   Loading Interstitial...

3. When you click on the rectReward button, the Memo immediately shows:
   Loading Rewarded...

Unfortunately, neither Interstitial nor Reward are displayed anywhere on the cell phone screen.

What else could be wrong?

See what the codes currently look like for AdTestD12:

---

unit Unit1;

interface

use
//
type
TForm1 = class(TForm)
private
FIntAd: TInterstitialAd;
FRewAd: TRewardedAd;

FIntAdLoaded: Boolean;
FRewAdLoaded: Boolean;

// ---------------
procedure TForm1.FormCreate(Sender: TObject);
begin
inherited;
// Consent Configuration (UMP)
AdMob.OnConsentComplete := AdMobConsentCompleteHandler;
AdMob.OnConsentError := AdMobConsentErrorHandler;
AdMob.SetDebugGeography(TDebugGeography.EEA); // Simulate EEA (Europe) region
AdMob.SetTestDeviceHashedId('5E236AB5D9ACD3626D268508544B8259'); // Test device ID

// Banner setup
AdMobBannerAd1.AdUnitID := 'ca-app-pub-3940256099942544/6300978111'; // Test ID for Banner
{$IFDEF DEBUG}
AdMobBannerAd1.TestMode := True;
{$ENDIF}

// Interstitial setup
FIntAd := TInterstitialAd.Create; FIntAd.AdUnitID := 'ca-app-pub-3940256099942544/1033173712'; // Test ID for Interstitial
{$IFDEF DEBUG}
FIntAd.TestMode := True;
{$ENDIF}
// ... (keep event handlers)

// Rewarded Ad configuration
FRewAd := TRewardedAd.Create;
FRewAd.AdUnitID := 'ca-app-pub-3940256099942544/5224354917'; // Test ID for Rewarded
{$IFDEF DEBUG}
FRewAd.TestMode := True;
{$ENDIF}
// ... (keep the event handlers)

// ... your existing code

FIntAdLoaded := False;
FRewAdLoaded := False;

Memo.Lines.Add('Initializing ads...');
FIntAd.Load(False);
FRewAd.Load(False);

end;

procedure TForm1.rectInterstitiaClick(Sender: TObject);
begin
if not FIntAdLoaded then
begin
Memo.Lines.Add('Loading Interstitial...');
FIntAd.Load(False); // Make sure it's being called
end
else
begin
Memo.Lines.Add('Showing Interstitial...');
ShowInterstitial.Enabled := False;
rectInterstitial.Enabled := False;
FIntAd.Show;
FIntAdLoaded := False;
end;
end;

procedure TForm1.rectRewardClick(Sender: TObject);
begin
if not FRewAdLoaded then
begin
Memo.Lines.Add('Loading Rewarded...');
FRewAd.Load(False);
end
else
begin
Memo.Lines.Add('Showing Rewarded...');
rectReward.Enabled := False;
FRewAd.Show;
FRewAdLoaded := False;
end;
end;

procedure TForm1.AdDismissedFullScreenContentHandler(Sender: TObject);
begin
Memo.Lines.Add('Fullscreen Ad Dismissed ' + Sender.ClassName);
// Dismissed current ad - load the next one
if Sender = FIntAd then
begin
FIntAdLoaded := False;
FIntAd.Load(False);
rectInterstitial.Enabled := False;
end
else if Sender = FRewAd then
begin
FRewAdLoaded := False;
FRewAd.Load(False);
rectReward.Enabled := False;
end;
end;

procedure TForm1.AdFailedToLoadHandler(Sender: TObject; const AError: TAdError);
begin
if Sender = FIntAd then
begin
FIntAdLoaded := False;
rectInterstitial.Enabled := False;
Memo.Lines.Add('Failed to load Interstitial: ' + AError.Message);
end
else if Sender = FRewAd then
begin
FRewAdLoaded := False;
rectReward.Enabled := False;
Memo.Lines.Add('Failed to load Rewarded: ' + AError.Message);
end;
end;

procedure TForm1.AdFailedToShowFullScreenContentHandler(Sender: TObject; const AError: TAdError);
start
Memo.Lines.Add(GetErrorMessage('Fullscreen ad failed', Sender, AError));
end;

procedure TForm1.AdLoadedHander(Sender: TObject);
begin
Memo.Lines.Add('Ad Loaded '+ Sender.ClassName);
if Sender = FIntAd then
begin
FIntAdLoaded := True;
// Memo.Lines.Add('Interstitial ad is ready to show');
Memo.Lines.Add('Interstitial loaded');
ShowInterstitial.Enabled := True;
rectInterstitial.Enabled := True;
end
else if Sender = FRewAd then
begin
FRewAdLoaded := True;
// Memo.Lines.Add('Reward ad is ready to show');
Memo.Lines.Add('Rewarded loaded');
ShowReward.Enabled := True;
rectReward.Enabled := True;
end;
end;

procedure TForm1.AdMobConsentCompleteHandler(Sender: TObject; const AStatus: TConsentStatus);
begin
Memo.Lines.Add(Format('Consent complete - Status: %s, CanRequestAds: %s', [cConsentStatusValues[AStatus], BoolToStr(AdMob.CanRequestAds, True)]));
ShowBanner.Enabled := True;
// ShowInterstitial.Enabled := True;
// ShowReward.Enabled := True;
FIntAd.Load(False);
FRewAd.Load(False);
end;

---

---

a) When is the AdLoadedHander procedure called?
b) What could be wrong with the code?

c) Only AdMobBannerAd1 is being displayed, after about 30 seconds.

[DelphiWorlds]

Unfortunately, neither Interstitial nor Reward are displayed anywhere on the cell phone screen.

If they do not show, there should be messages in the memo displaying an error. If not, something else is going wrong - if so, can you change the extension of your .apk file to .zip, and attach it here?

[microvolution]

yes.
2 apks indexed:
a) AdTestD12-android64-debug
b) AdTestD12-android32-debug
AdTestD12-android64-debug.zip
AdTestD12-android-32-debug.zip

[DelphiWorlds]

Sorry, I had not realised that you had changed the demo. If you revert the code back to the original demo, and just change this line:

    AdMob.RequestConsent;

to this:

    AdMob.RequestConsent(True); // Bypasses consent requirements

..and when you run the demo, click the Consent button first. The ads will all work then.

[microvolution]

i) portuguese:
Uauuuu
Ficou excelente.
Coloquei a seguinte diretiva extra:
procedure TForm1.ConsentButtonClick(Sender: TObject);
begin
// Use RequestConsent(True) if you need to OPT OUT out of UMP
{$IF CompilerVersion > 35}
{$IFDEF DEBUG}
AdMob.RequestConsent(True);
{$ELSE}
AdMob.RequestConsent;
{$ENDIF}
{$ELSE}
// UMP not supported on Delphi 11
AdMob.RequestConsent(True);
{$ENDIF}
// **** NOTE: Ads will not start until RequestConsent has been called ****
end;

---

Agora, colocando no AndroidManifestTemplate o meu APPLICATION_ID, não funcionou:
Veja o trecho do Manifest:
***************<%queries-child-elements%>

<%provider%>

---

A mensagem de erro no TMemo é:

Consent error from: ConsentInfoUpdate - 3: Publiser misconfiguration: Failled to read publisher's account configuration; this could be caused by an invalid app ID or lack of configured form(s). Verify that your app ID is correct and that you have configured one or more forms for this application, then try again. Received app ID: 'xxxxxxx~xxxxxx'.

ii) english:
Wow
Now, adapt my APPLICATION_ID in the AndroidManifestTemplate, it didn't work:
See the excerpt from Manifest:
***************<%queries-child-elements%>

<%provider%>

---

The error message in TMemo is:

Consent Error from: ConsentInfoUpdate - 3: Incorrect publisher configuration: Failed to read publisher account configuration; this may be caused by an invalid app ID or missing form(s) configured. Please check that your app ID is correct and that you have configured one or more forms for this app and try again. Received app ID: 'xxxxxxx~xxxxxx'.

Wow!
It was excellent.
I added the following extra operation:
procedure TForm1.ConsentButtonClick(Sender: TObject);
begin
// Use RequestConsent(True) if you need to OPT OUT of UMP
{$IF CompilerVersion > 35}
{$IFDEF DEBUG}
AdMob.RequestConsent(True);
{$ELSE}
AdMob.RequestConsent; {$ENDIF}
{$ELSE}
// UMP not supported in Delphi 11
AdMob.RequestConsent(True);
{$ENDIF}
// **** NOTE: Ads will not start until RequestConsent is called ****
end;

---

[DelphiWorlds]

See the excerpt from Manifest:

You have not shown the relevant part of the manifest. It should look like this:

<%application-meta-data%>
        <meta-data
            android:name="com.google.android.gms.ads.APPLICATION_ID"
            android:value="ca-app-pub-NNNNNNNNNNNNN~7163712683"/>

(I have obscured parts of my application id)

If you have configured this correctly, check that you have provided all relevant information to Admob: https://admob.google.com/v2/home?pli=1

[microvolution]

1. portuguese:
   Veja o meu AndroidManifestTemplate completo, por favor (mesmo assim, dá aquela mensagem de erro que mostrei ao clicar no botão [CONSENT]):

2. english:
   See my full AndroidManifestTemplate, please(Even so, it gives that error message that I showed when clicking the button [CONSENT]):

---

<%uses-permission%>


<%queries-child-elements%>


<%provider%>
<%application-meta-data%>


<%uses-libraries%>

        <meta-data android:name="photopicker_activity:0:required" android:value="" />
    </service>

<%services%>

        <intent-filter>
            <action android:name="android.intent.action.MAIN" />

            <category android:name="android.intent.category.LAUNCHER" />
        </intent-filter>
    </activity>

<%activity%>
<%receivers%>

---

[DelphiWorlds]

See my full AndroidManifestTemplate

That's not a full AndroidManifest.template.xml - many parts of it are missing. Perhaps attach the file here.

Even so, it gives that error message that I showed when clicking the button

It will give that error if your AndroidManifest.template.xml is not correct