CnPack Forum » CnVCL 组件包 » 终于完成TCnVolumeCtrl


2005-9-24 10:33 kendling
终于完成TCnVolumeCtrl

CnPack.org的邮件系统是否出来问题了?怎么发不了呢?

  周兄,经过多天的调试终于完成TCnVolumeCtrl。
  由于原来的单元无法适应多设备的要求,的已经全部重新编写了。
  附件内包含Demo程序。

  现在提供以下功能:(由于时间关系,没写使用说明。其实也很简单)

    //获取参数
    function GetDevCaption(uDev: UINT): string;
    {* 获取设备名称}
    function GetDevLines(uDev: UINT): DWORD;
    {* 获取设备线路总数}
    function GetLineCaption(uDev, uLine: UINT): string;
    {* 获取线路名称}
    function GetLineChannels(uDev, uLine: UINT): DWORD;
    {* 获取线路通道总数}
    function GetLineHaveBalance(uDev, uLine: UINT): Boolean;
    {* 获取线路是否存在左右平行}
    function GetLineVolume(uDev, uLine: UINT): TCnVolume;
    {* 获取线路音量}
    function GetLineBalance(uDev, uLine: UINT): TCnBalance;
    {* 获取线路静音状态}
    function GetLineMute(uDev, uLine: UINT): Boolean;
    {* 获取线路静音状态}
    //设置参数
    function SetLineVolume(uDev, uLine: UINT; Volume: TCnVolume): Boolean;
    {* 获取线路音量}
    function SetLineBalance(uDev, uLine: UINT; iBalance: TCnBalance): Boolean;
    {* 获取线路左右平行}
    function SetLineMute(uDev, uLine: UINT; bMute: Boolean): Boolean;
    {* 获取线路通道总数}
    //属性
    property Devs: UINT read GetDevs;
    {* 获取设备总数}
    property CurDev: UINT read FDevice write SetDev;
    {* 设置/获取当前设备}
    property CurDevCaption: string read GetDevCap;
    {* 获取当前设备名称}
    property Lines: UINT read GetLines;
    {* 获取当前设备的线路总数}
    property CurLine: UINT read FLine write SetLine;
    {* 设置/获取当前线路}
    property CurLineCaption: string read GetLineCap;
    {* 获取当前线路名称}
    property CurLineChannels: DWORD read GetChannels;
    {* 获取当前线路通道总数}
    property Volume: TCnVolume read GetVolume write SetVolume;
    {* 设置/获取当前线路音量}
    property Balance: TCnBalance read GetBalance write SetBalance;
    {* 设置/获取当前线路左右平行}
    property IsMute: Boolean read GetIsMute write SetIsMute;
    {* 设置/获取当前线路静音状态}
    property OnVolumeChange: TCnMixVolumeEvent read FOnVolumeChange write FOnVolumeChange;
    property OnMuteChange: TCnMixMuteEvent read FOnMuteChange write FOnMuteChange;

2005-9-24 18:30 zjy
信箱应该是好的,这两天都有收到邮件。你遇到的发信错误是怎样的?
最近比较忙,等下周有空时,我再来提交新的控件。

2005-9-25 09:28 kendling
错误信息

账号“[email]kendling@21cn.com[/email]”发送邮件错误,错误代码:551;错误信息:551 <cnpack.org>, Domain not found.

Hi. This is the qmail-send program at redsaga.com.
I'm afraid I wasn't able to deliver your message to the following addresses.
This is a permanent error; I've given up. Sorry it didn't work out.

<[email]cnpack.zjy@gmail.com[/email]>:
64.233.163.114 failed after I sent the message.
Remote host said: 552 5.7.0 Illegal Attachment 36si234719nzk

2005-9-26 10:47 zjy
从错误信息看,是 gmail 信箱拒收了这个附件,有些奇怪:(

master 信箱是管理员公共信箱,会转发给每位管理员。由于垃圾邮件太多,我的信箱又转到 gmail 上帮我过滤,再转回 cnpack 上另一信箱收取。我刚才查了一下,转发到 gmail 之前是已经收到了的。

我简单看了下 Demo,做得很不错!

2005-10-16 14:09 illk
能否把录音的控制一并做进去呢....

2005-10-19 11:14 kendling
以后会增加的。

2005-10-25 12:02 Passion
Gmail好像容易拒收rar的附件?

2005-12-26 22:54 秋伊水
不错,支持!

2005-12-28 22:22 那一刀
不错,支持!

页: [1]
查看完整版本: 终于完成TCnVolumeCtrl


Powered by Discuz! Archiver 5.0.0  © 2001-2006 Comsenz Inc.