Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2014, 21:12   #1
mr_noisy
Новичок
Джуниор
 
Регистрация: 10.01.2014
Сообщений: 1
По умолчанию bass.dll, перемотка трека

Подскажите, как сделать перемотку трека слушая музыку через стрим, даже присобачил плейлист, плеер сам узнает длинну трека и позицию в треке, трек идет ссылкой на mp3 файл.

этим стартую трек с сылки
Код:
cthread := BeginThread(nil, 0, @OpenURL, PAnsiChar(AnsiString(Link)), 0, ThreadId);
это накопал в гугле
Код:
function QBass_GetTime(const channel: DWORD): DWORD;
var
  pPos: Cardinal;
  AllTime: Cardinal;
begin
  Result := 0;
  pPos := 0;
  pPos := BASS_ChannelGetLength(channel, BASS_POS_BYTE);
  if (pPos > 0) then
  begin
    AllTime := Trunc(BASS_ChannelBytes2Seconds(channel, pPos));
    Result := AllTime;
  end;
end;
и
Код:
function QBass_GetTimeNow(const channel: DWORD): DWORD;
var
  pPos: Cardinal;
  AllTime: Cardinal;
begin
  Result := 0;
  pPos := BASS_ChannelGetPosition(channel, BASS_POS_BYTE);
  if (pPos > 0) then
  begin
    AllTime := Trunc(BASS_ChannelBytes2Seconds(channel, pPos));
    Result := AllTime;
  end;
end;
Юзаю как вы поняли bass.dll, всё почти из примеров собрал которые были в комплекте с bass.dll
Работает у меня всё кроме перемотки трека, гуглил, но ничего работающего не накопал

Последний раз редактировалось mr_noisy; 10.01.2014 в 21:17.
mr_noisy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Bass.dll время трека в LisxBox Alex2009 Мультимедиа в Delphi 1 20.02.2013 19:51
bass.dll перемотка на отдельной форме Menmo Мультимедиа в Delphi 3 29.10.2012 21:20
перемотка bass 2.4 s1s1s1 Мультимедиа в Delphi 9 27.11.2011 00:08
Перемотка с использованием bass.dll WinMen Мультимедиа в Delphi 8 16.05.2011 01:23
Длительность трека через Bass.dll DIgorevich Мультимедиа в Delphi 4 31.08.2010 21:08