tDirect2Canvas速度慢还是我做错了什么?

在寻找替代GDI的方法时,我试着测试Delphi的2010 t方向2画布 在Windows 7中的性能。

我用direct2d绘制了一条巨大的多段线来测试它,结果非常慢,即使数据比我用gdi进行的相同测试少了500倍(我甚至没有在gdi中使用位图作为backbuffer,我只是直接绘制到表单画布)。

所以我想要么:
(a) Direct2d比GDI慢;
b) tDirect2Canvas速度慢;
c) 我做错了什么
希望是C)。

我写的测试代码是:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Direct2D, D2D1;

type
  TForm2 = class(TForm)
  private
    { Private declarations }
    FD2DCanvas: TDirect2DCanvas;
    FData: array[0..50000] of TPoint;
  public
    procedure CreateWnd; override;
    procedure WMSize(var Message: TWMSize); message WM_SIZE;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;


    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses utils;

{$R *.dfm}

procedure TForm2.CreateWnd;
var
  i: Integer;
begin
  inherited;
  FD2DCanvas := TDirect2DCanvas.Create(Handle);

  for i := 0 to High(FData) do begin
    FData[i].X := Random(Self.ClientWidth  div 2);
    FData[i].Y := Random(Self.ClientHeight);
  end;
end;

procedure TForm2.WMPaint(var Message: TWMPaint);
var
  PaintStruct: TPaintStruct;
begin
  BeginPaint(Handle, PaintStruct);
  try
    FD2DCanvas.BeginDraw;

    try
      FD2DCanvas.Polyline(FData);
    finally
      FD2DCanvas.EndDraw;
    end;

  finally
    EndPaint(Handle, PaintStruct);
  end;

end;

procedure TForm2.WMSize(var Message: TWMSize);
begin
  if Assigned(FD2DCanvas) then begin
    ID2D1HwndRenderTarget(FD2DCanvas.RenderTarget).Resize(D2D1SizeU(ClientWidth, ClientHeight));
  end;
end;

end.

此外,我真的很愿意用真正的代码绘制长的多段线,作为一个我正在研究的系统,需要绘制大量的2500点多段线(其中至少有10个)。

更新(2010-11-06)

我之前发现Direct2d似乎不喜欢多段线,如果使用很多单段线(2点多段线),它的绘制速度会更快。

多亏了 Chris Bensen 我发现慢下来的是大折线。 使用消除混叠时 . 所以我按照Chris的建议禁用了消除混叠,绘制50k行的性能从~6000ms提高到~3500ms。

因为Direct2d不能很好地处理多段线,所以事情还是可以改进的。 使用消除混叠时 . 禁用消除混叠后,情况正好相反。

现在用direct2d绘制50k线的时间是~50ms。很好,呃!

问题是 GDI仍然比Direct2d快 如果我绘制一个位图,在位图完成后,我将结果返回表单,它将绘制 约35毫秒 具有相同的图形质量。而且,direct2d似乎已经在使用backuffer了(它只是在 EndDraw() 被调用)。

那么,是否可以通过某种方式改进这一点,使使用Direct2d的速度更为合理?

以下是更新后的代码:

type
  TArray = array[0..1] of TPoint;
  PArray = ^TArray;

procedure TForm2.WMPaint(var Message: TWMPaint);
var
  PaintStruct: TPaintStruct;
begin
  FD2DCanvas.RenderTarget.SetAntialiasMode(D2D1_ANTIALIAS_MODE_ALIASED);
  BeginPaint(Handle, PaintStruct);
  try
    FD2DCanvas.BeginDraw;
    try
      FD2DCanvas.Pen.Color := clRed;
      FD2DCanvas.Polyline(FData);
    finally
      FD2DCanvas.EndDraw;
    end;   
  finally
    EndPaint(Handle, PaintStruct);
  end;
end;

顺便说一下,即使我用 Chris “建议预先创建几何图形,速度与gdi大致相同,但仍然不快。

我的电脑正常运行Direct3D和OpenGL应用程序,下面是DxDiag输出: http://mydxdiag.pastebin.com/mfagLWnZ

如果有人能解释我为什么这么慢,我会很高兴的。非常感谢示例代码。