bass.dll

#include "bass.h"

HSAMPLE samp;
HSTREAM chan;
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
BASS_Init( -1,44100, BASS_DEVICE_3D,0,NULL);
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString b="Путь к файлу";
char *a=b.c_str();
chan=BASS_StreamCreateFile(FALSE, a, 0, 0, 0);
 
BASS_ChannelPlay(chan,FALSE);
}

 
void draw() 
{ 
float H=Form1->PaintBox1->Height,W=Form1->PaintBox1->Width; 
int Ypos,i,PeakFallOff=2,Res=2,LineFall Off=4,Width=3,Height; 
short X,Y; 
float Yval; 
bool DrawPeak=true,FrameClear=true; 
TColor Pen=clGreen,Peak=clRed,BackColor=cl Black; 
float fft[512]; // fft data buffer 
Height=H-1; 
X=0; 
Y=0; 
if(FrameClear) 
{ 
Form1->PaintBox1->Canvas->Pen->Color=BackColor; 
Form1->PaintBox1->Canvas->Brush->Color=BackColor; 
Form1->PaintBox1->Canvas->Rectangle(0,0,W,H); 
} 
if(BASS_ChannelIsActive(stream)!=BA SS_ACTIVE_PLAYING) 
return; 
BASS_ChannelGetData(stream,fft,BASS _DATA_FFT1024); 
 
Form1->PaintBox1->Canvas->Pen->Color=Pen; 
for(i=0;i<=128;i++) 
{ 
Yval=fft[i*Res+5]; 
if(Yval<0.0) 
Yval=-Yval; 
Ypos=floor(Yval*500); 
if(Ypos>Height) 
Ypos=Height; 
if(Ypos>=FFTPeacks[i]) 
FFTPeacks[i]=Ypos; 
else 
FFTPeacks[i]-=PeakFallOff; 
if(Ypos>=FFTFallOff[i]) 
FFTFallOff[i]=Ypos; 
else 
FFTFallOff[i]-=LineFallOff; 
//if(H-FFTPeacks[i]>H) 
//FFTPeacks[i]=0; 
//if(H-FFTFallOff[i]>H) 
//FFTFallOff[i]=0; 
//if(DrawPeak) 
{ 
Form1->PaintBox1->Canvas->Pen->Color=Peak; 
Form1->PaintBox1->Canvas->MoveTo(X+i*(Width+1),Y+H-1-FFTPeacks[i]); 
Form1->PaintBox1->Canvas->LineTo(X+i*(Width+1)+Width,Y+H-1-FFTPeacks[i]); 
} 
Form1->PaintBox1->Canvas->Pen->Color=Pen; 
Form1->PaintBox1->Canvas->Brush->Color=Pen; 
Form1->PaintBox1->Canvas->Rectangle(X+i*(Width+1),Y+H-FFTFallOff[i],X+i*(Width+1)+Width,Y+H); 
} 
}

Level= BASS_ChannelGetLevel(Channel);
L= HiWord(Level);
R= LOWORD(Level);

  [Linker Error] Unresolved external 'BASS_Init' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\6\UNIT1.OBJ
  [Linker Error] Unresolved external 'BASS_StreamCreateFile' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\6\UNIT1.OBJ
  [Linker Error] Unresolved external 'BASS_ChannelPlay' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\6\UNIT1.OBJ

int p1 = BASS_ChannelGetLength(поток, 0) ;

void __fastcall TForm1::sTrackBar1Change(TObject *Sender)
{float vol;
vol=sTrackBar1->Position;
BASS_ChannelSetAttribute (chan,BASS_ATTRIB_VOL,vol/100);
}

HSTREAM chan;
void __fastcall TForm1::sScrollBar1Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
float pos;
 
size_p=BASS_ChannelGetLength(chan,BASS_POS_BYTE);
pos=(sScrollBar1->Position)*((size_p)/100);
BASS_ChannelSetPosition(chan, pos, BASS_POS_BYTE);
}
 
void __fastcall TForm1::Timer2Timer(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));
 
sScrollBar1->Position=pos;
Timer1->Enabled=false;
Timer1->Interval=1;
Timer1->Enabled=true;
 
 
}

QWORD len=BASS_ChannelGetLength(chan, BASS_POS_BYTE); // the length in bytes
double time1=BASS_ChannelBytes2Seconds(chan, len); // the length in seconds
 
double val = time1;  // это секунды
  TDateTime time = val/(24 * 3600);   // (24 * 3600) - количество сек. в сутках
  String str = time.FormatString("hh:mm:ss.zzz");
Label1->Caption=str;