包目录(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;
