Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Ноя

Нарисовать синусоиду или огибающую на PaintBbox с использованием BASS.DLL

Загружаю файл в bass c синусом 1 кгц
мне нужно нарисовать синусоиду или огибающую на paintbox , не могу найти ,как сделать это на bass.dll , есть примеры с WAV форматом , через звуковую карту непосредственно , а мне так не надо.Типа этого.Спасибо.

Изображения

(читать всё…)

Добавлено в Delphi. Дата Ноябрь 16th, 2018

12th
Янв

Воспроизводит звук из буфера или потока с помощью BASS.dll

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

(читать всё…)

Добавлено в Delphi. Дата Январь 12th, 2017

18th
Сен

Позиция в BASS

В каком формате BASS возвращает позицию и длину файла, если передавать флаг BYTE_POS (флаг написал по памяти, тот кто знает поймет)?
Это точно не байты, и не связано с секундами вроде никак.
Как перевести в наше человеческое время?

Код:


function qbass_gettime(const Channel: DWORD): DWORD;
var
  pPos: Cardinal;
  AllTime: Cardinal;
begin
  Result := 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_formattime(const Sec: Integer;
  const IsURL: boolean): string;
(*******************************************
* RESULT: " 99:99" | "999:99" * | " Radio" *
*******************************************)
const
  time = ' 00:00';
  radio = ' Radio';
  null = '      ';
var
  H, M, S: Integer;
  Return: string;
begin
  if Sec = -1 then
    Return := null
  else
    if Sec < 0 then
      Return := time
    else
      if IsURL then
        Return := radio
      else
        begin
          H := Sec div 3600;
          S := Sec mod 3600;
          M := S div 60;
          M := M + (H * 60);
          S := (S mod 60);
          if M > 99 then Return := Format('%3d:%2.2d', [M, S])
          else Return := Format('%2.2d:%2.2d', [M, S]);
        end;
  Result := Return;
end;

Использовать:

Код:


var
  s:string;
  mCc,lng: DWORD;
begin
  mCc := BASS_StreamCreateFile(false, pointer(fail), 0, 0, 0 );
  try
    lng := qbass_gettime(mCc);
    s:= qbass_formattime(lng,false);

Тема на форуме.

Добавлено в Пост-обзор. Дата Сентябрь 18th, 2010

31st
Авг

Получить длительномть трека. Bass.dll

Код:


function QBass_GetTime(const Channel: DWORD): DWORD; stdcall;
var
  pPos: Cardinal;
  AllTime: Cardinal;
begin
  result := 0;
  pPos := BASS_ChannelGetLength(Channel, BASS_POS_BYTE);
  if (pPos > 0) then
  begin
   Alltime := Trunc(BASS_ChannelBytes2Seconds(Channel, pPos));
   Result := Alltime;
  end;
end;

вот так получай длину трека

Код:


var
  mch: dword;
  lng: dword;
begin
  mch := BASS_StreamCreateFile(false, pointer(fname), 0, 0, 0 );
try
  lng := qbass_gettime(mch);
  // тут преобразовывай время в строку
finally
  bass_streamfree(mch);
  mch := 0;
end;
end;

Тема на форуме.

Добавлено в Пост-обзор. Дата Август 31st, 2010

7th
Апр

Создание аудио плеера на bass.dll

Участник форума просит пошаговое создание аудиоплеера. Но, как заметил профессионал форума BOBAH13, к глубочайшему сожалению в нашем мире нет пошаговых инструкций, к тем продуктам, которые Вы/мы хотите создать Приходиться самим выкручиваться.