B4J Question Play audio file on Raspberry PI3

[uniplan]

On a Raspberry PI 3 device I would like to run an audio file with B4J.
I tried to look for some examples but did not find anything clear.
What is the best solution?

thanks.

 

[alwaysbusy]

Does the PI 3 have a speaker?

 

[uniplan]

yes

 

[alwaysbusy]

Ah ok, good to know. I thought you needed an extra module to do that and had only a line-in. Never needed it before, but one never knows

 

[uniplan]

I have solved. I find this Erel's function:

Sub PlayFile(Dir As String, FileName As String)
    Dim audioSystem As JavaObject
    audioSystem.InitializeStatic("javax.sound.sampled.AudioSystem")
    Dim f As JavaObject
    f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
    Dim in As JavaObject = audioSystem.RunMethod("getAudioInputStream", Array(f))
    Dim clip As JavaObject = audioSystem.RunMethod("getClip", Null)
    clip.RunMethod("open", Array(in))
    clip.RunMethod("start", Null)
    in.RunMethod("close", Null)
End Sub