VU Meter mit bass.dll

[Muellermilchtrinker]

Hallo DP,

habe folgendes Problem. Möchte mir ein VU Meter mit der Bass Dll basteln.
Zur Anzeige nutze ich einfach zwei ProgressBars (wahrscheinlich nicht die schönste Variante, aber ich möchte es gerne so ). Maximalwert der ProgressBars liegt bei 32768 (maximal Wert des PEAKs von der Bass).

Dann hab ich noch ein Timer (Interval: 50ms) in diesem steht:

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
  var VUCH:Cardinal;
begin
  // Get Peaks
  VUCH := BASS_ChannelGetLevel(hChannel(0));

  // XYZ := LOWORD(VUCH) => Linker Kanal, 32768 ist der Maximale Peak Wert pro Chanel
  // XYZ := HIWORD(VUCH); // Rechter Kanal,

  ProgressBar1.Position := LOWORD(VUCH);
  ProgressBar2.Position := HIWORD(VUCH);
end;

Mein Problem ist, dass beim Start der Musik, dass dann die ProgressBars aufs Maximum von 32768 geht und dort bleibt.
Hoffe einer von euch kann mir helfen, ist das erstemal, dass ich mit der bass.dll was mache.

[mkinzler]

Vielleicht hilft das
http://forum.delphi-treff.de/showthr...Visualisierung

[chaosben]

Warum steht denn da den Null?
  VUCH := BASS_ChannelGetLevel(hChannel(0)); Gib mal den wirklichen Channel (den BASS dir geliefert hat) an und schon sollte es funktionieren.

[Muellermilchtrinker]

Komisch, jetzt hängt sich mein Programm immer auf, wenn ich start drücken will??

[Muellermilchtrinker]

Jetzt blick ich es gar nicht mehr. Gestern hat noch alles super funktioniert und jetzt hängt sich das Programm schon beim abspielen eines Sounds auf???

Ich häng mal meine Unit an.
~entfernt~
Edit: Jetzt klappt wieder alles. Sogar das VU Meter