文件名称:DELPHI音频播放音量调节
文件大小:16KB
文件格式:RAR
更新时间:2022-03-05 19:59:29
音频播放 音量调节
包目录(MyMMs): 包资源如下: MyMMs.dcu //最终引用 MyMMsPackage.bpl //安装包 包安装(无需编译,直接安装): 将目录(MyMMs)复制到目标安装目录 Delphi\菜单\Component\Install Packages\...选择包目录中的包文件 .\MyMMsPackage.bpl 添加路径: Delphi\菜单\Tools\Options\Environment Options\Delphi Optioins\Library\Library path: 添加包目录 在工程中单元中引用: uses MyMMs 功能列表: SetMasterVolume(iVol:Integer); //设置主音量(iVol.音量0-100) SetMasterMute(bMute:Boolean); //设置静音(bMute:Ture.静音/False.有音) //创建播放器: Player:TMyPlayer; Player:=TMyPlayer.Create; //播放文件: function TMyPlayer.PlayFile(filename:WideString):Boolean;//直接播放文件 function TMyPlayer.SetFile(filename:WideString):Boolean;//设置播放文件 procedure TMyPlayer.Play;//播放 procedure TMyPlayer.Stop;//停止 procedure TMyPlayer.Close;//关闭 procedure TMyPlayer.Pause;//暂停 procedure TMyPlayer.SetVolume(volume:Integer);//设置音量 procedure TMyPlayer.SetPosition(Position:Integer);//定位播放 function TMyPlayer.GetPosition:Integer;//获取当前位置 procedure TMyPlayer.SetStereo(source: Integer);//设置立体声(0.stereo,1.Left,2.Right,x.average) //释放播放器: if (Assigned(Player)) or (Player<>nil) then begin Player.Close; FreeAndNil(Player); end;
【文件预览】:
MyMMs
----MyMMsPackage.bpl(27KB)
----MyMMs.dcu(17KB)
----安装使用说明.txt(1KB)