-
DirectMusic, 8 to 7
Here I've coded based on MSDN DirectMusic for Dx8 to be used in VB.NET but when I test it out in school today, I found out that the school doesn't support Dx8 with Win2k, and only supports Dx7. So I hoping any kind soul could help me change this and that so that it'll work for Dx7.
Code:
Public Sub InitializeDirectMusic()
dml8 = dx8.DirectMusicLoaderCreate
dmp8 = dx8.DirectMusicPerformanceCreate
dmp8.InitAudio(Me.Handle.ToInt32, DxVBLibA.CONST_DMUS_AUDIO.DMUS_AUDIOF_ALL, Nothing, Nothing, DxVBLibA.CONST_DMUSIC_STANDARD_AUDIO_PATH.DMUS_APATH_SHARED_STEREOPLUSREVERB, 64)
End Sub
Public Sub PlayMidi(ByVal Filename As String)
seg8 = dml8.LoadSegment(Application.StartupPath & Filename)
seg8.Download(dmp8.GetDefaultAudioPath)
dmp8.PlaySegmentEx(seg8, 0, 0)
End Sub
Public Sub StopMidi(ByVal FileName As String)
seg8 = dml8.LoadSegment(Application.StartupPath & FileName)
seg8.Unload(dmp8.GetDefaultAudioPath)
dmp8.StopEx(seg8, 0, 0)
End Sub
I tired a little but I just can't get the seg8.Download to work, don't know what with .GetDefaultAduioPath which is not avalible with Dx7!