help:Play Midi Problems

[halla]

yeah I can give you the code I use in my snake game...

Code:

Public Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
    hwndCallback As Long) As Long

Public Sub OpenSong()
i = mciSendString("open music.mid type sequencer alias mid1", 0&, 0, 0)
End Sub

Public Sub Play()
i = mciSendString("play mid1", 0&, 0, 0)
End Sub

Ok I put that all in a mod like modSound.

"music.mid" you name as the name of your midi song.
"mid1" is the name that you give it... you dont have to change this at all unless you want too.

Now whenever you want it to play the music add in calls for opensong and play...

Call OpenSong
Call Play

thats all you have to do to get it playing.

Now if you want it to loop or something there is more code and I can help you with that if you like. Tell me if you can get it from here.

EDIT:
I looked at your code actually now and I see that you have the midi file named as 2 different things... thats probably your problem

one you have it Background and the other Background something.

Try that out.