|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Плеер на Bass.dll В чем ошибка?
Всем привет.
Делаю плеер на библиотеке 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. |
#2
|
||||
|
||||
Скачал пример из этого урока как есть - с небольшой корректировкой на D7 работает.
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
||||
|
||||
Почему именно bass.dll?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
|||
|
|||
Цитата:
Почитал про bass.dll, пишут что если делать плеер, то лучше на нем, нежели на MediaPlayer. Типо MediaPlayer не все mp3 читает, ошибки выдает... Или есть еще что-то ?) |
#5
|
||||
|
||||
Я делал через wave_out, чтоб мп3 и прочее воспроизводить - подрубал кодеки нужные (они в wav формат переводят). Тем более с вавкой проще работать, один раз поймешь, дальше все понятно будет.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#6
|
||||
|
||||
Чтобы понять где ошибка, нужно увидеть ваши потуги в виде кода.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#8
|
|||
|
|||
Цитата:
по этому и не понимаю в чем моя ошибка... Исходник качал, тоже всё запускается, а у меня в самом начале неразбериха... Код:
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" - но не получается. |
#9
|
||||
|
||||
А в примере слямзить, тоже не получается?
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |