Delphi版俄罗斯方块-前奏

2022-09-24 07:46:54

前言

基础知识讲了很多，但是并没有串联起来，所以我最近一直在准备个小项目，但是这个项目的要求不含有数据库部分，也就是数据持久存储的功能，此外不能含有网络功能，它只是对基础知识的一个总结，最后一点是这个项目可以后期进行扩展，加上网络和数据库部分，所以最终选择俄罗斯方块这个小游戏作为基础知识总结的结课项目，因为这个小游戏可以扩展成为双人或者多人对战，同时保存每个人的对战信息

素材准备

我们的课程一直使用的是VCL，VCL原生的窗口太丑，所以需要做一点美化,准备一些图片，不至于让做出来的东西自己都不想看

Delphi版俄罗斯方块-前奏

这张图片是用来画窗口的，它将来的功能就是将整个游戏窗口划分为不同的功能区块，需要注意的是它的背景是透明的，至于大小到时候使用代码对图片进行切割，最终可以让我们绘制任意大小的窗口，本来就没什么时间，加上自己数学又不好，这个切边的问题让我鼓捣好几天.....，具体的计算方式如下：

Delphi版俄罗斯方块-前奏

Delphi版俄罗斯方块-前奏

这张图片是用于拼装图形的，同样的是代码进行切割，每一个方块的大小为32*32像素

Delphi版俄罗斯方块-前奏

这张图片有意思了，用于经验条显示的，也就是随着玩家消除的行数增加，经验条也增加，当经验条满了之后则进行升级，我们这里的升级需要做两个事情，一个是增加方块的下落速度，另一个是更换整个游戏的背景，当然今天用不到这张图

代码编写

为了后期方便扩展，我们需要整理出一个比较规范的代码编写，因为我并不清楚Delphi实际开发的情况是什么样子的，所以我沿用了Java代码设计的思路，我想在这方面每个语言都应该是相同的，我将整个项目划分为了视图、业务和数据，存放的方式以单元为单位

数据单元

这个单元目前来讲只需要存放一个类，用于存储方块图形数据

  • 我之所以将初始化图形的数据放在initialization块内，主要是我想通过类方法直接调用，而在类内部貌似没有办法定义类似于类方法的类变量

  • getRandomSquare函数返回值的问题，它的返回值是一个数组，但是Delphi里面貌似没有办法直接返回数组，所以我将其定义为了一个类型，在调用该方法的时候用于接收的变量类型为uEntity.TArrayPoint。

unit uEntity;

interface

uses
    Winapi.Windows, System.Generics.Collections;

type
    TArrayPoint = array[0..3] of TPoint;

    TGameData = class
    private
    public
        class function getRandomSquare(RandowIndex: Integer): TArrayPoint;
    published
    end;

implementation
//此处定义的变量在其他单元无法引用
var
    ArrayPoint: TArrayPoint;
    TypeConfig: TList<TArrayPoint>;
{ TGameData }

{*------------------------------------------------------------------------------

  根据指定的索引获取一个方块
  @param RandowIndex    索引
  @return   方块的做信息
-------------------------------------------------------------------------------}
class function TGameData.getRandomSquare(RandowIndex: Integer): TArrayPoint;
begin

    Result := TypeConfig.Items[RandowIndex];
    Exit;
end;

initialization
    //组装俄罗斯方块的7中图形，这里面存储的实际是方块的x，y坐标
    TypeConfig := TList<TArrayPoint>.create;
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(5, 0);
    ArrayPoint[3] := TPoint.create(6, 0);

    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(5, 0);
    ArrayPoint[3] := TPoint.create(4, 1);
    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(5, 0);
    ArrayPoint[3] := TPoint.create(3, 1);
    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(5, 0);
    ArrayPoint[2] := TPoint.create(3, 1);
    ArrayPoint[3] := TPoint.create(4, 1);
    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(5, 0);
    ArrayPoint[2] := TPoint.create(4, 1);
    ArrayPoint[3] := TPoint.create(5, 1);
    TypeConfig.Add(ArrayPoint);

    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(5, 0);
    ArrayPoint[3] := TPoint.create(5, 1);
    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(4, 1);
    ArrayPoint[3] := TPoint.create(5, 1);
    TypeConfig.Add(ArrayPoint);

end.

业务功能单元

这个单元主要存放，方块控制的一些功能，例如绘制方块、方块下落等等

其中最复杂的一个方法就属于CreateWindow了，其实它并不复杂，只是稍微有点麻烦，我们需要切割图片，所以需要计算一下切割的坐标是多少

DrawImage(img, MakeRect(x, y,Width, Height), ix, iy, iw ,ih , UnitPixel);

这个函数稍微复杂一点，不过并不是太难理解，这个也是我们整个游戏界面的核心函数，它的具体含义是将图片的某一部分绘制到目标窗口的指定位置

x, y,Width, Height：为图片在窗口上显示的x,y坐标以及大小

ix, iy, iw ,ih：为获取图片的那一部分

unit UnitGameService;

interface

uses
    uEntity, System.Generics.Collections, Vcl.Imaging.pngimage, Winapi.Windows,
    Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
    Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
    Vcl.ExtCtrls, Winapi.GDIPOBJ, Winapi.GDIPAPI;

type
    TGameService = class
    public
        procedure DrawBackground(dc: HDC; x, y, width, Height: Integer);
        //绘制窗口
        procedure CreateWindow(dc: HDC; x, y, Width, Height: Integer);
        //绘制图形
        procedure DrawActWithImg(dc: HDC; speed: Integer; ArrayPoint: uEntity.TArrayPoint);
    end;

implementation

{ TGameService }

procedure TGameService.CreateWindow(dc: HDC; x, y, Width, Height: Integer);
var
    img: TGPImage;
    Graphics: TGPGraphics;
const
    BorderWidth: Integer = 7;
begin
    Graphics := TGPGraphics.Create(dc);

    img := TGPImage.Create('D:\\Downloads\\BaiduNetdiskDownload\\俄罗斯方块\\Graphics\\window\\window.png');
    //左上角
    Graphics.DrawImage(img, MakeRect(x, y, BorderWidth, BorderWidth), 0, 0, BorderWidth, BorderWidth, UnitPixel);

    //左侧竖线
    Graphics.DrawImage(img, MakeRect(x, y + BorderWidth, BorderWidth, Height - BorderWidth), 0, BorderWidth, img.GetWidth - (img.GetWidth - BorderWidth), img.GetHeight - BorderWidth * 2, UnitPixel);

    //左下角
    Graphics.DrawImage(img, MakeRect(x, y + Height, BorderWidth, img.GetHeight), 0, img.GetWidth - BorderWidth, BorderWidth, img.GetHeight, UnitPixel);

    //底部中线
    Graphics.DrawImage(img, MakeRect(x + BorderWidth, y + Height, Width - BorderWidth, img.GetHeight), BorderWidth, img.GetHeight - BorderWidth, img.GetWidth - BorderWidth * 2, img.GetHeight, UnitPixel);

    //右下角
    Graphics.DrawImage(img, MakeRect(x + Width, y + Height, img.GetWidth, img.GetHeight), img.GetWidth - BorderWidth, img.GetHeight - BorderWidth, img.GetWidth, img.GetHeight, UnitPixel);
    //右侧竖线
    Graphics.DrawImage(img, MakeRect(x + Width, y + BorderWidth, img.GetWidth, Height - BorderWidth), img.GetWidth - BorderWidth, BorderWidth, img.GetWidth, img.GetHeight - BorderWidth * 2, UnitPixel);

    //右上角
    Graphics.DrawImage(img, MakeRect(x + Width, y, img.GetHeight, BorderWidth), img.GetWidth - BorderWidth, 0, img.GetHeight, BorderWidth, UnitPixel);
    //顶部中线
    Graphics.DrawImage(img, MakeRect(x + BorderWidth, y, Width - BorderWidth, BorderWidth), BorderWidth, 0, img.GetWidth - BorderWidth * 2, BorderWidth, UnitPixel);

    //中间
    Graphics.DrawImage(img, MakeRect(x + BorderWidth, y + BorderWidth, Width - BorderWidth, Height - BorderWidth), BorderWidth, BorderWidth, img.GetWidth - BorderWidth * 2, img.GetHeight - BorderWidth * 2, UnitPixel);
    Graphics.Free;
end;

type
    TArrayPoint = array[0..3] of TPoint;

procedure TGameService.DrawActWithImg(dc: HDC; speed: integer; ArrayPoint: uEntity.TArrayPoint);
var
    img: TGPImage;
    Graphics: TGPGraphics;
const
    //每个方块的大小
    SIZE: integer = 32;
var
    //显示方块的索引
    ActIndex: Integer;
var
    x, y: integer;
var
    i: Integer;
begin
    ActIndex := 1;
    img := TGPImage.Create('D:\Downloads\BaiduNetdiskDownload\俄罗斯方块\Graphics\game\方块.jpg');
    Graphics := TGPGraphics.Create(dc);
    for i := Low(ArrayPoint) to High(ArrayPoint) do
    begin
        // left是左上角的x坐标
        x := ArrayPoint[i].x * SIZE;
        // Top是左上角的y坐标
        y := ArrayPoint[i].y * SIZE;

        Graphics.DrawImage(img, MakeRect(x, y + speed, SIZE, SIZE), ActIndex * 32, 0, img.GetWidth - 32 * 8, img.GetHeight, UnitPixel);
    end;

    Graphics.Free;

    img.Free;
end;

procedure TGameService.DrawBackground(dc: HDC; x, y, width, Height: Integer);
var
    Graphics: TGPGraphics;
    Img: TGPImage;
begin
    Img := TGPImage.Create('D:\\Downloads\\BaiduNetdiskDownload\\俄罗斯方块\\Graphics\\background\\016-ForestTown02.jpg');

    Graphics := TGPGraphics.Create(dc);

    Graphics.DrawImage(Img, MakeRect(x, y, width, Height), 0, 0, width, Img.GetHeight, UnitPixel);

    Graphics.Free;
end;

end.

视图

其实所谓的视图也就是界面部分的代码，这里主要是调用以及处理一些事件的代码

核心代码

procedure TForm1.Button3Click(Sender: TObject);
var
    ArrayPoint: uEntity.TArrayPoint;
    GameService: TGameService;
begin
    Form1.Repaint;
    ArrayPoint := TGameData.getRandomSquare(TPublicUtil.GetRandomNum(0, 6));
    GameService := TGameService.create();
    //绘制背景
    GameService.DrawBackground(Image1.Canvas.Handle, 0, 0, 700, 600);
    //绘制窗口
    GameService.CreateWindow(Image1.Canvas.Handle, 20, 20, 400, 450);
    //绘制图形
    GameService.DrawActWithImg(Image1.Canvas.Handle, 100, ArrayPoint);

end;

工具函数单元

该单元我一般用来存放一些不好分类或者调用频率比较高的函数，一般是类方法(换成Java的说法是静态方法，我不知道在Delphi中具体的称呼)

unit uUtil;

interface

type
    TPublicUtil = class
    public
        class function GetRandomNum(Min, Max: Integer): Integer;
    end;

implementation

{ TPublicUtil }
{*------------------------------------------------------------------------------
  随机产生一个指定范围内的整数

  @param Min  最小值
  @param Max  最大值
  @return
-------------------------------------------------------------------------------}
class function TPublicUtil.GetRandomNum(Min, Max: Integer): Integer;
begin

    randomize;
    Result := random(Max) mod (Max - Min + 1) + Min;

    Exit;
end;



end.

最后

来一张效果图，我个人觉得还不错，虽然功能还没有做完

Delphi版俄罗斯方块-前奏

Delphi版俄罗斯方块-前奏

上一篇：delphi xe5 fastreport4.14 中文很多时换行不正确


下一篇：winform子窗口与父窗口的交互-使用委托与事件