• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

浅析桌面精灵的实现_Delphi

Delphi 搞代码 3年前 (2018-08-09) 163次浏览 已收录 0个评论

1.    软件的开发目的

想必大家对桌面精灵很熟悉吧,想不想自己编一个?笔者非常想编一个,其目的居然是为了取得美眉的喜欢,由此引出了我开发本软件的目的。如果读者有我同样的需求,那么请继续看下去,我将和你共同探讨这个问题。注意以下示例代码均用Delphi描述。

2.    实现原理

http://www.gaodaima.com/?p=65841浅析桌面精灵的实现_Delphi

其实桌面精灵的原理很简单,主要分以下几步:

1.获取桌面窗口的HDC。

    API 定义如下:

    GetDC函数用于获取指定窗口的图形设备描述表

    HDC GetDC(

    HWND hWnd   // 窗口句柄

    );

    例如:

    DeskTopDC:HDC;//定义桌面窗口的图形设备描述表句柄

    DeskTopDC:=GetDC(0);

    或者DeskTopDC:=GetDC(GetDesktopWindow());

2.创建一个内存位图,把桌面中将要绘图的区域,保存到内存位图中去,以便绘图完成时恢复桌面。为此我定义了一个函数:

    procedure savebackground(BKCanvas :TCanvas;//内存位图的画布对象

                        sp_w:integer;//要保存区域的宽度

                        sp_h :integer ;//要保存区域的高度

                        nx:integer;//要保存区域的X坐标

                        ny:integer);//要保存区域的Y坐标

3.将动画对象透明地拷贝到桌面的绘图区域,笔者用了一个GDIAPI函数方便地实现了此功能。

    定义如下:

    BOOL TransparentBlt(HDC hdcDest,//目标图形设备描述表句柄

                        int nXOriginDest,//绘图矩形的X坐标

                        int nYOriginDest,//绘图矩形的Y坐标

                        int nWidthDest,//绘图矩形的宽度

                        int hHeightDest,//绘图矩形的高度

                        HDC hdcSrc,//源图形设备描述表句柄

                        int nXOriginSrc,//源绘图矩形的X坐标

                        int nYOriginSrc,//源绘图矩形的Y坐标

                        int nWidthSrc,//源绘图矩形的宽度

                        int nHeightSrc,//源绘图矩形的高度

                        UINT crTransparent//设置透明色RGB(r,g,b)

                        );

    注意:

    Windows NT: 需要5.0或以上版本

    Windows: 需要 Windows 98 或 以上版本

    其它低版本不支持。

    此函数包含在msimg32.dll.

    笔者定义了一个tranbit函数来动态调用TransparentBlt函数,具体定义见第三节。

4.将第二步生成的内存位图拷贝到桌面。这样一帧动画就显示完成。不断循环1-4步,你就能看到连续的动画场景了。

3.具体代码

以下是一个演示程序,在DELPHI5.0+WINDOWS2000P中调试通过。创建一个窗体Form1,放上两个Image控件,命名为Image1,Image2,再放上一个Timer控件,命名为Timer1。准备两张位图,一张放入Image1,另一张放入Image2。笔者用了如下样式的位图(截取了一部分),你可以自己画动画对象,也可以借用别人的,笔者就是用微软画的图片。

从图片你可以看出,图片中包括了许多连续的动画帧,一张图片完成一个动作,如旋转一周等,每帧动画大小完全一样,除了动画对象其它像素用一种透明色填充。好了你可以看具体的代码了。

unit Unitmain;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  ExtCtrls, StdCtrls,mmsystem;

type

  TForm1 = class(TForm)

    Timer1: TTimer;//爆炸定时器

    Image1: TImage;//储存爆炸的图片

    Image2: TImage;//储存飞行器的图片

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

    DeskTopDC:HDC;//桌面窗口的图形设备描述表句柄

    stop:boolean;//控制循环的变量

    expnum:integer;//爆炸的当前次数

    procedure Explode(X:integer;Y:integer);//爆炸函数

    procedure shipmove(X:integer;Y:integer);//飞行器函数

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

//保存桌面背景

procedure savebackground(BKCanvas :TCanvas;

                        sp_w:integer;

                        sp_h :integer ;

                        nx:integer;

                        ny:integer);

var sc:TCanvas;

begin

  sc:=TCanvas.Create;

  try

    sc.Handle:=GetDC(0);

    bkcanvas.CopyRect( rect(0,0,sp_w, sp_h), sc,rect(nx, ny, nx+sp_w, ny+sp_h));

    ReleaseDC(0, sc.handle);

  finally

    sc.free;

  end;

end;

//透明拷贝图像函数

//静态调用API函数TransparentBlt

procedure tranbit(hdcDest:HDC;

                    nXOriginDest:integer;

                    nYOriginDest:integer;

                    nWidthDest:integer;

                    hHeightDest:integer;

                    hdcSrc:HDC;

                    nXOriginSrc:integer;

                    nYOriginSrc:integer;

                    nWidthSrc:integer;

                    nHeightSrc:integer;

                    crTransparent:UINT) ;

Var

    LibHandle:HWND;//动态连接库句柄

    //函数原型定义

    DllName:Procedure(hdcDest:HDC;

                    nXOriginDest:integer;

                    nYOriginDest:integer;

                    nWidthDest:integer;

                    hHeightDest:integer;

                    hdcSrc:HDC;

                    nXOriginSrc:integer;

                    nYOriginSrc:integer;

                    nWidthSrc:integer;

                    nHeightSrc:integer;

                    crTransparent:UINT);Stdcall;

begin

    //以下是静态调用dll中函数的例行公事

    LibHandle:=LoadLibrary(‘msimg32.dll’);

    if LibHandle<32 then

    begin

        MessageBox(Form1.Handle,’Not Found msimg32.dll’,’Error’,0);

        Exit;

    end;

    @DllName:=GetProcAddress(LibHandle,’TransparentBlt’);

    if @DllName=nil then

    begin

        MessageBox(Form1.Handle,’Not Found TransparentBlt in msimg32.dll’,’Error’,0);

        FreeLibrary(LibHandle);

        Exit;

    end;

    try

        TransparentBlt(hdcDest,

                    nXOriginDest,

                    nYOriginDest,

                    nWidthDest,

                    hHeightDest,

                    hdcSrc,

                    nXOriginSrc,

                    nYOriginSrc,

                    nWidthSrc,

                    nHeightSrc,

                    crTransparent);

    finally

        FreeLibrary(LibHandle);

    end;

end;

//爆炸函数

//在桌面的X,Y坐标处发生爆炸

procedure TForm1.Explode(X:integer;Y:integer);

var

    BitMapB : TBitMap;//保存桌面指定区域的内存位图

    w:integer;//一帧动画的宽度

    h:integer;//一帧动画的高度

    i:integer;

    j:integer;

begin

    BitMapB:=TBitMap.Create;

    try

        //动画位图为4*5=20帧

        w:=Image1.Width div 4;//计算每帧的宽度

        h:=image1.Height div 5;//计算每帧的高度

        //初始化内存为图的大小

        BitMapB.Height :=h;

        BitMapB.Width :=w;

        //保存桌面上指定区域的位图

        //注意,由于爆炸是在同一位置完成的,所以只要保存爆炸区域一次就行了。

        savebackground(BitMapB.canvas,w,h,X,Y);

        for i:=0 to 4 do

        begin

            for j:=0 to 3 do

            begin

                //把相应帧画到桌面上

                tranbit(DeskTopDC ,x,y,w,h,

                        image1.Canvas.Handle,j*w,i*h,w,h,RGB(208,2,178));

                Sleep(20);//显示速度太快,停顿20毫秒

                //恢复桌面

                bitblt(DeskTopDC,X,Y,w,h,BitMapB.Canvas.handle,0,0,srccopy);

            end;

        end;

    finally

        BitMapB.Free;

    end;

end;

//飞行器的飞行函数

//参数x,y指定飞行器飞行的目的地

procedure TForm1.shipmove(X:integer;Y:integer);

var

    w:integer;

    h:integer;

    i:integer;

    j:integer;

    k:integer;

    l:integer;

    BitMapB : TBitMap;

begin

    Randomize();

    BitMapB:=TBitMap.Create;

    try

        //动画位图为4*16-3帧空帧=61帧

        w:=Image2.Width div 4;

        h:=image2.Height div 16;

        BitMapB.Height :=h;

        BitMapB.Width :=w;

        k:=0;

        l:=0;

        while not stop do

            for i:=0 to 15 do

                for j:=0 to 3 do

                begin

                    if (i=15) and (i>0) then break;//如果是空帧就不画了

                //保存桌面上指定区域的位图

            //注意,由于飞行是在不同位置完成的,所以要保存即将被绘图的桌面区域

                    savebackground(BitMapB.canvas,w,h,k,l);

    tranbit(DeskTopDC ,k,l,w,h,image2.Canvas.Handle,j*w,i*h,w,h,RGB(208,2,178));

                    sleep(10);

                    bitblt(DeskTopDC,k,l,w,h,BitMapB.Canvas.handle,0,0,srccopy);

                    if(k<x)then k:=k+1;

                    if(l<y)then l:=l+1;

                    if timer1.Enabled =false then

                    if(k>x-10)then//到达目的地就停止飞行,并引爆炸弹

                    begin

                        stop:=true;

                        timer1.Enabled :=true;//炸弹引爆器

                    end;

            end;

    finally

        BitMapB.Free;

    end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

    x,y:integer;

begin

    

    if(expnum = 0) then

    begin

        Explode(screen.width div 2-20,screen.Height div 2-20);

        sndPlaySound(‘explosion.wav’,SND_NOSTOP);

        expnum:=expnum+1;

    end

    else if expnum<10 then//爆炸最多10次

    begin

        //产生随机位置

        x:=Random(screen.Width-100);

        y:=Random(Screen.Height-100);

        Explode(x,y);//爆炸

        sndPlaySound(‘explosion.wav’,SND_NOSTOP);//播放爆炸声音

        expnum:=expnum+1;

    end

    else

    begin

        stop:=true;

        timer1.Enabled :=false;

        close();

    end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

    DeskTopDC:=GetDC(0);

    chdir(ExtractFilePath(application.ExeName));

    stop:=false;

    expnum:=0;

    //飞行器开始飞行,目的地为屏幕中央

    self.shipmove(screen.width div 2,screen.Height div 2);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

    stop:=true;

    Timer1.Enabled :=false;

    ReleaseDC(0, DeskTopDC);

end;

end.

4.结束语

正如我们所希望的那样:一个飞行器飞入桌面,慢慢向屏幕中央靠近,当它到达目的地时就爆炸了,并引出一连串的爆炸。程序顺利地完成了我们的希望,但是程序还有许多不足,最好用directx来完成动画,这样效果可能会更好。如谁对其感兴趣的话,发E_MAIL给我,我们一起探讨。(E_MAIL:[email protected]

欢迎大家阅读《浅析桌面精灵的实现_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址