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

测试 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}
另外, 因为有些日文的注释乱码, 也会让有些例子运行不了, 修改下乱码的地方即可.
目前我抽样测试了一些, 都没问题了.

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

---

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

---

本例效果图:

---

代码文件:

---

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