Delphi 与 DirectX 之 DelphiX(1): 安装测试

最新推荐文章于 2024-08-22 10:08:37 发布
最新推荐文章于 2024-08-22 10:08:37 发布
阅读量209 收藏 1
点赞数
文章标签： 操作系统
原文链接：https://my.oschina.net/hermer/blog/319364
版权

为什么80%的码农都做不了架构师？>>>   hot3.png


测试 Demo 下载: http://files.cnblogs.com/del/DelphiX_1.rar (在 Delphi 2007 和 2009 下均编译通过)

其实按照 这里 的介绍, 比下载来的快, 也不需要下载.

DirectX, 微软很久的技术了; 从 Windows Vista 开始, DirectX 已经是微软操作系统的界面基础了.

在 Delphi 下使用 DirectX 比较流行的有下面四种方式:
DelphiX
DSPack
Asphyre (?)
Delphi DirectX

DelphiX 是最早的(十年了), 也是最简单的, 也是和 Delphi 结合最密切的;
但为了入手简单, 准备从 DelphiX 开始, 先有个宏观概念, 同时也学习一下 DelphiX 构造手法;
不过, 我想最终使用的应该是: Delphi DirectX.

DelphiX 从 2000.07.17 就没在更新过, 不过另有热心的支持者一直维护着, 甚至让它支持了 Delphi 2009.
我现在使用的版本是从这里下载的: http://www.micrel.cz/Dx/
使用了它的自动安装文件: http://www.micrel.cz/Dx/download/install.exe

尽管介绍是支持 Delphi 2009, 我还是发现了很多问题; 经过修正最后在 2009 下能用了.
但很多例子并不支持 2009, 因为在 2007 下要稳定得多, 所以选择在 Delphi 2007 下学习 DelphiX; 同时争取让代码兼容 2009.

为了保证运行所有的例子, 还需要把 DelphiXcfg.inc 的倒数第二行的 {.$Define D3DRM} 改为 {$Define D3DRM}
另外, 因为有些日文的注释乱码, 也会让有些例子运行不了, 修改下乱码的地方即可.
目前我抽样测试了一些, 都没问题了.

总感觉学晚了, 争取尽快超越它!

先从网上学了个例子, 作为开盘测试吧:

本例效果图:

26153112_VGHZ.gif

代码文件: 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DXDraws, StdCtrls, DXClass;

type
  TForm1 = class(TDXForm)
    DXDraw1: TDXDraw;
    DXTimer1: TDXTimer;
    DXImageList1: TDXImageList;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure DXDraw1Initialize(Sender: TObject);
    procedure DXDraw1Finalize(Sender: TObject);
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
  private
    procedure CalculateTables;
    procedure PlotPoint(XCenter, YCenter, Radius, Angle: Word);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  SineMove: array[0..255] of integer;
  CosineMove: array[0..255] of integer;
  SineTable: array[0..449] of integer;
  CenterX, CenterY: Integer;
  x: Word = 0;
  y: Word = 0;

procedure TForm1.CalculateTables;
var
  wCount: Word;
begin
  for wCount := 0 to 255 do
  begin
    SineMove[wCount] := round( sin( pi*wCount/128 ) * 45 );
    CosineMove[wCount] := round( cos( pi*wCount/128 ) * 60 );
  end; 
  for wCount := 0 to 449 do
  begin
    SineTable[wCount] := round( sin( pi*wCount/180 ) * 128);
  end;
end;

procedure TForm1.PlotPoint(XCenter, YCenter, Radius, Angle: Word);
var 
  a, b : Word;
begin
  a := ( Radius * SineTable[90 + Angle]);
  asm
    sar a,7
  end;
  a := CenterX + XCenter + a;
  b := ( Radius * SineTable[Angle] );
  asm
    sar b,7
  end;
  b := CenterY + YCenter + b;
  if (a < Width ) and ( b < Height ) then
  begin
    DXImageList1.Items[0].Draw(DXDraw1.Surface, a, b, 0 );
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DXDraw1.Align := alClient;
  CenterX := Width div 2;
  CenterY := Height div 2;
  CalculateTables;
end;

procedure TForm1.DXDraw1Finalize(Sender: TObject);
begin
  DXTimer1.Enabled := False;
end;

procedure TForm1.DXDraw1Initialize(Sender: TObject);
begin
  DXTimer1.Enabled := True;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
const
  IncAngle = 12;
  XMove = 7;
  YMove = 8;
var
  CountAngle : Word;
  CountLong : Word;
  IncLong :Word;
begin
  if not DXDraw1.CanDraw then exit;
  IncLong := 2; 
  CountLong := 20; 
  DXDraw1.Surface.Fill(0);

  repeat
    CountAngle := 0;
    repeat
      PlotPoint(CosineMove[(x + (200 - CountLong)) mod 255],
                SineMove[(y + (200 - CountLong)) mod 255], CountLong, CountAngle);
      Inc(CountAngle, IncAngle);
    until CountAngle >= 360;

    inc(CountLong, IncLong);
    if (CountLong mod 3) = 0 then 
    begin
      inc(IncLong);
    end;
  until CountLong >= 270;

  x := XMove + x mod 255;
  y := YMove + y mod 255;

  with DXDraw1.Surface.Canvas do
  begin
    Brush.Style := bsClear; 
    Font.Color := clWhite;
    Font.Size := 12;
    Textout(0, 0, 'FPS: '+inttostr( DXTimer1.FrameRate)); { 录制动画是丢了这句 }
    Release;
  end;
  DXDraw1.Flip;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then Close;
end;

end.

窗体文件: 
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 206
  ClientWidth = 339
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object DXDraw1: TDXDraw
    Left = 8
    Top = 8
    Width = 249
    Height = 177
    AutoInitialize = True
    AutoSize = True
    Color = clBlack
    Display.FixedBitCount = False
    Display.FixedRatio = True
    Display.FixedSize = True
    Options = [doAllowReboot, doWaitVBlank, doCenter, do3D, doDirectX7Mode, doHardware, doSelectDriver]
    SurfaceHeight = 177
    SurfaceWidth = 249
    OnFinalize = DXDraw1Finalize
    OnInitialize = DXDraw1Initialize
    TabOrder = 0
    Traces = <
      item
        Name = 'aaa'
        Active = True
        Tag = 0
        Blit.Active = True
        Blit.Z = 0
        Blit.Width = 0
        Blit.Height = 0
        Blit.Paths = {
          200000000080A8430000FE420000000019000000000000000000000000000000
          0000000000000000000000000000000000B0D7E2000080A74300000C43000000
          0019000000000000000000000000000000000000000000000000000000000000
          000030BD77050080A44300001843000000001900000000000000000000000000
          00000000000000000000000000000000000000F0BE770500809F430000234300
          0000001900000000000000000000000000000000000000000000000000000000
          00000000B0C077050080984300002D4300000000190000000000000000000000
          00000000000000000000000000000000000000000070C2770500809043000035
          4300000000190000000000000000000000000000000000000000000000000000
          00000000000030C477050000874300003B430000000019000000000000000000
          0000000000000000000000000000000000000000000000F0C577050000794300
          003F430000000019000000000000000000000000000000000000000000000000
          0000000000000000B0C777050000644300004043000000001900000000000000
          0000000000000000000000000000000000000000000000000070C9770500004F
          4300003F43000000001900000000000000000000000000000000000000000000
          0000000000000000000030CB770500003A4300003B4300000000190000000000
          000000000000000000000000000000000000000000000000000000C099400700
          0027430000354300000000190000000000000000000000000000000000000000
          000000000000000000000000809B40070000174300002D430000000019000000
          0000000000000000000000000000000000000000000000000000000000409D40
          0700000943000023430000000019000000000000000000000000000000000000
          0000000000000000000000000000009F40070000FE4200001843000000001900
          00000000000000000000000000000000000000000000000000000000000000C0
          A040070000F24200000C43000000001900000000000000000000000000000000
          0000000000000000000000000000000080A240070000EE420000FE4200000000
          1900000000000000000000000000000000000000000000000000000000000000
          0040A440070000F2420000E44200000000190000000000000000000000000000
          00000000000000000000000000000000000000A640070000FE420000CC420000
          0000190000000000000000000000000000000000000000000000000000000000
          000000C0A74007000009430000B6420000000019000000000000000000000000
          000000000000000000000000000000000000000080A94007000017430000A242
          0000000019000000000000000000000000000000000000000000000000000000
          000000000040AB40070000274300009242000000001900000000000000000000
          0000000000000000000000000000000000000000000000AD400700003A430000
          8642000000001900000000000000000000000000000000000000000000000000
          00000000000000C0AE400700004F4300007C4200000000190000000000000000
          00000000000000000000000000000000000000000000000080B0400700006443
          0000784200000000190000000000000000000000000000000000000000000000
          00000000000000000040B240070000794300007C420000000019000000000000
          000000000000000000000000000000000000000000000000000000B440070000
          8743000086420000000019000000000000000000000000000000000000000000
          0000000000000000000000C0B540070080904300009242000000001900000000
          0000000000000000000000000000000000000000000000000000000080B74007
          008098430000A242000000001900000000000000000000000000000000000000
          0000000000000000000000000040B9400700809F430000B64200000000190000
          00000000000000000000000000000000000000000000000000000000000000BB
          40070080A4430000CC4200000000190000000000000000000000000000000000
          000000000000000000000000000000C0BC40070080A7430000E4420000000019
          0000000000000000000000000000000000000000000000000000000000000000
          80BE4007}
      end>
  end
  object DXTimer1: TDXTimer
    ActiveOnly = True
    Enabled = False
    Interval = 10
    OnTimer = DXTimer1Timer
    Left = 160
    Top = 104
  end
  object DXImageList1: TDXImageList
    DXDraw = DXDraw1
    Items.ColorTable = {
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000}
    Items = <
      item
        PatternHeight = 0
        PatternWidth = 0
        Picture.Data = {
          0454444942280000000200000001000000010008000000000004000000000000
          0000000000000000000000000099FFFF00FFFFFF000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000001000000}
        SystemMemory = False
        Transparent = True
        TransparentColor = clWhite
      end>
    Left = 192
    Top = 96
  end
end

转载于:https://my.oschina.net/hermer/blog/319364

weixin_33995481
关注
Delphi DirectX 图形与游戏程序设计 pdf 偶 你懂得
12-13
Delphi DirectX 图形与游戏程序设计 pdf 偶 你懂得
Delphi 与 DirectX 之 DelphiX(2): DelphiX 各单元概览
weixin_33814685的博客
01-09 235
DXClass | DXDraws | DIB | DXSounds | DXWave | DXPlay | DXSprite | DXInput DXClass 单元 TControlSubClass TControlSubClassProc TCustomDXTimer TDirectX TDirectXDriver TDirectXD...
DUnitX：下一代Delphi单元测试框架
最新发布
gitblog_00599的博客
08-22 881
DUnitX：下一代Delphi单元测试框架 DUnitXDelphi Unit Test Framework项目地址:https://gitcode.com/gh_mirrors/du/DUnitX 项目介绍 在当今软件开发的快速迭代中，单元测试的重要性日益凸显。针对这一需求，DUnitX横空出世，它汲取了DUnit和NUnit等知名测试框架的精华，并专为Delphi 2010及其以后版本量...
非官方版本的DelphiX开源游戏引擎组件发布了发布了新版本1.0.19.0支持Delphi 10.3 Rio
Delphi开发局QQ群:32422310
10-24 882
DelphiX官方网站:http://www.micrel.cz/Dx/ 欢迎加入Delphi开发局QQ群:32422310 完整安装DelphiX（仅适用于unrar）具有DirectX 7驱动的Eric Unger的JEDI DirectX头文件的所有功能，DXR.pas，DXSprite.pas补丁程序中具有TridenT扩展名以及具有一些新图片效果的DIB.pas新版本。我...
2021年零基础学Delphi 11开发极简教程
热门推荐
Delphi开发局QQ群:32422310
09-15 1万+
本教程的目标是描述 Delphi 开发生态系统。对于从另一种编程语言来到 Delphi 的人来说，这可能会有所帮助。 Delphi 真的很容易学习——编程语言的语法可以在几个小时内学会。Pascal 是 Delphi 的 Object Pascal 语言演变而来的，长期以来一直是大学和教育中非常流行的语言，用于教授软件开发的基本概念。了解编程的基础知识是编程的关键部分。但是存在一个完整的术语和技术生态系统。对于来自不同技术背景的人来说，这总是让人不知所措。 另一个问题是，有太多不同的 Delph...
最新 DUnitX delphi 最佳 测试单元框架 稳定版
12-25
DUnitX delphi 最佳 测试单元框架 DUnitX Delphi 测试单元 Test
DirectX delphix_all_in_one_Alexandria delphi11.2
09-20
DirectX 简介　DirectX 对于大多数游戏爱好者来说都不陌生（当然，那些只在DOS下艰苦作战的朋友例外），在安装一个游戏前，系统总是会提示你是否需要同时升级 DirectX。简单地说，DirectX 就是一系列的 DLL （动态...
DelphiX2000_for_Delphi7.rar
09-18
《DelphiX2000 for Delphi 7：打造精彩DirectX程序的利器》 在编程领域，Delphi作为一款高效、强大的Windows应用程序开发工具，一直以来都深受开发者喜爱。而DelphiX2000则是专为Delphi 7用户设计的一个扩展库，它...
delphiX控件（DirectX）
08-05
1. **导入DirectX库**：首先，你需要确保你的Delphi安装包含了DirectX的库和头文件。如果没有，可能需要手动添加或下载第三方库。 2. **创建控件**：在Delphi的工具箱中，你会看到DirectX相关的控件，如DirectDraw、...
DelphiX源代码
12-25
在DelphiX中，开发者可以找到与DirectX相关的类和方法，这些类和方法通常对应于DirectX的原生接口，但使用Delphi语法编写，因此更容易理解和集成到Delphi项目中。例如，使用DelphiX的Direct3D组件，开发者可以创建...
DelphiX.1.0.9(Delphi DirectX 3D 游戏制作）
05-07
Delphi 3D 游戏制作， delphiX是将DirectX技术应用到Delphi的一通控件。
DunitX顶级测试框架(2019-05-23 最新源码版) for Delphi 2007 and 10.3.1
05-23
DunitX顶级测试框架(2019-05-23 最新源码版)，建议与DUnit 9.4搭配使用(本人下载资源中查找下载)。Support for Delphi 2007 and 10.3.1
directx 11 官方下载 v6.0.zip
07-14
DirectX（Direct eXtension，简称DX），是由微软公司创建的多媒体编程接口。由C 编程语言实现，遵循COM。它能够帮助以windows为平台的游戏或多媒体程序获得更高的执行效率，加强3d图形和声音效果。   最新版本为DirectX 11，直接内置在windows7系统中，其他的系统则需要独立安装。   dx11 安装方法： 1、解压下载的文件。 2、双击“directx_11_redist.exe”，点击“YES”--“browse”--选择路径如c:\dx11。 3、进入c:\dx11目录，找到exe文件，双击安装，完成后重启。   DirectX 11 新技术： 1.Direct3D11渲染管线 DirectX 11加入了对Tessellation（镶嵌）的支持。Tessellation 由外壳着色器（Hull Shader）、镶嵌单元（tessellator）以及域着色器（Domain Shader）组成。同时还加入了计算着色器（Compute Shader） 2.Tessellation镶嵌技术 tessellator可以把一些较大的图元（primitive）分成很多更小的图元，并将这些小图元组合到一起，形成一种有序的几何图形，这种几何图形更复杂，当然也更接近现实。这个过程也被称作细分曲面（Subdivision Surfaces）。举例来说，tessellator可以让一个立方体，通过处理看起来像是个球形，这样的话无疑节省了空间。此外，图形的质量、性能以及可控性也达到了一定的促进。 3.多线程的支持 DX11特性还包括很重要一点：支持多线程（multi-threading）。DX11的这种多线程技术可能并不能加速绘图的子系统（特别是当我们的GPU资源受限时），但是这样却可以提升线程启动游戏的效率，并且可以利用台式CPU核心数量不断提高所带来的潜力。  4.计算着色器Compute Shader CS的这一渲染管线能够进行更多的通用目的运算。我们既能在某种可以用来被执行数据的操作中看到这种特性，又能在某种可以用来操作的数据中看到这种特性。  5.Shader Model 5.0 DirectX 11包含的SM 5.0，采用面向对象的概念，并且完全可以支持双精度数据。随着SM 5.0的发布，微软也会将HLSL语言更新至最新版本，其中包含了诸如动态着色、动态分支和更多的对象等。 6.改进的纹理压缩 DirectX 11提出了更为出色的纹理压缩算法——BC6和BC7。BC6是为HDR图像设计的压缩算法，压缩比为6∶1；而BC7是为低动态范围纹理设计的压缩模式，压缩比为3∶1。两种压缩算法在高压缩比下画质损失更少，效果更出色
Delphix安装
孤独剑的专栏
05-12 1835
下载到delphix_d7的包，并且安装好 运行程序就报错：[Fatal Error] Unit1.pas(7): File not found: 'DXClass.dcu' 是因为库文件的位置没有指定 菜单->工具->环境选项->libraya->libraya path:，delphi_d7包增加到库路径去
用Delphi+DirectX开发简单RPG游戏
sasa123as的专栏
12-04 1600
提到 rpg （角色扮演游戏，role play game），在座各位恐怕没有不熟悉的。从古老经典的 dos 版《仙剑奇侠传》到新潮花哨的《轩辕剑》系列，无不以曲折优美的故事情节，美丽可人的主角，悦耳动情的背景音乐，震撼了每一个玩家的心灵。而说到 rpg，就不能不提 directx，因为 pc 上大部分的 rpg 都是用这个冬冬开发的。早在《轩辕剑叁外传——天之痕》推出的时候，我就曾想过用 dir
Delphi环境的搭建
鬼A魅
10-01 4362
Delphi的最新版本RAD Studi 10 Seattle环境的搭建 Delphi的下载 Delphi的下载路径：http://altd.embarcadero.com/download/radstudio/10/delphicbuilder10.iso Delphi的文件大小：7.18G Delphi的安装 安装Delphi需要系统有.net framework 3.5的支撑，
Delphi单元测试工具Dunit介绍
野猴子在杭州
11-01 809
 Dunit基本介绍 Dunit是Xunit家族中的一员，用于Dephi的单元测试。是Extreme Programming测试实现Xtreme Testing的一种工具。Dunit是一个Free的测试工具，没有代码覆盖率功能。 Dunit的官方Web Site 是https://sourceforge.net/projects/dunit/。 使用Dunit应该先看看Dunit安
Delphi资源文件使用教程：从RC到RES
使用Delphi自带的`brcc32.exe`编译器（位于`DelphiX\Bin`目录下），通过命令行将RC文件转换为可被程序直接使用的RES资源文件。 **第三部分：在Delphi单元中引入资源文件** 将生成的RES文件放置于项目目录下，并在...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值