【VFB】播放MID、WAV文件

勇芳软件

MIDI

初始化

1. 
   
2. Function winmmInitMidi As Integer
   
3. 
   
4.     Function = mciSendString( "open sequencer", Null, 0, 0 ) = 0
   
5. 
   
6. End Function
   

复制代码

播放文件

1. 
   
2. Function winmmPlayMidi( ByVal filename As String ) As Integer
   
3.    
   
4.     If( mciSendString( "open " + filename + " alias mymidifile", Null, 0, 0 ) <> 0 ) Then
   
5.         Return 0
   
6.     End If
   
7.    
   
8.     Function = mciSendString( "play mymidifile", Null, 0, 0 ) = 0
   
9.    
   
10. End Function
    

复制代码

停止播放

1. 
   
2. Function winmmStopMidi( ) As Integer
   
3.    
   
4.     mciSendString( "stop mymidifile", Null, 0, 0 )
   
5. 
   
6.     Function = mciSendString( "close mymidifile", Null, 0, 0 ) = 0
   
7.    
   
8. End Function
   

复制代码

释放

1. 
   
2. Function winmmEndMidi As Integer
   
3.    
   
4.     Function = mciSendString( "close sequencer", Null, 0, 0 ) = 0
   
5.    
   
6. End Function
   

复制代码

WAV

1. 
   
2. Function winmmPlayWave( ByVal filename As String ) As Integer
   
3. 
   
4.     Function = sndPlaySound( filename, SND_ASYNC )
   
5.    
   
6. End Function
   

复制代码

0xAA55

然而还是mci那套，论播放MIDI时你能指定合成器么？

勇芳软件

0xAA55 发表于 2018-3-8 17:52
然而还是mci那套，论播放MIDI时你能指定合成器么？

用 MCI 命令

xiawan

楼主大能，感谢感谢