subject_29656.htm

来自「一些关于vc的问答」· HTM 代码 · 共 18 行

<p>
序号：29656 发表者：陳章民 发表日期：2003-02-11 08:55:56
<br>主题：How to play midi file by DirectX
<br>内容：如何以DirectX撥放midi檔<BR><BR>以下是用VB寫的,要如何改成VC++呢??<BR><BR>Public ObjDX As New DirectX7<BR>Public ObjDS As DirectSound<BR>Public DMPerf As DirectMusicPerformance<BR>Public DMLoader As DirectMusicLoader<BR>Public DMSegState As DirectMusicSegmentState<BR>Public DMSeg_OpenGif As DirectMusicSegment<BR><BR>Public Sub SWDX_Music_Set()<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;Set ObjDS = ObjDX.DirectSoundCreate("")<BR>&nbsp;&nbsp;&nbsp;&nbsp;ObjDS.SetCooperativeLevel MDIForm1.hwnd, DSSCL_PRIORITY<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;Set DMPerf = ObjDX.DirectMusicPerformanceCreate()<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;Call DMPerf.Init(Nothing, 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;DMPerf.SetPort -1, 4<BR>&nbsp;&nbsp;&nbsp;&nbsp;DMPerf.SetMasterVolume 0<BR>&nbsp;&nbsp;&nbsp;&nbsp;DMPerf.SetMasterAutoDownload True<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;''<BR>&nbsp;&nbsp;&nbsp;&nbsp;Set DMLoader = ObjDX.DirectMusicLoaderCreate()<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim music_file As String<BR>&nbsp;&nbsp;&nbsp;&nbsp;music_file = Midi_Dir &amp; "Cr008gm.mid"<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;Set DMSeg_OpenGif = DMLoader.LoadSegment(music_file)<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;DMSeg_OpenGif.SetRepeats (1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;DMSeg_OpenGif.SetStandardMidiFile&nbsp;&nbsp;<BR><BR>Set DMSegState = DMPerf.PlaySegment(DMSeg_OpenGif, 0, 0)<BR><BR>''stop midi play<BR>''DMPerf.Stop DMSeg_OpenGif, Nothing, 0, 0<BR>''Set DMSeg_OpenGif = Nothing<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>End Sub<BR><BR>
<br><a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p>
<hr size=1>
<blockquote><p>
回复者：bird 回复日期：2003-02-11 09:19:26
<br>内容：http://www.vcroad.com/shownews.asp?newsid=852
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
<font color=red>答案被接受</font><br>回复者：bird 回复日期：2003-02-11 09:21:54
<br>内容：网上搜索一下吧!<BR>有很多这方面的例子,拿来用就好了!<BR><BR>http://www.vckbase.com/code/listcode.asp?mclsid=7&amp;sclsid=711
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>