各位大虾帮帮忙

dearplumlxh 2002-12-08 01:28:47
在利用MediaPlayer播放文件时,如何调整声音的大小(在程序中实现),以及如何实现亮度、灰度的控制。各位大虾帮帮忙。
...全文
27 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
dearplumlxh 2002-12-29
  • 打赏
  • 举报
回复
高手们帮帮忙吧
fwwxxjingling 2002-12-24
  • 打赏
  • 举报
回复
呵呵,学习永无止境...
dearplumlxh 2002-12-24
  • 打赏
  • 举报
回复
多谢老兄:)那如何实现亮度和灰度的控制呢,多谢?
请问一下音量的值是不是先附给了,变量t,并且还要用到一个TrackBar控件
在界面中用这个控件来调整音量的大小??
Billy_Chen28 2002-12-19
  • 打赏
  • 举报
回复
1、调整声音的大小
****************
左声道:
var
v,t:LOngint;
beging:
t:=55-TrackBar1.Positinon;
auxGetVolume(MediaPlayer.DeviceID-1,@v);
v:=((t shl 8)or(v and $ffff0000));
auxSetVolume(MediaPlayer.DeviceID-1,v);
end;
****************
右声道:
var
v,t:LOngint;
beging:
t:=55-TrackBar2.Positinon;
auxGetVolume(MediaPlayer.DeviceID-1,@v);
v:=((t shl 24)or(v and $0000ffff));
auxSetVolume(MediaPlayer.DeviceID-1,v);
end;

注:TrackBar.max:=255;
MediaPlayer是SYSTEM页中的那个MediaPlayer;

dearplumlxh 2002-12-19
  • 打赏
  • 举报
回复
不会真的没有人会吧?:(
笔试(erp系统管理员)题目 求解 偶乃一应届毕业生,上星期在网上见到一不错的公司招oracle数据库管理,于是屁颠屁颠跑到那公司,骗过门卫和保安,咨询了搞卫生的阿姨后,见到了人力资源部主管,话都没说上两句,给偶一道题目(erp系统管理员),结果没几个会做的。其实我自己也挺想往erp方向发展,所以打算下个星期再去。 请各位大虾帮帮忙忙,提点提点。(我在论坛上查了些,资料,还是有好多不会的。) 1。列出 erp供应商及erp产品的名称,版本? (erp供应商是不是:racle erp在咱国内的用户比如,华菱、湘钢、衡钢、承 钢、济钢等等。名称和版本呢?) 2。名词解释 erp,crm,hr,oa,srm,pdm (我只查到了erp,crm,hr的解释,其他的查不到) 3。用一句话说明 bom,采购计划,生产订单,销售订单,物料清单 (查不到 ) 4。写sql语句。 ‘存货档案’(表一): 存货编码(c),存货名称(c),存货规格(c),存货类别(c) ‘发货单’(表二):存货编码(c),数量(n),单价(n) 用sql写出 A:存货类别为'办公用品',发货金额在1000元以下的所有发货单 B: 按存货名称汇总发货单的发货金额 (此题会做一点点,但是写得不全,还得请大家指导) 5 写出erp系统对'销售发货单',‘销售普通发票’生成的会计分录 (完全摸不着头脑)

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧