用Delphi轻松实现背景播放
2003-01-15 14:45
369 查看
Delphi的VCL封装得很好,使用起来很方便,但在计算机世界中并没有完美的程序,本文介绍通过修改TMediaPlay代码实现在任意窗口播放
作者:testnet
日期:2002.11.28
TMediaPlay中有一个Display属性,它是TWinControl类型,TWinControl是第一个拥有窗口句柄(Handle)的VCL类,TMediaPlay就是利用这个Handle所Handle的窗口区域播放。 如果我们把Handle指向桌面,哪TMediaPlay将会在桌面播放。与TCanvas不同的是,TWinControl的Handle的属性是只读的,并且GetHandle方法是静态方法,这说明,我们要Handle指向桌面只有两种方法
修改TWinControl,让Handle可写。
建立TWinControl子类,并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。
其中第二种方法比较好.
TSurpriseDisplay=class(TWinControl)
protected
function GetHandle:HWnd;virtual;
public
property Handle: HWnd read GetHandle;
end;
其中GetHandle被定义为virtual,这样可以方便继承。因为这里只是隐藏了TWinControl.GetHandle方法,所以当把这个子类赋给TMediaPlay.Display时,它会被强制转换成父类,并调用其GetHandle方法,这样达不到我们的目的。所以我对TMediaPlay作了一点修改,增强其功能,修改后的TMediaPlay完全与原来的兼容.
原代码:
{setting a TWinControl to display video devices' output}
procedure TMediaPlayer.SetDisplay( Value: TWinControl );
var
AWindowParm: TMCI_Anim_Window_Parms;
begin
if (Value <> nil) and MCIOpened and FHasVideo then
begin
FFlags := mci_Wait or mci_Anim_Window_hWnd;
AWindowParm.Wnd := Longint(Value.Handle);
................
end;
修改后
{setting a TWinControl to display video devices' output}
procedure TMediaPlayer.SetDisplay( Value: TWinControl );
var
AWindowParm: TMCI_Anim_Window_Parms;
wnd:HWND;
begin
if (Value <> nil) and MCIOpened and FHasVideo then
begin
FFlags := mci_Wait or mci_Anim_Window_hWnd;
//************************************************************
if Value is TSurpriseDisplay then
wnd:=TSurpriseDisplay(Value).Handle
else
wnd:=Value.Handle;
//************************************************************
AWindowParm.Wnd := Longint(wnd);
............
end;
虽然这种修改并不优美,但能最大限度地保证兼容。别一种修改方法是把TMediaPlay.Display改成TSurpriseDisplay类型,这样可以保证安全。
使用方法:
使用桌面播放
只要在GetHandle中返回桌面句柄,并赋值给Display.
function TSurpriseDisplay.GetHandle:HWnd;
begin
Result:=GetDesktopWindow;
end;
mp.Display:=TSurpriseDisplay.Create(self);
用记事本播放
记得我在TSurpriseDisplay的GetHandle中声明为virtual吗,现在开始发挥它的威力了,写一个类继承自TSurpriseDisplay,覆盖GetHandle方法,返回记事本句柄。
TNotepadDisplay=class(TSurpriseDisplay)
private
wnd:Hwnd;
protected
function GetHandle:HWnd;override;
end;
function TNotepadDisplay.GetHandle:HWnd;
begin
if wnd=0 then
begin
Winexec('notepad.exe',1);
wnd:=FindWindow('Notepad','无标题 - 记事本');
end;
result:=wnd;
end;
mp.Display:=TNotepadDisplay.Create(self);
类似地还可以实现各种播放方式。
源代码下载
作者:testnet
日期:2002.11.28
TMediaPlay中有一个Display属性,它是TWinControl类型,TWinControl是第一个拥有窗口句柄(Handle)的VCL类,TMediaPlay就是利用这个Handle所Handle的窗口区域播放。 如果我们把Handle指向桌面,哪TMediaPlay将会在桌面播放。与TCanvas不同的是,TWinControl的Handle的属性是只读的,并且GetHandle方法是静态方法,这说明,我们要Handle指向桌面只有两种方法
修改TWinControl,让Handle可写。
建立TWinControl子类,并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。
其中第二种方法比较好.
TSurpriseDisplay=class(TWinControl)
protected
function GetHandle:HWnd;virtual;
public
property Handle: HWnd read GetHandle;
end;
其中GetHandle被定义为virtual,这样可以方便继承。因为这里只是隐藏了TWinControl.GetHandle方法,所以当把这个子类赋给TMediaPlay.Display时,它会被强制转换成父类,并调用其GetHandle方法,这样达不到我们的目的。所以我对TMediaPlay作了一点修改,增强其功能,修改后的TMediaPlay完全与原来的兼容.
原代码:
{setting a TWinControl to display video devices' output}
procedure TMediaPlayer.SetDisplay( Value: TWinControl );
var
AWindowParm: TMCI_Anim_Window_Parms;
begin
if (Value <> nil) and MCIOpened and FHasVideo then
begin
FFlags := mci_Wait or mci_Anim_Window_hWnd;
AWindowParm.Wnd := Longint(Value.Handle);
................
end;
修改后
{setting a TWinControl to display video devices' output}
procedure TMediaPlayer.SetDisplay( Value: TWinControl );
var
AWindowParm: TMCI_Anim_Window_Parms;
wnd:HWND;
begin
if (Value <> nil) and MCIOpened and FHasVideo then
begin
FFlags := mci_Wait or mci_Anim_Window_hWnd;
//************************************************************
if Value is TSurpriseDisplay then
wnd:=TSurpriseDisplay(Value).Handle
else
wnd:=Value.Handle;
//************************************************************
AWindowParm.Wnd := Longint(wnd);
............
end;
虽然这种修改并不优美,但能最大限度地保证兼容。别一种修改方法是把TMediaPlay.Display改成TSurpriseDisplay类型,这样可以保证安全。
使用方法:
使用桌面播放
只要在GetHandle中返回桌面句柄,并赋值给Display.
function TSurpriseDisplay.GetHandle:HWnd;
begin
Result:=GetDesktopWindow;
end;
mp.Display:=TSurpriseDisplay.Create(self);
用记事本播放
记得我在TSurpriseDisplay的GetHandle中声明为virtual吗,现在开始发挥它的威力了,写一个类继承自TSurpriseDisplay,覆盖GetHandle方法,返回记事本句柄。
TNotepadDisplay=class(TSurpriseDisplay)
private
wnd:Hwnd;
protected
function GetHandle:HWnd;override;
end;
function TNotepadDisplay.GetHandle:HWnd;
begin
if wnd=0 then
begin
Winexec('notepad.exe',1);
wnd:=FindWindow('Notepad','无标题 - 记事本');
end;
result:=wnd;
end;
mp.Display:=TNotepadDisplay.Create(self);
类似地还可以实现各种播放方式。
源代码下载
相关文章推荐
- 用Delphi轻松实现背景播放
- 自己编程实现更改电脑桌面背景并同时播放音乐
- delphi 无代码实现背景透明及窗体异形方法及原理
- Android视频背景,动态背景,Android用视频做背景的轻松实现
- android 服务的应用,在Activity中实现背景音乐播放
- Android动画背景图自动播放的实现
- PPT2010中轻松实现PPT自动循环播放
- Android开发实现项目背景布局播放视频
- PowerPoint轻松实现列表播放功能
- android 服务的应用,在Activity中实现背景音乐播放
- Delphi中实现设置TEdit透明背景图片效果 本文来自Delphi之窗
- android 服务的应用,在Activity中实现背景音乐播放
- Photoshop CS镜头模糊滤镜:轻松实现背景虚化
- Android animation 动画背景图自动播放的实现
- Android animation 动画背景图自动播放的实现和不能播放问题解决
- Android animation 动画背景图自动播放的实现
- 用Delphi+DirectShow实现的视频播放器,可用于游戏片头播放
- Android animation 动画背景图自动播放的实现
- Android动画背景图自动播放的实现
- Android 仿QQ动态背景登录,Android用视频做背景的轻松实现