简单封装 Delphi 的 DirectX类

最新推荐文章于 2018-02-27 09:52:17 发布

爱蹄子的羊头

最新推荐文章于 2018-02-27 09:52:17 发布

阅读量1.9k

点赞数

文章标签： delphi integer direct3d function destructor constructor

本文链接：https://blog.csdn.net/warrially/article/details/7938672

版权

这篇博客介绍了如何在Delphi中简单封装DirectX类，用于创建渲染器。通过构造函数和析构函数，实现了对Direct3D的初始化和释放。文章详细展示了窗体代码中的关键部分，为Delphi开发者提供了实现图形渲染的指导。

摘要由CSDN通过智能技术生成

var
  CreatorRenderer  : TCreatorRenderer;
  Form1: TForm1;

窗体代码:

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 创建
  CreatorRenderer := TCreatorRenderer.Create();
  CreatorRenderer.CreateDevice(self.Handle,self.Width,Self.Height ,true);

  // 开启定时器
  Timer1.Enabled := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CreatorRenderer.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  CreatorRenderer.BeginRender();
  CreatorRenderer.EndRender();
end;

// 下面是封装的渲染器类

// 渲染器类
// warrially
unit xCreatorRenderer;

interface
  uses Direct3D9, D3DX9, Windows;
type
  TCreatorRenderer = class(TObject)
    private
      // D3D基本参数
      m_d3dpp   : D3DPRESENT_PARAMETERS;

    private class var
      m_pDevice : IDirect3DDev