找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 2489|回复: 3

【VFB】播放MID、WAV文件

[复制链接]
发表于 2018-3-8 14:50:50 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有账号?立即注册→加入我们

×
MIDI

初始化

  1. Function winmmInitMidi As Integer

  2.     Function = mciSendString( "open sequencer", Null, 0, 0 ) = 0

  3. End Function
复制代码

播放文件

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

停止播放

  1. Function winmmStopMidi( ) As Integer
  2.    
  3.     mciSendString( "stop mymidifile", Null, 0, 0 )

  4.     Function = mciSendString( "close mymidifile", Null, 0, 0 ) = 0
  5.    
  6. End Function
复制代码

释放

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


WAV

  1. Function winmmPlayWave( ByVal filename As String ) As Integer

  2.     Function = sndPlaySound( filename, SND_ASYNC )
  3.    
  4. End Function
复制代码



回复

使用道具 举报

发表于 2018-3-8 17:52:48 | 显示全部楼层
然而还是mci那套,论播放MIDI时你能指定合成器么?
回复 赞! 靠!

使用道具 举报

 楼主| 发表于 2018-3-8 22:52:23 | 显示全部楼层
0xAA55 发表于 2018-3-8 17:52
然而还是mci那套,论播放MIDI时你能指定合成器么?

用 MCI 命令
回复 赞! 靠!

使用道具 举报

发表于 2022-5-17 09:52:30 | 显示全部楼层

楼主大能,感谢感谢
回复 赞! 靠!

使用道具 举报

本版积分规则

QQ|Archiver|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2024-11-21 21:47 , Processed in 0.029824 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表