用Delphi轻松实现背景播放

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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);

类似地还可以实现各种播放方式。

源代码下载

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航