Bass.dll

#include <vcl.h>
#pragma hdrstop
#include "bass.h"
#include "math.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Chart"
#pragma link "TeEngine"
#pragma link "TeeProcs"
#pragma link "Series"
#pragma resource "*.dfm"
TForm1 *Form1;
HSTREAM chan;
HSAMPLE samp;
 //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 float fft[1024];
 float  pow;
 int b0, x, y;
 b0=0;
 BASS_ChannelGetData(chan,fft,BASS_DATA_FFT2048);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
BASS_Init( -1,44100, BASS_DEVICE_3D,0,NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString b="c:\\Bas\\05_pitbull_feat._lil_jon__krazy[_mp3ex.net].mp3";
char *a=b.c_str();
chan=BASS_StreamCreateFile(FALSE, a, 0, 0, 0);
BASS_ChannelPlay(chan,FALSE);
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode,
          int &ScrollPos)
{
float pos;
float size_p;
size_p=BASS_ChannelGetLength(chan,BASS_POS_BYTE);
pos=(ScrollBar1->Position)*((size_p)/100);
BASS_ChannelSetPosition(chan, pos, BASS_POS_BYTE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
float pos;
float size_p;
float size_p1;
size_p=BASS_ChannelGetLength(chan,BASS_POS_BYTE);
size_p1=BASS_ChannelGetPosition(chan,BASS_POS_BYTE);
pos=((size_p1)/(size_p/100));
 ScrollBar1->Position=pos;
}
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
 int lev;
lev=BASS_ChannelGetLevel(chan); //без раделения на каналы
Series1->Add(lev);
}