Плеер и bass.dll

[Кольша]

Смотрите aimp

[sariman]

Статьи фигня, но для наглядного примера сойдет:
1 урок
2 урок
3 урок
4 урок
Зайдите-ка на официальный сайт, там вы найдете много чего нового и интересного.

[Menmo]

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

Статьи фигня, но для наглядного примера сойдет:
1 урок
2 урок
3 урок
4 урок
Зайдите-ка на официальный сайт, там вы найдете много чего нового и интересного.

У меня не очень с английским
У меня вот такая проблемма, на осовной форме стоит плейЛист, скролбар который матает, работает отлично, Но мне нужно сделать скролл бар на форм2, который тоже будет матать трек, как я даже не знаю.

[Кольша]

http://ksware.ru/?page=23

[Menmo]

Сообщение от Кольша

http://ksware.ru/?page=23

Я настолько нуб, что не могу разабраться в исходниках, можешь выложить сам код?

[саша40]

Короче я обьясню новичку что и как надо делать.
Если ты(автор) скачал bass.dll с офф. сайта то в папке есть по нему полный справочник(переводи переводчиком Google).
Если же нет, то учимся(основные функции):
Прописываете bass в uses. И кидаем bass.dll в папку с прогой(где файл exe). Bass.pas в Delphi7/Lib(Выше пойдет путь к папке куда вы установили Delphi).
Иницилизация:

if Bass_Init(-1, 44100, 0, handle, nil)=false then
ShowMessage('Немогу иницилизировать паток');

Убийство патока(обязательно):

BASS_FREE();

Теперь прописываешь такие переменые(в раздел глобальных, короче где прописана переменая формы):

Stream: HStream; //звуковой паток
Track: boolean; //для перемотки

Теперь кидаем на форму 4 button, 1 scrollbar, 1 Timer1, 1 OpenDialog(закладка Dialogs) и 2 ListBox, 1 Label.
Дважды кликаешь по первой кнопке(открыть) и пишишь там код:

if OpenDialog1.Execute=false then exit;
ListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName);
ListBox2.Items.Add(OpenDialog1.FileName);
//готово

Вторая кнопка, тоже событие:

if stream>0 then 
Bass_StreamFree(stream); //чистка патока

stream:=Bass_StreamCreateFile(false, PChar(OpenDialog1.FileName), 0,0,0);

if stream=0 then
ShowMessage('Музыка не выбрана')
else
begin
Label1.Caption:=ExtractFileName(OpenDialog1.FileName);
ScrollBar1.Min:=0;
ScrollBar1.Max:=Bass_ChannelGetLength(stream,0)-1;
ScrollBar1.Position:=0;
Timer1.Enabled:=true;
end;

3 кнопка(пауза) и тоже событие:

Bass_ChannelPause(stream);

4 кнопка(стоп) и тоже событие:

Bass_ChannelStop(stream);
Bass_ChannelSetPosition(stream, 0, 0);

Ну и таймер:

if Track=false then
ScrollBar1.Position:=Bass_ChannelGetPosition(stream,0);

И чтобы получилась перемотка можно сделать событие onScroll у скроллбара:

if ScrollCode=scEndScroll then
begin
Bass_ChannelSetPosition(stream,ScrollBar1.Position,0);
Track:=false;
end
else
Track:=true;

Всё готово. Конвертируешь и радуешся.

[Menmo]

Спасибо конечно, но это у меня есть. Тоесть на 1 форме все работает, но мне нужно скроллбар перенести на форму 2 и что-бы он перематывал.

[Кольша]

в таймере допишите

form2.ScrollBar1.Position:=Bass_ChannelGetPosition(stream,0);

[Menmo]

Сообщение от Кольша

в таймере допишите

form2.ScrollBar1.Position:=Bass_ChannelGetPosition(stream,0);

Спасибо, буду проверять

[Кольша]

stream надо заменить на то что у вас в эту функцию передаеться..