• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi多媒体设计之TMediaPlayer组件(三)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

设置Wave文件输出设备的音量相当简单,但是必须利用Windows API进行。waveOutGetVolume和waveOutSetVolume函数分别用来获取音量和设置音量。

音量以整型(integer)存储。高位字节(hight word)制定右声道音量设置,低位字节(low word)制定左声道音量设置。如果设备没有独立设置左、右声道音量的能力,则低位字节用于设置音量,高位字节被忽略。

0值是无音量,16进制值$FFFF则是最大音量。下列代码为设置左右声道音量为50%,当然前提是要在uses列表中引用MMSystem单元。

waveOutSetVolume(0, $80008000);

下面的例子设置音量为最大值:

waveOutSetVolume(0, $FFFFFFFF);

注意0被用作waveOutSetVolume的第一个参数;这多少有点给人假象,以为WAVE设备为0号设备,但情况几乎总是这样,因此第一个参数可设置为0。

上面的代码,做了两个小的范例,分别以50%和100%的音量来播放,范例截图如下,请自行查看代码浏览。


设置音量就如上面讲解的一样非常容易。但要注意waveOutSetVolume仅设置WAVE输出设备的音量,而不是设置主音量。主音量可通过多媒体混合控制器(multimedia mixer control)来控制设置,该设置不在我们的讲解范围中。

以上代码均在Delphi 7下通过测试,示例代码下载:TMediaPlayer.rar


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi常用属性和事件发布时间:2022-07-18
下一篇:
Delphi下遍历文件夹下所有文件的递归算法发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap