Italian problema con mSoundPool

[zamb]

Buongiorno a tutti. Sto lavorando ad una piccola app in BA4 che dovrebbe riprodurre un brano musicale della durata di circa 7 minuti quando premo un pulsante e che si deve ripetere in loop fino a quando non ripremo lo stesso pulsante.

Questi i punti salienti del codice:

sub Process_Globals:
Private mSoundPool As SoundPool
.
.
end sub

sub activity_create:
mSoundPool.Initialize(1)
ciaomamiID = mSoundPool.Load(File.DirAssets, "Tutto.ogg")
.
.
end sub

Private Sub PlaySound(SoundID As Int)
mSoundPool.Play(SoundID, 1, 1, 100, -1, 1)
End Sub

Sub btnMusic_Click
If btnStop.Text <> "Stop musica" Then
btnStop.Text = "Stop musica"
PlaySound(ciaomamiID)
Else
btnStop.Text = "Musica"
PlaySound(silenzioID)
End If
end sub

Apparentemente funziona ma riproduce solo i primi 10-12 sec e poi riparte.
Avete qualche consiglio?

Grazie molte. E' una app cui tengo moltissimo perchè è un ricordo per la mia mamma recentemente scomparsa.....

Pier

 

[zamb]

OK, ho visto l'esempio con media player e se non c'è altra strada proverò con quello.
Grazie

 

[Sagenut]

This is the International part of the forum and it's needed to write in English.
If you want we wait for You in the Italian section.
My warmest condolence.

Questa è la parte Internazionale del Forum.
Se vuoi ti aspettiamo nella sezione Italiana per aiutarti.
Le mie più sentite condoglianze.

 

[zamb]

Grazie.