|
Guido
Posts: 17
|
 |
« on: 13 Mar '12 - 13:51 » |
Quote
|
hi i've this code to get information about song as spectrum and wave data :
procedure TfrmMain.TimerTimer(Sender: TObject); Var FFTData:TFFTData; VolPeak:Single; begin tbSong.Position:=Round(BASS_ChannelBytes2Seconds(Channel1, BASS_ChannelGetPosition(Channel1, BASS_POS_BYTE)));
// Spectrum animation BASS_ChannelGetData(Channel1, @FFTData, BASS_DATA_FFT1024); Spectrum.Draw(PaintFrame.Canvas.Handle, FFTData, 100, 0);
// Loading wave view If BpP = 0 Then Exit; DrawWaveView(); // draw peak waveform DrawTime_Line(Loop[0],12,TColor($FFFF00)); // loop start DrawTime_Line(Loop[1],24,TColor($00FFFF)); // loop end
BASS_ChannelSlideAttribute(Channel1,BASS_ATTRIB_VOL,VolPeak,tbSong.Position);
DrawTime_Line(BASS_ChannelGetPosition(Channel1,BASS_POS_BYTE), 0,TColor($FFFFFF), Round(VolPeak)); // current pos pbWave.Refresh(); end;
----------------
Now i need to retrieve the peak volume for a song using BASS_ChannelSlideAttribute but does'nt go fine. I reveice always 1, but i need a peak while song scroll ....
I hope understand :-)
Thank u BYE
|