Najszybsza droga do rysowania pikseli w FireMonkey

Question

zrobiłem następujący kod:

procedure TForm15.Button1Click(Sender: TObject); 
var 
    Bitmap1: TBitmap; 
    im: TImageControl; 
    Color: TColor; 
    Scanline: PAlphaColorArray; 
    x,y,i: Integer; 
begin 
    for i:= 1 to 100 do begin 
    im:= ImageControl1; 
    Bitmap1:= TBitmap.Create(100,100); 
    try 
     for y:= 0 to 99 do begin 
     ScanLine:= Bitmap1.ScanLine[y]; 
     for x:= 0 to 99 do begin 
      ScanLine[x]:= Random(MaxInt); 
     end; 
     end; 
     ImageControl1.Canvas.BeginScene; 
     ImageControl1.Canvas.DrawBitmap(Bitmap1, RectF(0,0,Bitmap1.Width, Bitmap1.Height) 
            ,im.ParentedRect,1,true); 
     ImageControl1.Canvas.EndScene; 
    finally 
     Bitmap1.Free; 
    end; 
    end; 
end; 

Czy istnieje szybszy sposób narysować piksele Firemonkey?
Zamierzam zrobić program demonstracyjny za pomocą gry życia Conwaya.

Answer 1

Cały czas spędza wykonując poniższe dwa wiersze kodu:

ImageControl1.Canvas.BeginScene; 
ImageControl1.Canvas.EndScene; 

Można usunąć wszystkie kod, który działa z bitmapy i kod, który faktycznie rysuje bitmapę i to nie stanowi żadnego wyjątku dla środowiska wykonawczego. Innymi słowy, wąskim gardłem jest kod sceny, a nie kod bitmapy. I nie widzę sposobu, żeby to zoptymalizować.

Mój kod testowy wyglądał następująco:

Stopwatch := TStopwatch.StartNew; 
for i:= 1 to 100 do begin 
    ImageControl1.Canvas.BeginScene; 
    ImageControl1.Canvas.EndScene; 
end; 
ShowMessage(IntToStr(Stopwatch.ElapsedMilliseconds)); 

ten ma taki sam czas, który upłynął jak kod, 1600ms na moim komputerze. Jeśli usuniesz wywołania BeginScene, DrawBitmap i EndScene, twój kod będzie działać przez 3ms na moim komputerze.

Answer 2

można zoptymalizować kod tak:

procedure TForm15.Button1Click(Sender: TObject); 
var 
    Bitmap1: TBitmap; 
    im: TImageControl; 
    Color: TColor; 
    ScanLine: PAlphaColorArray; 
    x,y,i: Integer; 
begin 
    Bitmap1:= TBitmap.Create(100,100); 
    try 
    for i:= 1 to 100 do begin 
     im:= ImageControl1; 
     Scanline := PAlphaColorArray(Bitmap1.StartLine); 
     for x := 0 to Bitmap1.Width * Bitmap1.Height do 
     ScanLine[x] := Random(MaxInt); 
     ImageControl1.Canvas.BeginScene; 
     ImageControl1.Canvas.DrawBitmap(Bitmap1, RectF(0,0,Bitmap1.Width, Bitmap1.Height) 
            ,im.ParentedRect,1,true); 
     ImageControl1.Canvas.EndScene; 
    end; 
finally 
    Bitmap1.Free; 
end; 
end; 

Usunięto:

• nazywając tryfinally w pętli

• tworzenia TBitmap w pętli

• nazywając TBitmap.ScanLine metoda

Answer 3

Oto szybszy sposób, aby to zrobić:

 procedure TForm2.Button1Click(Sender: TObject); 
    var i,j: integer; 
    begin 
     for i := 0 to 200 do 
     for j := 0 to 200 do ImageControl1.Bitmap.ScanLine[i][j]:=Random(Maxlongint); 
     ImageControl1.Bitmap.BitmapChanged; 
    end; 

Szybkie i zoptymalizowane ...