мр3 проигрователь с использыванием bass

[Palach]

Облазил уже кучу сайтов и форумов и негде не могу найти конкретной инфы по созданию такого проигрователя.Хотелось бы увидить советы более способных програмистов чем я.Меня интересует всё что можно сделать используя этот компонент.
Помогите плиз!!!

[IT-man]

С этим компонентом идет неплохая демонстрашка.Вот там и посмотри.

[KORN]

плохо очень ищешь
http://programmersforum.ru/showthrea...highlight=bass

и далее поиск по форуму

[ZuBy]

http://zuby.ucoz.kz/load/0-0-0-48-20

[Xatr]

Готовый player на Delphi. Использует bass.dll.

[inndim]

Xatr
Вообще-то если быть точнее это компонент с названием TBassPlayer.

[Palach]

Спасиб!!Хороший исходник!

[Spaik]

Доброго времени суток. Помогите:
1)cделать переключение кнопкой на след. дорожку;
2)автоматическое переключение по окончанию текущей дорожки;
3)нормальный таймер "mm:ss";
4)в листбоксе убрать пути к файлам, оставить только имена;
5)вывод текущей проигроваемой дорожки бегущей строкой;
p.s.Может у вас появятся еще какие либо замечания, прошу отписаться. Только не ругайтесь сильно..Заранее очень благодарен
Вот кусок(огрызок) кода:

unit Main;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, SonStream, ExtCtrls, ComCtrls, StdCtrls, Buttons, Bass, Menus,
  XPMan, ActnList, filectrl, ShellAPI;
type
  TForm1 = class(TForm)
    Bdd: TOpenDialog;
    Timer1: TTimer;
    TpsSon1: TScrollBar;
    LabNomS1: TLabel;
    Label9: TLabel;
    LabBalanceS1: TLabel;
    Bibliotheque: TListBox;
    PopupMenu1: TPopupMenu;
    BddS: TSaveDialog;
    Bevel7: TBevel;
    Bevel8: TBevel;
    TpsS1: TLabel;
    xpmnfst1: TXPManifest;
    mm1: TMainMenu;
    procedure ChargerClick(Sender: TObject);
    procedure LireClick(Sender: TObject);
    procedure StopperClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
   procedure TpsSon1Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure ChorusClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PauseClick(Sender: TObject);
    procedure ResumerClick(Sender: TObject);
    procedure ChorusChange(Sender: TObject);
    procedure BibliothequeClick(Sender: TObject);
    procedure PlayList(Path: string);
  private
        { Private declarations }
  Protected
   procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;
  public
  end;
const
  MAX_SON = 2;
var
  mCh: HStream; // Основной поток
  Form1: TForm1;
  TabSon : array[1..MAX_SON]of TSonStream;
  PATH :string[255];
   min,sec: integer;
   channel : HSTREAM;
   NowTracking:Boolean;
   CHANGE_POS: Boolean = True;
  CHANGE_PRESET: Boolean = False;
implementation
{$R *.dfm}
    procedure TForm1.PlayList(Path: string);
var
 SearchRec: TSearchRec;
begin
  Bibliotheque.Clear;
  if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) =0 then
     begin
          Bibliotheque.Items.Add(Path + SearchRec.Name);
          while (FindNext(SearchRec) = 0) do
            Bibliotheque.Items.Add(Path + SearchRec.Name);
     end;
   Bibliotheque.ItemIndex := 0;
   end;
procedure TForm1.ChargerClick(Sender: TObject);
begin
  Bdd.FilterIndex:=1;
  if(Bdd.Execute) then Bibliotheque.Items.Add(Bdd.FileName);
end;
procedure TForm1.LireClick(Sender: TObject);
begin
  TabSon[1].Lire(True);
end;
procedure TForm1.StopperClick(Sender: TObject);
begin
  TabSon[1].Stopper;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
    begin
TpsSon1.Position:=TabSon[1].PositionEnCours;
if(TabSon[1].GetNom<>'')then TpsS1.Caption:=Format('Время трека (в сек): %f, текущее время: %f',
                          [TabSon[1].GetTempsTotal,TabSon[1].GetTempsEnCours]);
end;
procedure TForm1.ProgressBar1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TabSon[1].ChangerPosition(X);
end;
procedure TForm1.TpsSon1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  TabSon[1].ChangerPosition(TpsSon1.Position);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, true);
  PATH := ExtractFilePath(Application.ExeName);
  TabSon[1]:=TSonStream.Create;
  LabNomS1.Transparent:=true;
end;
procedure TForm1.PauseClick(Sender: TObject);
begin
  TabSon[1].Lire(False);
end;
procedure TForm1.ResumerClick(Sender: TObject);
begin
  TabSon[1].Lire(False);
end;
procedure TForm1.BibliothequeClick(Sender: TObject);
begin
  TabSon[1].Charger(Bibliotheque.Items.Strings[Bibliotheque.itemIndex]);
  TpsSon1.Max:=TabSon[1].LongueurTotal;
  LabNomS1.Caption:=TabSon[1].GetNom;
  Equaliseur.Checked:=false;
  Flanger.Checked:=false;
  Chorus.Checked:=false;
  Echo.Checked:=false;
  Reverb.Checked:=false;
  Compressor.Checked:=false;
  TabSon[1].Lire(True);
end;
procedure TForm1.ChargeClick(Sender: TObject);
begin
  Bdd.FilterIndex:=2;
  if(Bdd.Execute) then Bibliotheque.Items.LoadFromFile(Bdd.FileName);
end;
end;

[blackstersl]

1.

ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
bassplayer1.Open(ListBox1.Items[ListBox1.itemindex]);
bassplayer1.Play;

а для кнопки "назад" просто замените ListBox1.ItemIndex - 1;

[blackstersl]

для второго пишешь в таймере:

if bassplayer1.Position < bassplayer1.PlayLength then
exit;
  if ListBox1.ItemIndex < ListBox1.Count - 1 then
  begin
   ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
     bassplayer1.Open(listbox1.Items[listbox1.itemindex]);
     files;
   bassplayer1.Play;
  end;

для того что бы убрать путь в listbox-e пропиши:

listbox1.items.add(exstractfilename(opendialog1.filename));