[sariman]

вот весь мой проект

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bass, StdCtrls, sButton, sSkinManager, sDialogs, ExtCtrls,
  sPanel, sScrollBar, sLabel, Buttons, sSpeedButton, sGauge, ComCtrls,
  acProgressBar, MPlayer, sListBox, sTrackBar;

type
  TForm1 = class(TForm)
    SkinManager: TsSkinManager;
    btn1: TsButton;
    btn2: TsButton;
    sButton2: TsButton;
    spnl1: TsPanel;
    Open: TsOpenDialog;
    sScrollBar1: TsScrollBar;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    tmr1: TTimer;
    tmr2: TTimer;
    sButton1: TsButton;
    sLabel3: TsLabel;
    sGauge1: TsGauge;
    Progress: TsProgressBar;
    ListBox: TsListBox;
    sTrackBar1: TsTrackBar;
    sLabel4: TsLabel;
    sTrackBar2: TsTrackBar;
    sButton3: TsButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Play;
    procedure PlayStream;
    procedure FreeStream(var Stream: HStream);
    procedure LoadStream(FileName: string);
  end;

var
  Form1: TForm1;
  track: boolean;
  Channel, Buffer: HSTREAM;
  Volume, FadeTimer: Integer;
  PlaySync: HSYNC;

implementation

{$R *.dfm}

procedure PlayStreamSync(handle: HSYNC; Stream, data: DWORD; user: Pointer); stdcall;
begin
BASS_ChannelRemoveSync(Stream,Handle);
BASS_StreamFree(Channel);
Channel:=Buffer;
Buffer:=0;
end;

procedure TForm1.FreeStream(var Stream: HStream);
begin
  BASS_ChannelStop(Stream);
  BASS_StreamFree(Stream);
end;

procedure TForm1.PlayStream;
begin
  if Buffer=0 then Exit;
  if Channel=0 then begin
    Channel:=Buffer;
    Play;
  end else
  if BASS_ChannelIsActive(Channel)=Bass_Active_Stopped then begin
  FreeStream(Channel);
  Channel:=Buffer;
  Play;
  end else begin
  BASS_ChannelSlideAttribute(Channel,BASS_ATTRIB_VOL,0,FadeTimer);
  BASS_ChannelSetAttribute(Buffer,BASS_ATTRIB_VOL,0);
  BASS_ChannelPlay(Buffer,False);
  end;
PlaySync:=BASS_ChannelSetSync(Buffer,BASS_SYNC_SLIDE,0,@PlayStreamSync,nil);
BASS_ChannelSlideAttribute(Buffer,BASS_ATTRIB_VOL,Volume / 100,FadeTimer)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if bass_init(-1, 44100,0, handle,nil)=false then
showmessage('Îøèáêà');
Channel:=0;
Buffer:=0;
FadeTimer:=3000;
Volume:=100;
end;

procedure TForm1.Play;
begin
if Channel=0 then Exit;
BASS_ChannelSetAttribute(Channel,BASS_ATTRIB_VOL,0);
BASS_ChannelPlay(Channel,False);
BASS_ChannelSlideAttribute(Channel,BASS_ATTRIB_VOL,Volume / 100,FadeTimer)
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bass_free();
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if Open.Execute=false then
exit else ListBox.Items.Add(Open.FileName);
LoadStream(Open.FileName);
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
LoadStream('D:\MuZa\Aksent\Aksent - Hood Boy.mp3');
PlayStream;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
bass_channelplay(Channel, false);
end;

procedure TForm1.LoadStream(FileName: string);
begin
if Buffer<>0 then Buffer:=0;
Buffer:=Bass_StreamCreateFile(False,PChar(FileName),0,0,0);
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
LoadStream('D:\MuZa\Adidas\Adidas - New Hit.mp3');
PlayStream;
end;

end.

По возможности прокомменитую