Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Несколько вопросов по Bass.dll [D6, WinXP]


anod ©   (2002-05-31 19:34:00) 

Как определить текущюю позицию и длину проигрываемого файла.

var sams:HSAMPLE;
//
BASS_SampleGetInfo(sams,inf);
Label2.Caption:=FloatToStr(BASS_ChannelBytes2Seconds(sams,inf.length));
//
// и в таймере
//
pos:=BASS_ChannelGetPosition(sams);
Label3.Caption:="Position: "+FloatToStr(BASS_ChannelBytes2Seconds(sams,pos));


?


фтщв   (2002-06-01 10:11:00) [1]

Извинте, понял, надо использовать Stream.


anod   (2002-05-31 20:32:00) [2]

Да, и ещё 1 вопрос, эта операция подвешивает прогу

for i:= 0 to length(sams)-1 do
sams[i]:= BASS_SampleLoad(FALSE, PCHAR(ListBox1.items[i]), 0, 0, 3, BASS_SAMPLE_OVER_POS);


Наверх

Титульная страница Поиск, карта сайта Написать письмо