Optimierung von Pixel

[Zacherl]

Delphi-Quellcode:

PB.Refresh

verbraucht fast deine ganze CPU Zeit.

[EWeiss]

Zitat:

Zitat von Zacherl (Beitrag 1335050)

Delphi-Quellcode:

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:

Zitat von EWeiss (Beitrag 1335051)

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

Delphi-Quellcode:

Application.ProcessMessages

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

Zitat:

Zitat von EWeiss (Beitrag 1335051)

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:

Zitat von EWeiss (Beitrag 1335054)

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:

Zitat von Zacherl (Beitrag 1335057)

Zitat:

Zitat von EWeiss (Beitrag 1335054)

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:

Zitat von EWeiss (Beitrag 1335058)

Zitat:

Zitat von Zacherl (Beitrag 1335057)

Zitat:

Zitat von EWeiss (Beitrag 1335054)

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:

Zitat von EWeiss (Beitrag 1335058)

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.

[EWeiss]

Zitat:

Das bringt dir schonmal ne ganze Menge Performance:

Führ wahr, ganze 10 Sekunden und das ist schon mal eine spürbare Verbesserung.

Hat jetzt nicht direkt mit den Pixeln zu tun!
Was mich jetzt noch fuchst das ich die Seiten nicht umschalten kann ohne dass das Bitmap anfängt zu scrollen.
Also wenn die Linie das ende der Scrollbox erreicht hat.

Danke das du dir das Anschaust. ;)
Anbei ne neue Version mit deiner Änderung der Progressbar

gruss

[Medium]

Zitat:

Zitat von EWeiss (Beitrag 1335047)

Die neue von Medium liefert auch nicht das richtige Zeichnungs Resultat.

Leider bleibt "Channel" bei mir immer 0, daher kann ich nicht selbst testen. Inwiefern ist das Ergebnis falsch? (Ich frage aus persönlichem Interesse, nicht weil ich dir nicht glaube :))
Ist es trotz falsch dennoch flotter?

[Zacherl]

Zitat:

Zitat von Medium (Beitrag 1335064)

Zitat:

Zitat von EWeiss (Beitrag 1335047)

Die neue von Medium liefert auch nicht das richtige Zeichnungs Resultat.

Leider bleibt "Channel" bei mir immer 0, daher kann ich nicht selbst testen. Inwiefern ist das Ergebnis falsch? (Ich frage aus persönlichem Interesse, nicht weil ich dir nicht glaube :))
Ist es trotz falsch dennoch flotter?

Die Farben sind irgendwie anders. Aber das Problem liegt nicht zwingend in deinem Code :lol: Es gibt diverse Buffer Overflows in der Analyse Funktion, die das wohl verursachen werden. BASS_ChannelGetData mit BASS_DATA_FFT512 liefert nämlich 256 Float Values, aber das Buffer Array ist nur für 159 Floats Platz hat. Deshalb sieht die grafische Darstellung generell schon irgendwie gestaucht / falsch aus.