用Delphi轻松实现背景播放

原创 2003年01月15日 14:45:00

Delphi的VCL封装得很好,使用起来很方便,但在计算机世界中并没有完美的程序,本文介绍通过修改TMediaPlay代码实现在任意窗口播放

   作者:testnet            

日期:2002.11.28  

TMediaPlay中有一个Display属性,它是TWinControl类型,TWinControl是第一个拥有窗口句柄(Handle)的VCL类,TMediaPlay就是利用这个Handle所Handle的窗口区域播放。 如果我们把Handle指向桌面,哪TMediaPlay将会在桌面播放。与TCanvas不同的是,TWinControl的Handle的属性是只读的,并且GetHandle方法是静态方法,这说明,我们要Handle指向桌面只有两种方法

  1. 修改TWinControl,让Handle可写。
  2. 建立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);

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

源代码下载

android 服务的应用,在Activity中实现背景音乐播放

在Android应用程序里,有一种没有UI的类(android.app.Service)——Service。简单来说,Service是一个 background process(背景程序),通过背景程...
  • dddxxxx
  • dddxxxx
  • 2016年09月06日 11:28
  • 1354

安卓 实现背景音乐的播放与关闭

运用Services来实现 概述 Android中的服务和windows中的服务是类似的东西,服务一般没有用户操作界面,它运行于 系统中不容易被用户发觉,可以使用它开发如监控之类的程序。...
  • u013302768
  • u013302768
  • 2015年07月01日 17:21
  • 2762

android实现背景音乐播放

参考了一下网上比人写的,再使用的时候是放在新开的线程中来播放音乐的,后来发现每次进入Activity后就会重复开始一个音乐播放的声音。为了避免重复开启播放功能我在原来代码的基础上增加了单例模式。这样就...
  • liu1164316159
  • liu1164316159
  • 2014年10月23日 17:04
  • 13858

轻松实现部分背景半透明的呈现效果

实现一个简单的呈现/解散动画效果,当呈现时,呈现的主要内容和背景要明显区分,背景呈现一个半透明遮罩效果,透过背景可以看到下层 View Controller 的内容...
  • kmyhy
  • kmyhy
  • 2016年11月24日 17:16
  • 3164

android轻松实现背景的相关设置

第一种方法:在drawable文件夹中添加自己的mybg.xml文件,描述如: mybg.xml代码       xmlns:android="http://schemas.andro...
  • javanian
  • javanian
  • 2012年09月09日 20:13
  • 338

轻松换背景.rar

  • 2017年12月24日 22:22
  • 6.94MB
  • 下载

轻松换背景

  • 2013年12月01日 06:05
  • 3.82MB
  • 下载

轻松换背景 V1.8简体中文绿色版

  • 2012年10月26日 18:33
  • 2.83MB
  • 下载

轻松换背景带ALL字体.rar

  • 2017年01月25日 18:43
  • 45.18MB
  • 下载

轻松改变文件夹背景

  • 2008年03月12日 21:21
  • 51KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Delphi轻松实现背景播放
举报原因:
原因补充:

(最多只允许输入30个字)