Optimierung von Pixel

[Zacherl]

Mediums Funktion ist sogar LANGSAMER als Canvas.Pixels Mein Testcode

Delphi-Quellcode:

var
  B: TBitmap;
  X, Y: Integer;
  P: PRGBTriple;
  C: Cardinal;
begin
  B := TBitmap.Create;
  try
    B.PixelFormat := pf24Bit;
    B.Width := 2000;
    B.Height := 2000;
    // Canvas.Pixels
    C := GetTickCount;
    for Y := 0 to B.Height - 1 do
    begin
      for X := 0 to B.Width - 1 do
      begin
        B.Canvas.Pixels[X, Y] := clRed;
      end;
    end;
    ShowMessage(IntToStr(GetTickCount - C));   // 1141ms
    // Custom SetPixel method by Medium
    C := GetTickCount;
    for Y := 0 to B.Height - 1 do
    begin
      for X := 0 to B.Width - 1 do
      begin
        SetPixel(B, X, Y, clRed);
      end;
    end;
    ShowMessage(IntToStr(GetTickCount - C));   // 1391ms
    // Bitmap.ScanLine
    C := GetTickCount;
    for Y := 0 to B.Height - 1 do
    begin
      P := B.ScanLine[Y];
      for X := 0 to B.Width - 1 do
      begin
        P^.rgbtRed   := 255;
        P^.rgbtGreen := 0;
        P^.rgbtBlue  := 0;
        Inc(P);
      end;
    end;
    ShowMessage(IntToStr(GetTickCount - C));  //    15ms
  finally
    B.Free;
  end;
end;

produziert folgendes Ergebnis:

Code:

1141ms - Canvas.Pixels
1391ms - SetPixel by Medium
  15ms - ScanLine

[stahli]

@Emil

Bei Performanceproblemen hat mit AQTime Pro schon gut geholfen.
Da kann man sogar einzelne Zeilen messen lassen.

Nur man sollte es nicht in die Delphi-IDE Einbinden, sondern extern nutzen.

[EWeiss]

Zitat von stahli:

@Emil

Bei Performanceproblemen hat mit AQTime Pro schon gut geholfen.
Da kann man sogar einzelne Zeilen messen lassen.

Nur man sollte es nicht in die Delphi-IDE Einbinden, sondern extern nutzen.

Danke für die Info
Aber eigentlich sollte doch GetTickCount ausreichend sein

Zitat:

Mein Testcode

Danke werde deine Variante mal testen.

gruss

[Medium]

Roter Kasten:

Zitat von Zacherl:

Mediums Funktion ist sogar LANGSAMER als Canvas.Pixels

Das wundert mich ehrlich gesagt, aber da ich keine konkreten Tests gemacht habe, nehme ich das mal so hin

[Zacherl]

Zitat von Medium:

Roter Kasten:

Zitat von Zacherl:

Mediums Funktion ist sogar LANGSAMER als Canvas.Pixels

Das wundert mich ehrlich gesagt, aber da ich keine konkreten Tests gemacht habe, nehme ich das mal so hin

Hat mich selbst stark gewundert, weil der erste Aufruf von ScanLine den Bitmap-Buffer eigentlich cached. Allerdings werden da neben dem Anfordern des Buffers noch 100 andere Sachen in der Funktion gemacht, die ich mir jetzt nicht genauer angeschaut habe. Diese Funktionen werden wohl der Grund für den Performanceverlust sein.

[Valle]

Man könnte ja mal spaßeshalber eine Art Zwischenspeicher für das Ergebnis von ScanLine einführen.

Code:

if aY != old_aY:
    old_aY = aY
    scanlineResult = ScanLine(..., aY)
// mit scanlineResult weiter verfahren

[EWeiss]

Ich habe jetzt alle Varianten durch und lade das Projekt mal hoch. (Anhang gelöscht neue auf der nächsten Seite)

Seltsamer weise tut die Funktion von Zacherl nicht was sie soll.. Oder ich war zu blöd diese einzubinden.
Die neue von Medium liefert auch nicht das richtige Zeichnungs Resultat.

wäre schön wenn ihr das mal testen würdet.
alte Version ohne Änderung.

wundert mich schon warum der Kram so lange dauert bei analysieren.
Was nicht geht ist das auf die nächste Seite gesprungen wird.

PS:
Nicht wundern!
00:00:00 = Min,Sec,Ms

gruss

[Zacherl]

PB.Refresh verbraucht fast deine ganze CPU Zeit.

[EWeiss]

Zitat von Zacherl:

PB.Refresh verbraucht fast deine ganze CPU Zeit.

Ist richtig deshalb dauert es auch so lange..
Habe es deaktiviert. Auch wenn es schöner wäre die Fortschritte des ladens zu sehen.

Auf der anderen Seite hat es keinen Einfluss darauf ob ScanLine schneller als Pixel ist.
Macht bei mir nach dem deaktivieren von PB.Refresh gerade mal eine Sekunde aus.

gruss

[Zacherl]

Zitat von EWeiss:

Habe es deaktiviert. Auch wenn es schöner wäre die Fortschritte des ladens zu sehen.

Habe es bei mir zum Testen ebenfalls auskommentiert. Das Application.ProcessMessages auch. Trotzdem sehe ich den Fortschritt .. ist das bei dir nicht der Fall?

Zitat von EWeiss:

Auf der anderen Seite hat es keinen Einfluss darauf ob ScanLine schneller als Pixel ist.
Macht bei mir nach dem deaktivieren von PB.Refresh gerade mal eine Sekunde aus.

Der Vorteil skaliert halt stark mit der Größe des Bitmaps. Würde auf jeden Fall trotzdem ScanLine benutzen.