MediaPlayer

XverhelstX

Well-Known Member

Licensed User

Longtime User

• Jul 8, 2011

• #2

Try the following:

B4X:

Sub Button1_Click
    MediaPlayer1.Initialize
    MediaPlayer1.Load(File.dirRootExternal, "name.mp3")
    MediaPlayer1.Play
End Sub

and place name.mp3 in your SD card directory.
You can also copy the code from file.dirassests to your root with File.copy. (tell me if i'm worng :s)

XverhelstX

 

Upvote 0

Z

Zate

Member

• Jul 8, 2011

• #3

The .mp3 is the sound for an app... I can't put it in the sd if I want to share the app.

 

Upvote 0

agraham

Expert

Licensed User

Longtime User

• Jul 8, 2011

• #4

Try making your app copy it from File.DirAssets to File.DirInternal and play it from there. MediaPlayer can't play it from DirAssets as it it is not a real Folder.

 

Upvote 0

Z

Zate

Member

• Jul 8, 2011

• #5

Where is File.DirInternal? :sign0104:
If I just change File.DirAssets in File.DirInternal there's another error:
Error occurred
An error has occured in sub:
main_play(java line: 553)
java.io.IOException: Prepare
failed.: status=0x1
Continue?

 

Upvote 0

agraham

Expert

Licensed User

Longtime User

• Jul 8, 2011

• #6

Did you copy the file from File.DirAssets to File.DirInternal. Look in the Wiki for File locations.

 

Upvote 0

Z

Zate

Member

• Jul 8, 2011

• #7

You mean

B4X:

If FirstTime Then
        If File.Exists(File.DirInternal, "Ronzio.mp3") = False Then
          File.Copy(File.DirAssets, "Ronzio.mp3", File.DirInternal, "Ronzio.mp3")
        End If
End If

This doesn't work

 

Upvote 0

M

Merlot2309

Active Member

Licensed User

Longtime User

• Jul 8, 2011

• #8

Hi,

This works fine for me:

B4X:

        Dim ship, blub as Int

   If File.Exists(File.DirDefaultExternal, "Name.mp3") Then   
      ship = soundfile.Play(blub, 1, 1, 1, 0 , 1)
   Else
   ToastMessageShow("No sound!¿?!", True)
   End If

Forgot why I dimmed ship as Int, sorry.

Helen.

 

Upvote 0

Z

Zate

Member

• Jul 8, 2011

• #9

What is soundfile?

 

Upvote 0

M

Merlot2309

Active Member

Licensed User

Longtime User

• Jul 8, 2011

• #10

Should have mentioned that I use the Audio lib and dimmed soundfile as Soundpool.

 

Upvote 0

Z

Zate

Member

• Jul 8, 2011

• #11

No sound...
I don't know if it's right, the .mp3 is in the files folder after I've added it

 

Upvote 0

M

Merlot2309

Active Member

Licensed User

Longtime User

• Jul 8, 2011

• #12

Ok, start with the basic: do you hear the sound when you play it on the device in any player?

If yes, the code for checking if the file exists should work.

If no message, try different parameters.

 

Last edited: Jul 8, 2011

Upvote 0

Z

Zate

Member

• Jul 8, 2011

• #13

EDIT: I tried to put it in the sd and tried to use http://www.b4x.com/forum/german-forum/7790-mediaplayer.html and in the app I don't hear anything, but when I close the app I hear the .mp3. What happens?

 

Last edited: Jul 8, 2011

Upvote 0

XverhelstX

Well-Known Member

Licensed User

Longtime User

• Jul 8, 2011

• #14

Zate said:

The .mp3 is the sound for an app... I can't put it in the sd if I want to share the app.

Click to expand...

That's why I added this:

You can also copy the code from file.dirassests to your root with File.copy.)

Click to expand...

So when your app starts, you can copy the mp3 file from your assets to the SD card.

 

Upvote 0

M

Merlot2309

Active Member

Licensed User

Longtime User

• Jul 8, 2011

• #15

Zate,

Deutsch?? Vielleicht zoll Klaus oder einer der anderen Deutschern morgen deine frage sehen oder kunnen Sie die komplete Kode fuer das mp3 zehen lassen?.

Entschuldigung fuer meine Deutsch :BangHead:

Ha, ha, I was so busy trying to write some German I missed the last ones. So skip this post.

Helen.

 

Last edited: Jul 8, 2011

Upvote 0

Z

Zate

Member

• Jul 8, 2011

• #16

LOL! NO! I'm Italian, but the code is the same everywhere
I study German at school though, but I'm just 13 and I'm not that good

Fixed... I deleted the play routine and made my code a bit longer...
@XverhelstX, I understood the wrong thing

 

Upvote 0

M

Merlot2309

Active Member

Licensed User

Longtime User

• Jul 8, 2011

• #17

Indeed lol, be happy that you are 13, there is a whole world ahead of you.
I will let you comunicate with Xverhelst then, the two of you will understand eachother way better.

Succes and I hope to see that you got the sound running.

Ciao,
Helen.

 

Upvote 0

Z

Zate

Member

• Jul 8, 2011

• #18

Thanks Helen, ciao!
Is it possible to resume instead of restart? If I write MediaPlayer1.Play I don't hear anything, but if I write MediaPlayer1.Load ecc it restarts...

 

Last edited: Jul 8, 2011

Upvote 0

M

Merlot2309

Active Member

Licensed User

Longtime User

• Jul 8, 2011

• #19

This is what I use with the Audio lib:

B4X:

Sub Activity_Resume

   If File.Exists(File.DirDefaultExternal, "/SoundVogels/" & Wet.Text & ".mp3") Then
      ship = speel.Play(blub, 1, 1, 1, 0 , 1)
   Else
   ToastMessageShow("Geluid is nog niet beschikbaar", True)
   End If
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   
   speel.Stop(ship)
   speel.Unload(blub)
   ship = 0

End Sub

 

Upvote 0

XverhelstX

Well-Known Member

Licensed User

Longtime User

• Jul 9, 2011

• #20

Why would I understand him better? I'm 17 and Belgian xD. I dont speak a word italian. Bellisimo. or smth. Nvm, i will take a look tomorrow.

XverhelstX

Sent from my SE Xperia Play using Tapatalk.

 

Upvote 0