German Systemsound abspielen

[peternmb]

Hallo,
ich habe schon längere Zeit nichts mehr mit B4A gemacht und in meiner App scheint das Abspielen von Systemsounds bei bestimmten Ereignissen nicht mehr zu funktionieren, es rauscht nur noch leise. Wo auf dem Gerät finde ich die Systemsounds? Was an meinem Code funktioniert nicht mehr, die Sounds sind ja anscheinend noch vorhanden.

    If FirstTime Then
        SP.Initialize(2)   'vorher 4
        LoadId1 = SP.Load(File.DirAssets, "sound1.wav")
        LoadId2 = SP.Load(File.DirAssets, "sound2.wav")
        VR.Initialize("VR")
        lblF4.Initialize("lblF4")
    End If
  
    If File.Exists(File.DirAssets,"sound1.wav") Then
        SP.Play(LoadId1, 1, 1, 1, 0, 0)
        Log("1 OK")
    Else
        Log("1 NOK")
    End If
  
    If File.Exists(File.DirAssets,"sound2.wav") Then
        SP.Play(LoadId2, 1, 1, 1, 0, 0)
        Log("2 OK")
    Else
        Log("2 NOK")
    End If

 

[DonManfred]

Wo auf dem Gerät finde ich die Systemsounds?

Keine Ahnung. Dein Code lädt jedenfalls KEINE Systemsounds. Er lädt sie aus dem Files-Ordner deines Projektes.
Prüf mal ob die Dateien noch korrekt abspielbar sind an deinem PC.

 

[peternmb]

Ja Danke. Du hast natürlich recht, es sind eigene Dateien.
Sind vorhanden und werden unter Windows auch korrekt abgespielt.
Ich habe jetzt meinen Code etwas geändert und nutze die MediaPlayer-Lib, dann funktioniert es wieder.

Public MP As MediaPlayer

MP.Initialize2("MP")

MP.Load(File.DirAssets, "yourfilename.wav")

MP.Play

 

[Koro89]

Ja Danke. Du hast natürlich recht, es sind eigene Dateien.
Sind vorhanden und werden unter Windows auch korrekt abgespielt.
Ich habe jetzt meinen Code etwas geändert und nutze die MediaPlayer-Lib, dann funktioniert es wieder.

Public MP As MediaPlayer

MP.Initialize2("MP")

MP.Load(File.DirAssets, "yourfilename.wav")

MP.Play

Damit kannst du auch ganz eigene Custom Sounds abspielen. Hab ich bei mir auch gemacht