[Delphi] Wskaźnik wysterowania za pomocą BASS

[lazarus.1988]

Zacząłem niedawno pisać aplikację w Delphi do odtwarzania multimediów, taką

własną alternatywę dla Winampa i innego ścierwa, które ładuje w programy reklamy.

 

na chwilę obecną utknąłem przy wskaźnikach wysterowania na kanał lewy i kanał prawy.

 

Wrzuciłem na Timer (50ms) coś takiego:

var l,r,w : DWORD;
w := BASS_ChannelGetLevel(1); //1 - Default Audio Device

begin

l := loword(w);

r := hiword(w);

sProgressBar1.Position := l;

sProgressBar2.Position := r;
end;

i wskaźniki zawsze wskazują max pozycję.