Optimierung von Pixel

[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.

[EWeiss]

Zitat:

Trotzdem sehe ich den Fortschritt .. ist das bei dir nicht der Fall?

Nein beim Analysieren der Daten wird kein Paintevent ausgelößt.

gruss

[Zacherl]

Zitat von EWeiss:

Zitat:

Trotzdem sehe ich den Fortschritt .. ist das bei dir nicht der Fall?

Nein beim Analysieren der Daten wird kein Paintevent ausgelößt.

Bei meiner Delphi Version schon. Als Workaround könntest du das Refreshen immer nur dann ausführen, wenn sich wirklich der Progress geändert hat im Vergleich zum vorherigen Durchgang des Loops. Das wären dann maximal 100 Aufrufe im ganzen Loop.

[EWeiss]

Zitat von Zacherl:

Zitat von EWeiss:

Zitat:

Trotzdem sehe ich den Fortschritt .. ist das bei dir nicht der Fall?

Nein beim Analysieren der Daten wird kein Paintevent ausgelößt.

Bei meiner Delphi Version schon. Als Workaround könntest du das Refreshen immer nur dann ausführen, wenn sich wirklich der Progress geändert hat im Vergleich zum vorherigen Durchgang des Loops. Das wären dann maximal 100 Aufrufe im ganzen Loop.

Jup.
Wäre eine Möglichkeit.

Ist deine Funktion jetzt schneller oder gibt es keine Unterschiede?

gruss

[Zacherl]

Zitat von EWeiss:

Zitat von Zacherl:

Zitat von EWeiss:

Zitat:

Trotzdem sehe ich den Fortschritt .. ist das bei dir nicht der Fall?

Nein beim Analysieren der Daten wird kein Paintevent ausgelößt.

Bei meiner Delphi Version schon. Als Workaround könntest du das Refreshen immer nur dann ausführen, wenn sich wirklich der Progress geändert hat im Vergleich zum vorherigen Durchgang des Loops. Das wären dann maximal 100 Aufrufe im ganzen Loop.

Jup.
Wäre eine Möglichkeit.

Das bringt dir schonmal ne ganze Menge Performance:

Delphi-Quellcode:

Progress := trunc(100 * (BASS_ChannelGetPosition(Channel, BASS_POS_BYTE) / BASS_ChannelGetLength(Channel, BASS_POS_BYTE)));
if (Form2.ProgressBar1.position <> Progress) then
begin
  Form2.ProgressBar1.position := Progress;
  PB.Refresh;
  Application.ProcessMessages;
end;

Zitat von EWeiss:

Ist deine Funktion jetzt schneller oder gibt es keine Unterschiede?

Auskommentieren des SetPixel / Canvas.Pixel Codes beschleunigt die Analyse nochmal deutlich spürbar. Meine Funktion würde den selben Effekt haben, allerdings habe ich das noch nicht getestet.