Несколько вопросов по реализации плэйера на основе Bass 2.0

← →
Кащей[БЦ] (2004-02-21 13:18) [0]

Вот пишу тут свой плэйер , но возникла пару вопросов......
Как заставить работать кнопку плэй?(Никак непойму, при дабл клике на лист боксе играет, а какой обработчие запихнуть для плэя?).
Потом....Как организовать проигрывание файлов в порядке плэй листа?
Как при активизации другого файла через проигрываетель заставить заглохнуть предыдущий.....
Как организовать перемотку?
Как можно научить плэйер загружать не по одномк файлу, а целые директории?
Каким образом можно заставить приложени поддеживать SKIN"S (ну чтобы папочку создавало, а в неё можно было бмпхи класть и т.о менять внешний вид программы).
Заранее благодарен......

← →
KilkennyCat © (2004-02-21 15:55) [1]

ни фига себе, парочка вопросов....
может, имеет смысл почитать справку по Bass 2.0?

← →
Кащей[БЦ] (2004-02-21 17:28) [2]

Почитал, но там мягко говоря непонятно написано

← →
Юрий Ж. © (2004-02-21 18:03) [3]

Ну ты даешь!
Ответив на твои вопросы можно и свой плеер написать!
А вообще кинь ссылку на Bass 2.0 (искать ломает) может помогу.

Кстати добавление файлов при известной дарректории (это из FAQ):
Q-158: Как получить список файлов со всеми подкаталогами procedure ScanDir(StartDir: string; Mask:string; List:TStrings); var SearchRec : TSearchRec; begin if Mask = "" then Mask := "*.*"; if StartDir[Length(StartDir)] <> "\" then StartDir := StartDir + "\"; if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then begin repeat Application.ProcessMessages; if (SearchRec.Attr and faDirectory) <> faDirectory then List.Add(StartDir + SearchRec.Name) else if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then begin List.Add(StartDir + SearchRec.Name + "\"); ScanDir(StartDir + SearchRec.Name + "\",Mask,List); end; until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; end; Пример вызова. параметры 1. имя папки 2. маска, по умолчанию *.* 3. хранилище для резульатат, любой наследник от TString, например TStringList procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Clear; ScanDir("c:","*.mp3",ListBox1.Items); Label1.Caption := IntToStr(ListBox1.Items.Count); end; Анатолий Подгорецкий (автор данного поиска) anatoly@podgoretsky.com
Не нравится - напиши свой!

← →
Кащей[БЦ] (2004-02-21 19:18) [4]

http://www.un4seen.com/files/bass20.zip

Кстати где-то видел TBassPlayer - компонент-плеер использующий Bass.dll, там и пример есть...
Помоему был где-то на www.torry.net

← →
Кащей[БЦ] (2004-02-21 20:36) [6]

Пасиб.

Несколько вопросов по реализации плэйера на основе Bass 2.0 Найти похожие ветки