|
| 盒子资源分类 |
![]() |
|
|
|
|
| TWindowsMediaPlayer Control Interface |
![]() |
| 关键字：TWindowsMediaPlayer WMPLib_TLB 媒体播放机 |
| 来 自：原创 |
| 平 台：Win2k/XP/NT,Win2003 |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2006/9/1 |
| 发布者：ruralboy |
发布时间：2006/9/1 |
| 编辑器：DELPHI6 |
语 种：简体中文 |
| 分 类：效果与媒体 |
下载浏览：2749/18810 |
|
|
|
|
|
这个文件包里包含三个文件,它们分别是:
WMPLib_TLB.pas
U_WMP.pas
OleCtrls.pas
WMPLib_TLB.Pas 是 windows media player 控件的封装文件,使用 Delphi 的 ActiveX 封装功能即可生成该文件.但我这个文件比较好,它的特别之处是使用最新的 Delphi 2006 生成的,它能提供更全面的接口(功能).
u_WMP.pas 是我写的一个用于封装 WMPLib_TLB.pas 里面的 TWindowsMediaPlayer 的单元,它能让你开发 TWindowsMediaPlayer 有如 TMediaPlayer 一样那么轻松.
OleCtrls.pas 这是 Delphi 的底层文件,它同样是从 Delphi 2006 中取出来的.这是一个最好的 OleCtrls.pas .它能让你的 TWindowsMediaPlayer 轻松的改变 WindowRect.
该类封装了 Windows Media Player 控件的一些基本功能.
使用这个单元来开发 Windows Media Player 控件将倍感
更加轻松.
详细注释请看 public 内容.
注意:
public 提供了控件的接口 WMP,如果你不是高手:), 请不要使用这个接口.
关于 OnMediaEnded 事件的缺陷, OnMediaEnded 事件指一个剪辑被播放完毕,但是你不能在该事件中增加控件的动作代码, 比如 Play 等,或者指定一个新的剪辑,都是不行的.
也许你可以使用一个 Timer,当这个事件被触发之后启动 Timer, 然后在 Timer 一秒钟之后触发的事件中写你的动作代码. |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论8条
当前显示最后6条评论
|
| ruralboy |
2006/9/9 10:28:01 |
很简单的,你在 Uses 那里引用单元 u_WMP.pas,然后就可以开始写代码了.
在全局变量那里加一个控件指针: Player: TWMP;
然后在 FormCreate 过程建立一个实例然后就可以使用了:
var
ok: boolean;
begin
Player := TWMP.Create(ok);
end;
在 ButtonClick 过程写 Player.OpenPlay('一个文件路径');
电影播放窗口,可以在 Form 上放一个 TPanel ,然后在建立 Player 实例之后写:
Player.Display := Panel1; |
| arsser2 |
2006/9/13 14:35:34 |
| 很好 |
| arsser2 |
2006/9/15 13:19:53 |
| delphi7生成的tlb有大问题,很多接口函数调用的时候报错,所以,这个文件还是很有价值的. |
| zhang321 |
2006/9/19 13:49:11 |
| 我想做一个播放列表，然后循环播放没、不知道如何做，哪位能给思路。。。 |
| hihisky |
2007/6/10 7:10:06 |
| 的确很不错啊，谢谢啦 |
| syypzm_1004 |
2008/10/25 18:10:20 |
| 真的很方便，谢谢！ |
| 我要发表评论 |
查看全部评论 |
|
|
|
