标签：TWindowsMediaPlayer string 控件 Delphi controls 音频文件 播放 WindowsMediaPlayer
Delphi自带的TMediaPlay控件不能播放网络路径的音频文件，上网查了一下，比较简单的就是使用windows系统自带的WindowsMediaPlay控件。
1. 导入WindowsMediaPlay控件
我用的Delphi XE8，其他的也大同小异。
Component -> Import Component -> Import ActiveX Control -> 找到Windows Media Play ->
默认选择就可以 ->
四个选项
1 创建一个Unit
2 安装一个存在的包中
3 安装到一个新包中
4 直接将Unit添加到程序中
这个的选择，主要是看你自己的需求，需要看到控件，就选择2，3。直接需要Unit，就选择1，4。
2. WindowMediaPlay的基本使用
URL:string 可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean 全屏显示
stretchToFit:boolean 非全屏状态时是否伸展到最佳大小
uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer 当前控件状态 3：正在播放 2：暂停 1：已停止
状态变化时会触发OnStatusChange事件
WindowsMediaPlayer.controls.play; 播放
WindowsMediaPlayer.controls.stop; 停止
WindowsMediaPlayer.controls.pause; 暂停
WindowsMediaPlayer.controls.currentPosition：Double 当前播放进度
WindowsMediaPlayer.controls.currentPositionString：String 时间格式的字符串 "0:32 "
WindowsMediaPlayer.currentMedia.duration Double 总长度
WindowsMediaPlayer.currentMedia.durationString：string 时间格式的字符串 "4:34 "
WindowsMediaPlayer.settings.volume:Integer 音量 （0-100）
WindowsMediaPlayer.settings.balance:Integer 声道，通过它应该可以进行立体声、 左声道、右声道的控制。
标签：TWindowsMediaPlayer,string,控件,Delphi,controls,音频文件,播放,WindowsMediaPlayer 来源： https://blog.51cto.com/470462/2481659
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。