B4X FEED problema con mSoundPool

[practicalsoft]

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è è...

برای دیدن لینک ها باید ثبت نام کنید

برای دیدن لینک ها باید ثبت نام کنید