[Gareth]

Всем привет.
Делаю плеер на библиотеке bass.dll.
По этому уроку КЛАЦ!
Ошибка в следующем:
На кнопке Play мне надо написать код

Код:

begin
//Проверяем если воспроизведение уже идет то выходим
if mode=play then exit ;
//Запускаем процедуру проигрывания
player;
end;

Это условие также прописывается в кнопки стоп и пауза.
У меня выдает ошибку :
undeclared identifier 'mode'
undeclared identifier 'Play'

написано, что надо в разделе "Type" Объявить:
TPlayerMode = (Stop, Play, Paused);
При попытки скомпилить, вылазиет окошко, expected ':' but '=' found

В общем, когда пишешь что либо, появляется подсказка.. А в случае с TPlayerMode - ничего не вылезает.
Там еще надо объявлять переменную mode
Mode: TPlayerMode; - но нихрена не работает, ошибки...
Коротко говоря, что такое TplayerMode и где его достать ?

Если что, bass.dll 2.4, кинул сам dll в папку с программой.
Bass.pas кинул в папку с делфями, в Lib.

[Alegun]

Скачал пример из этого урока как есть - с небольшой корректировкой на D7 работает.

[M.A.D.M.A.N.]

Почему именно bass.dll?

[Gareth]

Сообщение от M.A.D.M.A.N.

Почему именно bass.dll?

Mediaplayer ?)
Почитал про bass.dll, пишут что если делать плеер, то лучше на нем, нежели на MediaPlayer.
Типо MediaPlayer не все mp3 читает, ошибки выдает...
Или есть еще что-то ?)

[M.A.D.M.A.N.]

Я делал через wave_out, чтоб мп3 и прочее воспроизводить - подрубал кодеки нужные (они в wav формат переводят). Тем более с вавкой проще работать, один раз поймешь, дальше все понятно будет.

[angvelem]

Чтобы понять где ошибка, нужно увидеть ваши потуги в виде кода.

[Alegun]

Сообщение от angvelem

Чтобы понять где ошибка...

Да что там понимать, похоже ТС просто забыл в uses юнит bass дописать.

[Gareth]

Сообщение от Alegun

Да что там понимать, похоже ТС просто забыл в uses юнит bass дописать.

Кстати, забыл написать что написал в "uses" bass;
по этому и не понимаю в чем моя ошибка...
Исходник качал, тоже всё запускается, а у меня в самом начале неразбериха...

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,XPMan, ComCtrls, StdCtrls, Buttons, ExtCtrls, bass;

type
  TForm1 = class(TForm)
    pb1: TPaintBox;
    scrlbr1: TScrollBar;
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    btn3: TBitBtn;
    trckbr1: TTrackBar;
    trckbr2: TTrackBar;
    lbl3: TLabel;
    lbl4: TLabel;
    trckbr3: TTrackBar;
    trckbr4: TTrackBar;
    trckbr5: TTrackBar;
    trckbr6: TTrackBar;
    trckbr7: TTrackBar;
    trckbr8: TTrackBar;
    trckbr9: TTrackBar;
    trckbr10: TTrackBar;
    trckbr11: TTrackBar;
    trckbr12: TTrackBar;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    btn4: TBitBtn;
    btn5: TBitBtn;
    lst1: TListBox;
    o1: TOpenDialog;
    tmr1: TTimer;
    procedure btn4Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:Integer;
  filename:string;
Channel: DWORD;


implementation

{$R *.dfm}

procedure TForm1.btn4Click(Sender: TObject);

var j: integer;
  Channel    : DWORD;//
begin
 o1.Title  := 'Open Files';
 o1.Filter := 'mp3|*.mp3'; 

if lst1.Count<>0 then i:=lst1.ItemIndex else i:=0;
if not o1.Execute then exit;
  begin
  for j:=0 to o1.Files.Count-1 do
    begin
      Lst1.Items.Add(o1.Files.Strings[j]);
    end;
  end;
   Filename:=Lst1.Items.Strings[i];
   Lst1.ItemIndex:=i;
end;

procedure TForm1.btn1Click(Sender: TObject);

begin
if mode=play then 
exit ;
player;

end;

end.

как я понял, mode - это переменная... так как надо еще дописать в глобальных "mode:Tplayermode" - но не получается.

[Alegun]

А в примере слямзить, тоже не получается?