AudioPlayerDemo with bugs (com falhas)

[microvolution]

1. portuguese (native language):

---

O demonstrativo do AudioPlayerDemo, também está com problemas:

1. Ao final da música o Stop não entra automaticamente;
2. Se tentar executar a mesma música novamente, não aparece o som;
3. No windows, ao final da música gera o seguinte erro na procedure TForm1.AddPlayer, no windows, o trecho abaixo TPahtHelper gera erro:
   ========
   begin
   {$IF Defined(MSWINDOWS)}
   // LMusicPath := TPathHelper.GetDefaultSourcePath('Music');
   {$ELSE}
   ========
   erro:

---

Project AudioPlayerDemo.exe raised exception class $C0000005 with message 'access violation at 0x005a5718: read of address 0x00000000'.

cliquei no break e me levou para dentro de DW.AudioPlayer.Win, na linha FMediaEventEx:

finally
  FMediaEventEx.FreeEventParams(LCode, LParam1, LParam2);
end;

---

O conteúdo das variáveis acima são:

• LCode = 1
• LParam1 = 0
• LParam2 = 0

---

Finalmente, após vários F9 (breakpoint), chegamos à última tela do erro:

Error

Access violation at address 005A5718 in module 'AudioPlayerDemo.exe'. Read of address 00000000.

OK

4. acrescentei um botão (TRectangle) para ativar ou desativar o loop da música, mas, não funcinou. Veja o código:

---

procedure TForm1.rectRepeatClick(Sender: TObject);
var
LPlayer: TAudioPlayer;
begin
LPlayer := GetSelectedPlayer;

// if LPlayer <> nil then
// begin
// if LPlayer.IsLooped then
// LPlayer.IsLooped := False
// else
// LPlayer.IsLooped := True
// end;

if rectRepeat.Tag = 0 then
begin
rectRepeat.Tag := 1;
rectRepeat.Fill.Color := $FFD30000;
LPlayer.IsLooped := True;
end
else
begin
rectRepeat.Tag := 0;
rectRepeat.Fill.Color := $FFE0E0E0;
LPlayer.IsLooped := False;
end;
end;

Vocês conseguem me ajudar?
Usando Delphi 12.1 CE Firemonkey.

---

2. english (translate goole)

---

The AudioPlayerDemo demo also has problems:

1. At the end of the song, the Stop button does not appear automatically;
2. If you try to play the same song again, the sound does not appear;
3. In Windows, at the end of the song, the following error is generated in the TForm1.AddPlayer procedure. In Windows, the TPahtHelper excerpt below generates an error:
   ========
   begin
   {$IF Defined(MSWINDOWS)}
   // LMusicPath := TPathHelper.GetDefaultSourcePath('Music');
   {$ELSE}
   ========
   error:

---

Project AudioPlayerDemo.exe raised exception class $C0000005 with message 'access violation at 0x005a5718: read of address 0x00000000'. ------------------------
I clicked on the break and it took me to DW.AudioPlayer.Win, to the FMediaEventEx line:

finally
FMediaEventEx.FreeEventParams(LCode, LParam1, LParam2);
end;

The contents of the variables above are:

• LCode = 1
• LParam1 = 0
• LParam2 = 0

---

Finally, after several F9 (breakpoint) presses, we reached the last error screen:

Error

Access violation at address 005A5718 in module 'AudioPlayerDemo.exe'. Read of address 00000000.

OK

4. I added a button (TRectangle) to activate or deactivate the music loop, but it didn't work. See the code:

---

procedure TForm1.rectRepeatClick(Sender: TObject);
var
LPlayer: TAudioPlayer;
begin
LPlayer := GetSelectedPlayer;

// if LPlayer <> nil then
//begin
// if LPlayer.IsLooped then
// LPlayer.IsLooped := False
//else
// LPlayer.IsLooped := True
// end;

if rectRepeat.Tag = 0 then
begin
rectRepeat.Tag := 1;
rectRepeat.Fill.Color := $FFD30000;
LPlayer.IsLooped := True;
end
else
begin
rectRepeat.Tag := 0;
rectRepeat.Fill.Color := $FFE0E0E0;
LPlayer.IsLooped := False;
end;
end;

Can you help me?
Using Delphi 12.1 CE Firemonkey.

[DelphiWorlds]

No windows, ao final da música gera o seguinte erro na procedure TForm1.AddPlayer, no windows, o trecho abaixo TPahtHelper gera > erro:

begin
{$IF Defined(MSWINDOWS)}
// LMusicPath := TPathHelper.GetDefaultSourcePath('Music');
{$ELSE}

Please replace the line of code with:

  LMusicPath := TPathHelper.GetAppPath('..\..\Music');

[microvolution]

1. portuguese (nativa language):
   Estou testando.
   Agora, eu relatei vários problemas, vocês estão analisando os demais?

---

2. english (google translate):
   I'm testing it.
   Now, I've reported several issues, are you looking into the rest?

[microvolution]

1. portuguese:
   Troquei a linha no windows, conforme instruções, mas, mesmo assim o erro continua. Veja:

2. english:
   I changed the line in Windows, as instructed, but the error still persists. See:

---

First chance exception at $00AC5718. Exception class $C0000005 with message 'access violation at 0x00ac5718: read of address 0x00000000'. Process AudioPlayerDemo.exe (11592)

************************* image indexed **************************

[DelphiWorlds]

Now, I've reported several issues, are you looking into the rest?

Yes, I am looking into the other issues - they appear to be a problem on Android. All works on iOS

[DelphiWorlds]

Now fixed the issue of the player completion on Android (Play will re-enable and Stop become disabled). You will need to update your copy of Kastri.

[microvolution]

1. portuguese:
   Não precisa atualizar todo o Kastri, certo? Somente a pasta Demo ou alguma outra específica?

2. english:
   You don't need to update the entire Kastri, right? Just the Demo folder or some other specific folder?

[microvolution]

1. portuguese:
   Em primeiro lugar, sou grato pela oportunidade que a equipe Kastri está me proporcionando. Nunca tive suporte tão rápido e não tanto merecido. Parabéns. Que o Todo Poderoso Criador lhes abençoem grandemente.

Ah! baixei apenas o arquivo que foi alterado. Agora está melhor o AudioPlayerDemo.dproj, mas, ainda tem algumas falhas:
a) Se der "Stop" antes de finalizar a música, ela não não mais dá "Play";
b) Se der "Pause" em qualquer lugar do tempo executado da música, ao pressionar "Play" novamente, ela volta ao início do tempo (0), o que não é o correto. A música precisa continuar de onde parou;
c) O loop não está funcionando.

Veja a minha versão do Unit1.pas(.zip), onde coloquei um botão "rectRepeat" (TRectangle) pra fazer o loop, mas, não está ocorrendo.

2. english:
   First of all, I am grateful for the opportunity that the Kastri team is giving me. I have never had such fast and undeserved support. Congratulations. May the Almighty Creator bless you greatly.

Oh! I only downloaded the file that was changed. Now the AudioPlayerDemo.dproj is better, but it still has some flaws:
a) If you press "Stop" before the song ends, it no longer plays "Play";
b) If you press "Pause" anywhere during the song's playing time, when you press "Play" again, it goes back to the beginning of the time (0), which is not correct. The song needs to continue from where it left off;
c) The loop is not working.

See my version of Unit1.pas(.zip), where I put a "rectRepeat" (TRectangle) button to make the loop, but it is not happening.

---

Unit1.zip

---

[microvolution]

1. portuguese:
   Ah! tanto em win 32, quanto win 64...
   a) No windows, ainda ocorre o erro, que ao final da música;
   b) No windows, quando se dá "Pause", e volta o "Play" a música continua do mesmo lugar. Mas, se tentar isso 2 vezes em diante, o botão "Pause" fica inativo (desabilitado);
   Pegue o AudioPlayerDemo.exe (zipped) em anexo e execute-o, por favor!

---

2. english:
   Ah! Both on Win 32 and Win 64...
   a) On Windows, the error still occurs at the end of the song;
   b) On Windows, when you press "Pause" and then press "Play" again, the song continues in the same place. However, if you try this twice or more, the "Pause" button becomes inactive (disabled);
   Please get the AudioPlayerDemo.exe (zipped) attached and run it!

---

AudioPlayerDemo.zip

[microvolution]

1. portuguese:
   Em anexo, o zip do .apk (android32-debug):

---

2. english:
   In indexed, the zip of .apk (android32-debug):

---

PackagedResources.zip

[microvolution]

1. portuguese:
   Em primeiro lugar, sou grato pela oportunidade que a equipe Kastri está me proporcionando. Nunca tive suporte tão rápido e não tanto merecido. Parabéns. Que o Todo Poderoso Criador lhes abençoem grandemente.

Ah! baixei apenas o arquivo que foi alterado. Agora está melhor o AudioPlayerDemo.dproj, mas, ainda tem algumas falhas: a) Se der "Stop" antes de finalizar a música, ela não não mais dá "Play"; b) Se der "Pause" em qualquer lugar do tempo executado da música, ao pressionar "Play" novamente, ela volta ao início do tempo (0), o que não é o correto. A música precisa continuar de onde parou; c) O loop não está funcionando.

Veja a minha versão do Unit1.pas(.zip), onde coloquei um botão "rectRepeat" (TRectangle) pra fazer o loop, mas, não está ocorrendo.

2. english:
   First of all, I am grateful for the opportunity that the Kastri team is giving me. I have never had such fast and undeserved support. Congratulations. May the Almighty Creator bless you greatly.

Oh! I only downloaded the file that was changed. Now the AudioPlayerDemo.dproj is better, but it still has some flaws: a) If you press "Stop" before the song ends, it no longer plays "Play"; b) If you press "Pause" anywhere during the song's playing time, when you press "Play" again, it goes back to the beginning of the time (0), which is not correct. The song needs to continue from where it left off; c) The loop is not working.

See my version of Unit1.pas(.zip), where I put a "rectRepeat" (TRectangle) button to make the loop, but it is not happening.

Unit1.zip

---

---

---

---

---

1. portuguese:
   Só funciona o replay da música ou loop infinito se eu mudar a linha abaixo:
2. english:
   The music replay or infinite loop only works if I change the line below:

---

procedure TForm1.ActionListUpdate(Action: TBasicAction; var Handled: Boolean);
var
LPlayer: TAudioPlayer;
begin
LPlayer := GetSelectedPlayer;
if LPlayer <> nil then
begin
if LPlayer.IsPlaying then
PlayPauseButton.Action := PauseAction
else
// PlayPauseButton.Action := PlayAction; // só funciona o Loop (repeat) desta forma 5/4/25w
LPlayer.Play;
end;
end;

---

[DelphiWorlds]

I've pushed changes to fix the looping issue. They were in the files:

Features\AudioPlayer\DW.AudioPlayer.pas
Features\AudioPlayer\DW.AudioPlayer.Android.pas

[microvolution]

1. portuguese:
   Estou testando em windows32(debug) e também no Android32(debug). Infelizmente erro no android. infelizmente piorou. Agora o meu game - onde estou testando o FAudioPlayer, toca a música, mas, fica injogável. A tela fica travada. O Loop parece estar funcionando desta vez.

2. english (chutômetro kkkk):
   I'm testing in windows32(debug) and in the Android32(debug). Sorry. Error in android. Unfortunately, it got worse. Now my game - where I'm testing FAudioPlayer, plays the music, but it's unplayable. The screen freezes. The Loop seems to be working this time.

---

Project Numbers2248.apk raised exception class EJNIException with message 'java.lang.IllegalStateException'.

[microvolution]

obs.:

1. português Brasil:
   O teste simples na minha aplicação fiz assim:

2. english (chute):
   The simple test in the my app it was like that:

---

unit UnitPrincipal;
interface
//
uses
//
// novo audioplayer que é possível loop/repeat da música
DW.AudioPlayer,
//
type
TFrmPrincipal = class(TForm)
private
FAudioPlayer: TAudioPlayer;
procedure AudioStateChangeHandler(Sender: TObject; const AAudioState: TAudioState);
procedure StopAllSounds;
procedure ExecutaMusicLoop;
var
FrmPrincipal: TFrmPrincipal;

implementation

{$R *.fmx}

uses UnitGameOver
, DW.OSLog
;
procedure TFrmPrincipal.FormCreate(Sender: TObject);
var
FAudioPlayer := TAudioPlayer.Create;
FilePath, AFileName: string;
begin
FAudioPlayer := TAudioPlayer.Create;
AFileName := 'GameBGPrincipal.mp3';
{$IFDEF MSWINDOWS}
FilePath := ExtractFilePath(ParamStr(0)) + 'Sounds' + AFileName;
{$ENDIF}

{$IFDEF ANDROID}
// Verifica se o arquivo existe no diretório de documentos
FilePath := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetDocumentsPath, AFileName);

// Se não existir, copia do assets
if not FileExists(FilePath) then
begin
  var AssetsFilePath := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetSharedDocumentsPath, AFileName);
  if FileExists(AssetsFilePath) then
    TFile.Copy(AssetsFilePath, FilePath);
end;

{$ENDIF}

FAudioPlayer.LoadFromFile(FilePath);
FAudioPlayer.OnAudioStateChange := AudioStateChangeHandler;
end;

procedure TFrmPrincipal.FormDestroy(Sender: TObject);
begin
FAudioPlayer.Free;
FAudioPlayer := nil;
end;

procedure TFrmPrincipal.FormShow(Sender: TObject);
begin
ExecutaMusicLoop;
end;

procedure TFrmPrincipal.ExecutaMusicLoop;
begin
FAudioPlayer.IsLooped := True; // Loop ativado por padrão
if FAudioPlayer <> nil then
FAudioPlayer.Play
else
ShowMessage('sem música');
end;

procedure TFrmPrincipal.AudioStateChangeHandler(Sender: TObject;
const AAudioState: TAudioState);
begin
if AAudioState = TAudioState.Stopped then
begin
// Reinicia a música quando ela parar
// FAudioPlayer.CurrentTime := 0; // Reinicia o tempo // não existe esta propriedade
// FAudioPlayer.Play; // Reinicia a reprodução
end;
end;

end.

[microvolution]

1. português:

Coloquei breakpoint e descobri algumas coisas:
a) não encontra a lib DW.AudioPlayer.Android.pas:

b) finalmente neste local, que apresentou o erro. Linha 249 (prepareAsync):

2. english:
   a) does not find the DW.AudioPlayer.Android.pas lib:
   

b) finally at this location, which presented the error. Line 249 (prepareAsync):

[microvolution]

Inclusive até o "demo", também não está mais funcionando.

[DelphiWorlds]

Now my game - where I'm testing FAudioPlayer, plays the music, but it's unplayable. The screen freezes. The Loop seems to be working this time.

What "loop" are you referring to? In the demo, when music is playing, I can change the selection between the items in the list, click the Stop and Pause buttons, so there is no "freezing" there.

a) does not find the DW.AudioPlayer.Android.pas lib:

That has nothing to do with the code - it's an IDE issue.

Even the "demo" is also no longer working.

The demo works fine here. On which platforms does it not work for you, and can you give more detail about exactly what is not "working"?

[microvolution]

a)

What "loop" are you referring to? In the demo, when music is playing, I can change the selection between the items in the list, click the Stop and Pause buttons, so there is no "freezing" there.

I mean the music loop of bg in the game.

b)

That has nothing to do with the code - it's an IDE issue.

Ok.

c)

The demo works fine here. On which platforms does it not work for you, and can you give more detail about exactly what is not "working"?

Unfortunately I was unable to compile my APK prototype to attach here, as it was over 25MB.

**

---

d)
portuguese:

---

aproveitando o ensejo, você pode me mostrar um exemplo simples, onde eu possa apenas tocar uma única trilha sonora que se repete?

**
No meu simples jogo, exite um menu que chama outro TForm. Quando ele for chamado, a música tem que parar. Ao voltar para o form, a música precisa voltar a tocar em loop. Outro detalhe, quando o jogo estiver aberto, mas, o usuário minimizar a música (TMediaPlayer ou TAudioPlayer) precisa parar de tocar, o que não consigo fazer. Você pode me demonstrar, afinal, sou iniciante em Delphi, com menos de 3 anos, e, o que sei, foi assistindo a tutoriais nos grupos de telegram?**

---

d)
english:

---

While I'm at it, can you show me a simple example where I can just play a single soundtrack that repeats?

In my simple game, there is a menu that calls another TForm. When it is called, the music has to stop. When returning to the form, the music needs to start playing again in a loop. Another detail, when the game is open, but the user minimizes the music (TMediaPlayer or TAudioPlayer) it needs to stop playing, which I can't do. Can you show me, after all, I'm a beginner in Delphi, with less than 3 years, and what I know was from watching tutorials in telegram groups?

[microvolution]

The AudioPlayerDemo.apk, is long. Not Zip. See:

[DelphiWorlds]

I mean the music loop of bg in the game.

It sounds like the problem of freezing is in your code.

Unfortunately I was unable to compile my APK prototype to attach here, as it was over 25MB.

Even if you could, it would not help since I would not be able to see your code to identify the problem, and whether or not it's caused by the AudioPlayer feature.

In my simple game, there is a menu that calls another TForm. When it is called, the music has to stop.

Another detail, when the game is open, but the user minimizes the music (TMediaPlayer or TAudioPlayer) it needs to stop playing, which I can't do.

Use the Pause method to pause the sound. For when the user switches away from or to your app, on mobile you can use Application Events (BecameActive, WillBecomeInactive). For example: https://en.delphipraxis.net/topic/5109-androidhow-to-make-an-event-listener/?do=findComment&comment=44442

[microvolution]

It sounds like the problem of freezing is in your code.

Even if you could, it would not help since I would not be able to see your code to identify the problem, and whether or not it's caused by the AudioPlayer feature.

After you fixed the libs: DW.AudioPlayer.pas and DW.AudioPlayer.Android.pas, this problem started, both in AudioPlayerDemo.pas and in my test game.

See print of the MediaPlayerDemo.pas Adroid (smartphone shiaomi mi 8 lite):

[DelphiWorlds]

See print of the MediaPlayerDemo.pas Adroid (smartphone shiaomi mi 8 lite):

This is not the demo - it has no "RepeatSound" button. Please try the demo without modifying the code

[microvolution]

A) portuguese:
Então, sei que você já me ajudou muito.
Mas, você pode me mostrar um código, desde a declaração do objeto, passando pelo OnCreate e OnShow do TForm, onde:

1. se inicia a música e ao término dela, reinicia novamente (loop);
2. quando o usuário ou o jogo abrir outro TForm a música parar de tocar;
3. quando o usuário voltar novamente à tela principal, a música começar novamente.

Só isso que preciso. Você pode me ajudar novamente?
Veja, por favor, um exemplo simples que fiz para Windows32debug e também para Android32debug (zip):
Obs.:
a) se usar o PAUSE, o PLAY só pode ser usado 2 vezes. pegue o projeto completo, por favor, também em anexo (III);

---

B) english (google translate):
So, I know you've helped me a lot.
But, can you show me some code, from the object declaration, through the OnCreate and OnShow of the TForm, where:

1. the music starts and when it ends, it restarts again (loop);
2. when the user or the game opens another TForm, the music stops playing;
3. when the user returns to the main screen, the music starts again.

That's all I need. Can you help me again?
Please see a simple example I made for Windows32debug and also for Android32debug (zip):
Note:
a) if you use PAUSE, PLAY can only be used twice. Please get the complete project, also attached (III);

---

---

---

Anexos/Indexes:
I)Windows:
AudioPlayerDemo2win32debug.zip

II) Android:
AudioPlayreDemo2Android64debug.zip

III) Project completo/complete:
TAudioPlayerKastri.zip

[microvolution]

a) Este projeto-exemplo:
b) This is example-project:

III) Project completo/complete: TAudioPlayerKastri.zip

[DelphiWorlds]

But, can you show me some code, from the object declaration, through the OnCreate and OnShow of the TForm, where:...

I already linked to an example of how this can be achieved. You make the call to SubscribeToMessage when the form is created, and the call to Unsubscribe when it is destroyed. Note however, that on Windows, you may need to use OnActivate and OnDeactivate for the form that has the player.

if you use PAUSE, PLAY can only be used twice

I will look into this issue

[microvolution]

1. portuguese:
   Pelo que percebi, parece que há um conflito entre as alterações que você fez nos arquivos DW.AudioPlayer.Android.pas e DW.AudioPlayer.pas, para corrigir o problemas, com alguma biblioteca JNI que eu já uso. Veja, mais uma vez, por favor, e, tente, se puder, analisar as mudanças para descobrir onde está causando:
   Project Numbers2248.apk raised exception class EJNIException with message 'java.lang.IllegalStateException'.

Eu consegui debugar e chegar somente até a linha: FMediaPlayer.prepareAsync;(linha 242) do arquivo "DW.AudioPlayer.Android".

Ah! voltei o dw.mediaplayer.android.pas anterior e parou o problema, só o loop que não funciona.

removi a linha abaixo no código e parou o conflito "raised EJNI"

#Gratidão
#sempre

---

2. english (google):

From what I understand, it seems that there is a conflict between the changes you made to the DW.AudioPlayer.Android.pas and DW.AudioPlayer.pas files to fix the problem, with some JNI library that I already use. Please take another look and try, if you can, to analyze the changes to find out where it is causing:
Project Numbers2248.apk raised exception class EJNIException with message 'java.lang.IllegalStateException'.

I was able to debug and get only to the line: FMediaPlayer.prepareAsync;(line 242) of the file "DW.AudioPlayer.Android".

Ah! I returned to the previous dw.mediaplayer.android.pas and the problem stopped, only the loop doesn't work.

I removed the below line in the code and it stopped the "raised EJNI" conflict

#gratitude
#always

[DelphiWorlds]

From what I understand, it seems that there is a conflict between the changes you made to the DW.AudioPlayer.Android.pas and DW.AudioPlayer.pas files to fix the problem

I have made further changes to:

Features\AudioPlayer\DW.AudioPlayer.pas
Features\AudioPlayer\DW.AudioPlayer.Android.pas

If you could try again, please.

[microvolution]

I'm testing...

[microvolution]

I have made further changes to:

If you could try again, please.

1. portuguese:
   Mesmo com suas alterações, temos:
2. no windows, continua aquele mesmo problema "raised";
3. no Android, nos 3 testes que fiz, parou o conflito de EJNI. Mas:
   2.1) Ao final da música não reinicia, mesmo usando o evento "AudioStateChangeHandler" que mesmo parecendo ser uma TThread anônima rodando em segundo plano;
   2.2) O pause ficou estranho.

Veja a procedure "AudioStateChangeHandler", executando o .Play novamente, e, mesmo assim, nada se escuta. É como se o volume estivesse sido zerado:

---

2. english (google):
   Even with your changes, we have:
3. on Windows, the same "raised" problem persists;
4. on Android, in the 3 tests I did, the EJNI conflict stopped. But:
   2.1) At the end of the song, it doesn't restart, even using the "AudioStateChangeHandler" event, which even though it seems to be an anonymous TThread running in the background;
   2.2) The pause became strange.

Look at the "AudioStateChangeHandler" procedure, running .Play again, and, even so, nothing is heard. It's as if the volume had been reset:

---

[DelphiWorlds]

At the end of the song, it doesn't restart, even using the "AudioStateChangeHandler" event

I think I have it now. Sorry it has taken a bit to have this right. Changes again made to:

Features\AudioPlayer\DW.AudioPlayer.pas
Features\AudioPlayer\DW.AudioPlayer.Android.pas

[microvolution]

I think I have it now. Sorry it has taken a bit to have this right. Changes again made to:

a) portuguese:
Agora falta pouco para funcionar perfeitamente.
Veja as imagens abaixo:

1. momento exato onde o frmPrincipal (TForm1) chama o frmGameOver (TForm2):

2. StopAllSounds:

3. após fechar o TForm secundário, é executada a procedure de CallBack "executarAcao", que simplesmente dá o ".Play":

3.1) O ".Play", dentro do "executarAcao", infelizmente, não volta a tocar a música.

Aqueles conflitos de Raise EJNI, parece que não mais existem.
O que mais pode estar faltando no código para que a música dê um play novamente?

---

b) english (google translate):
Now it's almost time for it to work perfectly.
See the images below:

1. exact moment when frmPrincipal (TForm1) calls frmGameOver (TForm2):
   

2. StopAllSounds:
   

3. after closing the secondary TForm, the CallBack procedure "executarAção" is executed, which simply gives the ".Play":
   

3.1) The ".Play", inside the "executarAção", unfortunately, does not play the music again.

Those Raise EJNI conflicts seem to no longer exist.

What else could be missing in the code for the music to play again?

---

[DelphiWorlds]

The ".Play", inside the "executarAção", unfortunately, does not play the music again.

The state of the MediaPlayer is different when Stop is called explicitly, as opposed to when the audio finishes, so I have made a change to:

Features\AudioPlayer\DW.AudioPlayer.Android.pas

[microvolution]

The state of the MediaPlayer is different when Stop is called explicitly, as opposed to when the audio finishes, so I have made a change to:
Features\AudioPlayer\DW.AudioPlayer.Android.pas

1. portugueses:
   Infelizmente piorou. Agora no Android, nem passa do Splash nativo do Delphi. Por favor, teste meu projeto completo que enviei anteriormente zipado.

2. english:
   Unfortunately, it got worse. Now on Android, it doesn't even go beyond Delphi's native Splash. Please test my complete project that I previously sent zipped.

[DelphiWorlds]

Unfortunately, it got worse. Now on Android, it doesn't even go beyond Delphi's native Splash

Then you have added something to your project that is causing that. Try the demo without any changes first

[DelphiWorlds]

Please test my complete project that I previously sent zipped.

I tested your example project - it does not deploy GameBGPrincipal.mp3, so it locks up on start when attempting to load the file.

[microvolution]

1. portuguese:
   Basta substituir essa gameBGPrincipal.mp3 por qualquer outro .mp3 que você tiver. Inclua em Project/deployment para Android. Para windows, crie na pasta do .exe uma pasta "\Sounds" e acrescente o seu mp3.

2. english:
   Just replace this gameBGPrincipal.mp3 with any other .mp3 you have. Include it in Project/deployment for Android. For Windows, create a "\Sounds" folder in the .exe folder and add your mp3.

[DelphiWorlds]

Just replace this gameBGPrincipal.mp3 with any other .mp3 you have. Include it in Project/deployment for Android

After adding a file to the project deployment, your test app works.

[microvolution]

Funciona, mas, ao abrir e fechar o TForm secundário algumas vezes, o play não funciona.

It works, but when opening and closing the secondary TForm a few times, the play doesn't work.

[DelphiWorlds]

It works, but when opening and closing the secondary TForm a few times, the play doesn't work.

It works here every time I open and close the secondary form. Since I do not have your device, I can't say why it does not work on yours